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EINLEITUNG 


Wozu braudit man eigentlidi 
einen Compulei? 


ugegeben - eine etwas ketzeri¬ 
sche Frage In einem Computer¬ 
magazin. Und doch eine Frage, 
die man sich Immer wieder stellen 
sollte. Denn fasziniert von der immer 
höheren Leistungsfähigkeit der 
Heim- und Personal Computer ver¬ 
liert man solche Gesichtspunkte 
leicht aus den Augen. Ich denke hier 
an zahllose Fachsimpeleien und Dis¬ 
kussionen mit Kollegen, bei denen 
der schnellste Prozessor gerade 
schnell genug und 4 Megabyte 
Hauptspeicher immer noch zuwenig 
sind. Sicher: Es ist schön, einen 
solch leistungsfähigen Computer auf 
dem Tisch stehen zu haben, doch 
sollte man immer den Zweck Im 
Auge behalten. Als Ich nämlich bei einer der eben 
erwähnten Diskussionen etwas provokant fragte: »Und 
was macht Ihr nun mit der tollen Maschine?« - 
bestand die Antwort zunächst aus einem etwas ratlo¬ 
sen Gesichtsausdruck und dann nachdenklichen 

Gesichtern. 

Wozu braucht man nun einen Computer? 
Kurz gesagt: Man wendet Ihn an; man arbeitet mit 
Ihm oder läßt ihn für sich arbeiten, schreibt Briefe, 
zeichnet, konstruiert, kalkuliert und vieles mehr. 
In der Computer-Fachsprache hat sich für derartige 
Programme der Begriff »Anwendungen« durchgesetzt. 
Darunter fallen also Textverarbeitungs-, Zeichen-, Kal¬ 
kulationsprogramme etc,, mit denen sich Arbeiten für 
Beruf oder Ausbildung erledigen lassen. 
Eine weitere Sparte bilden sogenannte »Tools« und 
»Utilities«, welche helfen, Probleme zu beseitigen, die 
sich eigentlich erst durch die Existenz des Computers 

ergeben haben. 

Dann gibt es natürlich noch die verschiedensten 
Programmiersprachen, Compiler und last not least die 

beliebten Computerspiele. 
Für all diese Arten von Programmen braucht man 
nicht unbedingt einen großen Personal Computer mit 
dem modernsten Prozessor, sondern dafür eignet sich 
der C64 im Prinzip genauso. Dieser Computer hat 
sich In den letzten Jahren bei weit über einer Million 
Besitzern hervorragend bewährt und diesem Ruf wol¬ 
len wir mit diesem Sonderheft auch Rechnung tra¬ 
gen. Es beschäftigt sich in erster Linie mit Program¬ 
men der ersten Kategorie: 
Den Anwendungen - und hiervon erhalten Sie eine 
»geballte Ladung« für die verschiedensten Bereiche: 

Paint Magic ist ein leicht zu bedienendes Zetchen- 
und Malprogramm der Spitzenklasse. Es arbeitet im 
Multicolor-Modus des C64. Sie können also faszinie¬ 
rende farbige Grafiken und Bilder mit diesem Pro¬ 
gramm auf einfachste Welse erzeugen. 
Mit dem SID-Director wird Ihnen die Arbeit mit dem 


Sound-Chip des C64 erheblich 
erleichtert. Er bietet eine grafische 
Benutzeroberfläche, die dem Com¬ 
puter ohne viele PEEKs und POKEs 
die erstaunlichsten Klänge entlockt. 
Liga-Master ist etwas für Sports¬ 
freunde und erlaubt die Verwaltung 
von Sportliga-Ergebnissen. 

In die Welt des großen Geldes sto¬ 
ßen wir mit einem wahrhaft profes¬ 
sionellen Programm vor; 

»Börse Plus« - geschrieben von 
einem Mann aus der Börsenpraxis - 
dient zur Verwaltung, Berechnung 
und Analyse von Aktienkursen. Es 
stellt diese grafisch auf Wunsch als 
Monats-, Jahres-, oder Chartsgrafik 
dar. Das Programm berechnet effek¬ 
tive Kaufs- und Verkaufskurse von Aktien und vieles 
mehr. Wichtige Grundlagen für den Umgang mit 
Aktien sind in dem Artikel ebenfalls enthalten. 

Als ganz besondere Zugabe bieten wir Ihnen auf der 
Programmservice-Diskette zu diesem Sonderheft die 
aktuellen Aktienkurse der wichtigsten Aktiengesell- 
scha^r und Konzerne bis zum 30. September dieses 
Jahres. Sie verfügen damit also über wertvolles 
Datenmaterial, das Sie mit »etwas Kleingeld« gewinn¬ 
bringend einsetzen können. 

Auch für den Hobby-Elektroniker Ist dieses Sonder¬ 
heft eine Fundgrube: 

Das Testen digitaler Schaitungsentwürfe übernimmt in 
Zukunft der C64 mit dem »Digital Construction Set«. 
Die mühevolle (und oft teure) Fehlersuche auf der fer¬ 
tigen Schaltung entfällt damit. 

Doch auch für die Analyse komplett aufgebauter Digi¬ 
talschaltungen bieten wir ein Rezept: 

Nahezu ohne Hardware erlaubt es das Programm 
»Logikanalyse«, den gleichzeitigen Impulsverlauf von 
bis zu acht Signalen in TTL-Schaltungen auf dem 
Bildschirm, ähnlich einem Oszilloskop, anzuzeigen. 
Bis zu 50000 Messungen pro Sekunde sind möglich. 
Das Thema Statistik nimmt ebenfalls einen gebühren¬ 
den Platz in diesem Sonderheft ein; Von den Grundla¬ 
gen über eine statistikorientierte Basic-Erweiterung 
bis zu einem Vergleich kommerzieller Statistik¬ 
programme für den C64 finden Sie hier viel Wissens¬ 
wertes. 

Tips & Tricks zur Grafikprogrammierung und ein 
Hardcopy-Programm, das Sie individuell an Ihren 
Drucker anpassen können, runden den Inhalt dieses 
Sonderheftes ab. 

Klaus SchrödI (Redakteur) 
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GRAFIK 


C64 


Paint Magic 



Malen wie ein Profi 


Mit »Paint Magic« können wir Ihnen einen echten 
Knüller zum Abtippen anbieten: Dieses ehemals 
kommerziell angebotene Malprogramm zeigt mit 
seinen erstaunlich vielseitigen Funktionen, daß 
sich der C 64 auch heute bei der Grafik hinter kei¬ 
nem Computer verstecten muß. 

P aintMagicIstein Malprogramm, das ausschließlich Im 
»Muiticolor-Modus» des C64 arbeitet. Dieser Modus 
ermöglicht eine sehr freie Wahl der Farben, mit einer 
Grafikauflösung von 160 Punkten In der Breite. Auch bietet 
»Paint Magic« sehr viele Funktionen, um dIe.Farben In der 
Grafik zu kontrollieren, so daß sich solche »Gemälde« wie 
in Bild 1 leicht selbst erstellen lassen. Neben den normalen 
Zeichenfunktionen wie Linie und Kreis bietet das Pro¬ 
gramm beispielsweise die Möglichkeit, einen kleinen 
Ausschnitt der Grafik als Pinsel zu definieren 
und einiges mehr. Eine genaue Übersicht 
aller Möglichkeiten von Paint Magic fin¬ 
den Sie In Tabelle 1. 

Geben Sie »Paint 
mit dem MSE ein 
es. Nach dem Laden und dem 
mit RUN wird der Hilfsbildschirm 
des Programmes (Bild 2) an¬ 
gezeigt. Auf ihm sind alle Funk¬ 
tionen des Programms in 
Kurzform zu finden, 

Mit <RETURN> wird Inden 
Grafikmodus umgeschal¬ 
tet, mit <F1 > können 
Sie den Milfsblldschirm 
Jederzeit wieder einschal- 
ten. Nach dem Druck auf 
<RETURN> sind Sie Im 
Zeichenmodus. Das nun 
erscheinende Fadenkreuz 
dient als Grafik-Cursor und 
wird dabei mit einem Joystick 
in Port 2 gesteuert. Die Ge¬ 
schwindigkeit des Cursors wird 
mit Hilfe der Cohimodore-Taste 
und einer der Zahlen 1 bis 8 einge¬ 
stellt: Mit <CBM 1 > bewegt sich 
der Cursor langsam, was ein detail¬ 
liertes Arbeiten zuläßt, mit <CBM 8> be¬ 
wegt er sich sehr schnell über den Bild¬ 
schirm. Durch Druck auf den Feuerknopf und 
Bewegen des Joysticks können Sie nun bereits 
einfache Figuren zeichnen. 

Das Programm stellt zum Zeichnen drei verschie¬ 
dene Farben zur Verfügung, die mit Hilfe eines Farbmenüs, 
das weiter unten noch behandelt wird, aus den 16 Farben 
des C64 ausgewählt werden können. Sie werden durch 
Druck auf eine der Tasten <2>, <3> oder <4> ange¬ 
wählt. Nach dem Start des Programms ist <2> mit Blau, 
<3> mit Rot und <4> mit Schwarz belegt. Mit <1 > wird 


die Hintergrundfarbe (beim Start des Pro¬ 
gramms Weiß) zum Zeichnen ven/vendet, was 
man sehr gut als »Radiergummieffekt« 
benutzen kann. 

Nun aber zu den einzelnen Funktio 
nen von Paint Magic. Sie werden 
mit einem Tastendruck angewählt 
durch einen Druck auf dieselbe 
<RUN/STOP> auch wieder 
Sie sich besser zurecht- 
jewells in Klammern 
Zeichnung der 
die 


bld- 


und meist 
Taste oder 
beendet. Damit 
finden, haben wir 
die englische Be- 
Funktion angegeben, 
auch auf dem Hilfs¬ 
schirm (Bild 2) zu finden 
ist. Um den Umgang mit 
den vielen Funktionen des 
Programms am schnellsten 
zu erlernen, sollten Sie sie am 
besten in der hier angegebenen 
Reihenfolge ausprobieren. 

<.> Einen Punkt setzen (Points) 
Dieses l^mmando Ist eine Alter¬ 
native zur Betätigung des Feuerknop¬ 
fes beim Zeichnen. Es setzt jeweils 
nur einen einzelnen Punkt in der ge¬ 
wählten Zeichenfarbe. 

<L> Linien (Lines) 

Um eine Linie zu zeichnen, bewegen 
Sie den Cursor zum Ausgangspunkt 
der gewünschten Linie und drük- 
ken <L>. Wenn nun der Joystick 
bewegt wird, geht die Linie wie ein 
Gummiband vom Ausgangspunkt 
zur neuen Position des Cursors. 
Ist der Endpunkt erreicht, 
drücken Sie wieder <L> 
oder < RUN/STOP >, um 
sie in der vorher gewähl¬ 
ten Farbe zu zeichnen. 
Wird statt dem zweiten 
<L> der Feuerknopf ge¬ 
drückt, so kann vom Endpunkt 
der ersten Linie eine weitere 
Linie gezogen werden, die dann 
wieder mit <L>, <RUN/STOP> 
oder Feuerknopf fixiert wird 
etc. Nach der letzten Linie wird 
der Linienzug mit <L> oder 
<RUN/STDP> beendet. 
<»> Strahlen (Rays) 
Mit diesem Kommando kann der 
Ausgangspunkt bei einer Zeichen¬ 
funktion festgehalten werden, während der 
Endpunkt bewegt wird. Das klingt kompliziert, Ist aber ganz 
einfach: Drücken Sie <L> und ziehen Sie eine Linie. Nun 
statt dem zweiten <L> zum Beenden der Linie einfach 
< * > tippen. Wenn Sie nun den Joystick bewegen, sehen 
Sie, daß eine neue Linie mit demselben Ausgangspunkt 
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erstellt wird. Bei 
jedem Druck auf 
<*> wird eine neue 
Linie gezogen, was zu einem 
strahlenförmigen Aussehen führt 
(Bild 3). Die letzte Linie wird wieder 
mit <L> oder <RUN/STOP> abge¬ 
schlossen, 

<C> Kreise(Circles) 

Soll ein Kreis gezeichnet werden, muß der Cursor 
auf den gewünschten Kreismittelpunkt gestellt werden. 
Nach dem Druck auf <C> stellt man den Kreisradius ein, 
wobei zur besseren Übersicht der fertige Kreis mit einigen 
»Gummipunkten« dargestellt wird. Ein weiterer Druck auf 
<C>, <RUN/STOP> oder den Feuerknopf zeichnet den 
Kreis. Auch hier kann statt dem zweiten <C> auf <•> 
gedrückt werden, man zeichnet dann konzentrische Kreise 
(Kreise mit demselben Mittelpunkt). Ein Beispiel finden Sie 
in Bild 3, Beendet wird wie üblich mit <C> oder 
<RUN/STOP>. 

<B> Rechtecke (Boxes) 

Rechtecke werden ähnlich wie Linien und Kreise 


gezeichnet. Beim ersten Druck auf <B> fixiert der Com¬ 
puter die eine Ecke des Rechtecks, beim Zeichnen hilft ein 
»Gummirechteck«, und der zweite Endpunktwirdmit <B> 
oder <RUN/STOP> fixiert. Drücken Sie statt <B> auf 
den Feuerknopf, so werden »Rechteckzüge« gezeichnet. 
Dabei wird der gerade markierte zweite Eckpunkt des 
ersten Rechtecks als erster Eckpunkt für ein weiteres ver¬ 
wendet etc. Um den Rechteckmodus auszuschalten. 


genügt ein Druck auf <B> oder <RUN/STOP>. Das 
<*>-Kommando funktioniert hier sinngemäß genauso 
wie bei Linie und Kreis, es können also verschieden große 
Rechtecke mit einem gemeinsamen Eckpunkt gezeichnet 


werden. 

<SHIFT CLR> Bildschirm löschen (Clear) 

Mit dieser Tastenkombination wird der gerade bearbei¬ 
tete Bildschirm gelöscht. Falls Sie einmal aus Versehen Ihr 
Bild löschen, kann es mit <R> (siehe unten) wieder 
zurückgebracht werden. 



Bild 1. Ein mit »Paint Magic« erstelltes Bild — eigentlich 
schon ein kleines Computer-Kunstwerk 


<SPACE> Blidschlrmausschnltt vergrößern (Magnify) 
Mit <SPACE> schalten Sie den Vergrößerungsmodus 
(Bild 4) ein, der den Grafikbereich um den Cursor herum 
stark vergrößert darstellt. Alle Zeichenkommandos sind 
auch im Vergrößerungsmodus anwendbar. Mit einem wei¬ 
teren <SPACE> wird er wieder ausgeschaltet. 

<@> 

Der Cursor wird ein- beziehungsweise ausgeschaltet. 


GRAFIK 


<P> Füllen (Pure Fill) 

Diese Funktion füllt einen beliebigen geschlossenen 
Linienzug, also etwa ein Rechteck oder einen Kreis, mit 
einer gewünschten Farbe. (Die englische Bezeichnung 
»Pure Fill« rührt daher, daß nur eine Farbe beim Füllen ver¬ 
wendet wird.) Dazu bewegen Sie den Cursor an einen 
Punkt Innerhalb des Linienzuges und tippen zuerst die 
gewünschte Farbnummer (<1> bis <4>) und dann 
<P>. Paint Magic füllt nun den Körper mit der gewünsch¬ 
ten Farbe. Wenn Sie feststellen, daß weget) eines Lochs in 
Ihrem Linienzug der gesamte Bildschirm gefüllt wird. Ist 
das kein Grund zur Panik: mit <RUN/STOP> kann der 
Füllvorgang abgebrochen werden. 



BildZ.DasHllfsmenüvon Paint Magic, das mit <F1 > aufgeru¬ 
fen wird. Ist im Zweifelsfall eine große Hilfe 


<H>, <V>, <D> (Horizontal Fill, Vertical Fill, 

Diagonal Fill) 

Füllen eines Körpers (geschlossener Linienzugl) mit 
zwei verschiedenen Farben. Die beiden Farben können in 
horizontalen <H>, vertikalen <V> und diagonalen 

< D> Linien »eingefüllt« werden. Dazu wird (wie beim »nor¬ 
malen« Füllen mit <P>) der Cursor in den zu füllenden 
Körper bewegt. Nachdem die zwei gewünschten Farben 
(<1 > bis <4>) nacheinander eingegeben wurden, star¬ 
tet man mit < H >, <V> oder < D > den Füllvorgang. Mit 

< 1 3 H > würde man also zum Beispiel den Körper mit wei¬ 
ßen und roten waagerechten Linien füllen. 

<R> Rückgängig machen (Restore) 

Mit »Restore« können Sie alle Kommandos von »Paint 
Magic« außer den Zeichenkommandos <L>, <B>, 
<C> und <*> wieder rückgängig machen. Die »Re- 
store«-Funktion darf nicht mit der RESTDRE-Taste des C 64 
verwechselt werden! 

<G> Greifen (Grab) 

Dies Ist eine sehr wichtige und praktische Funktion, denn 
sie ermöglicht das »Greifen« eines kleinen Ausschnittes 
der Grafik, um ihn dann als »Pinsel« mit allen Zeichenfunk¬ 
tionen verwenden zu können. Dazu gehen Sie mit dem Cur¬ 
sor an die erste Ecke des zu »greifenden« Bereichs und tip¬ 
pen <G>. Der gewünschte Ausschnitt wird nun einge¬ 
stellt, wobei er maximal 40 mal 40 Punkte haben darf. Bei 
Druck auf den Feuerknopf erscheint nun statt des Faden¬ 
kreuzes der gewählte Ausschnitt als Cursor, es wird also 
jetzt mit diesem Ausschnitt gezeichnet. Die Zeichenfunk¬ 
tionen <■>, <L>, <C>, <B> und <•> können jetzt 
mit dem neudefinierten »Pinsel« benutzt werden. Versu¬ 
chen Sie dabei aber Immer, den Pinsel möglichst klein zu 
halten, da beispielsweise Kreise mit größeren Pinseln nur 
sehr langsam gezeichnet werden. 
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GRAFIK 


C64 


— Zefchnen mit dem Joystick 

— Linien, Kreise, Rechtecke 
ond Punkte 

— Viele Fülltunktionen 

— Strahlenförmige Llnlen- 
muster 

— Malen mit eigenen «Pinseln« 

— Zurücknehmen von Befehlen 

— VergröBerungsmodus 


— Kopieren von Bereichen 

— Qraflkberelche beliebig 
verzerren und spiegeln 

— Farbsteuerung über Menü 
oder Tastatur 

— Arbeiten mit zwei 
Blldschlrmselten 

— Verschieben der gesamten 
Grafik 


Tabelle 1. Ein kurzer Steckbrief von »Paint Magic« 


Beim Zeichnen mit dem definierten Pinsei wird auch der 
Hintergrund »mitgezeichnet«, das heißt wenn der Aus¬ 
schnitt etwa auf eine schon vorhandene Zeichnung gesetzt 
wird, löscht die im Pinsei eventueii vorhandene Hinter¬ 
grundfarbe Teiie der Zeichnung. Dieser Effekt ist in 6iid 5 
oben dargesteiit. Da er aber manchmai störend wirkt, iäßt 
er sich mit 
•<0> (Opaque) 

abschaiten, so daß der Pinsel einen »durchsichtigen« 
Hintergund bekommt (Bild 5 unten). Mit einem weiteren 
Druck auf <0> läßt sich der ursprüngliche Zustand wie¬ 
derherstellen. 

< RUN/STDP> schaltet den aktivierten Pinsel aus-das 
Fadenkreuz wird wiedersichtbar. < t > schaitetwiederauf 
den zuletzt verwendeteten Pinsel um. 

Gerade mit »Grab« lassen sich erstaunliche Dinge 
zustande bringen, besonders wenn der »gegriffene« Aus¬ 
schnitt verschiedene Farben enthält. Bild 6 unten zeigt 
einige der mit »Grab« machbaren Dinge. 

<T> Transformieren (Transpose) 

Diese Funktion wird verwendet, um einen beliebigen 
Grafikausschnitt zu vergrößern, zu verkleinern, zu zerren 
oder zu spiegeln. Dazu markieren Sie wie bei »Grab« einen 
Bildschirmausschnitt (der hier allerdings beliebig groß sein 
darf), wobei natürlich statt <G> nun <T> gedrückt wird 
(sollen größere Bereiche markiert werden, stellt man 
zweckmäßigerweise die Geschwindigkeit des Cursors mit 
<CBM 1 > auf ihren höchsten Wert). Dann gehen Sie mit 
dem Cursor an eine freie Stelle auf dem Bildschirm und 
drücken den Feuerknopf. Mit dem Joystick markieren Sie 
nun den Bereich, in den der ursprüngliche Grafikausschnitt 
»hineinprojiziert« werden soll. Je nach der Größe des 
neuen Bereiches wird der ursprüngliche Ausschnitt nun 
gestaucht, gedehnt, vergrößert oder verkleinert. Sie kön¬ 
nen ihn sogar spiegeln, wenn Sie beim Markieren des Ziel¬ 
bereiches den Cursor In eine andere Richtung bewegen als 
beim Markieren des Startbereiches. 



Durch einen erneuten Druck auf den Feuerknopf wird 
immer wieder ein neuer Zielbereich markiert. Dies läßt sich 
beliebig oft wiederholen, bis Sie die Funktion mit 
<RUN/STOP> abbrechen. 

<l> Kopieren eines Bereiches (Image) 

Es gibt natürlich auch Fälle, In denen es gar nicht 
gewünscht ist, einen Grafikausschnitt zu verformen - er soll 
einfach nur kopiert werden. Dazu dient das »Image«- 
Kommando. Der zu kopierende Ausschnitt wird dabei 
genau wie bei <T> markiert, nur daßstatt <T> jetzt <l> 
gedrückt werden muß. Der markierte Rahmen wird dann 
mit dem Joystick an die gewünschte Zielposition bewegt 
und mit dem Feuerknopf auf die Grafik »gestempelt«. Die¬ 
ser Vorgang kann beliebig oft wiederholt werden und wird 
wie üblich mit <l> oder <RUN/STOP> abgebrochen. 

Ariieilen mit zwei Biidschirmen 


<E> Bildschirm wechseln (Exchange) 

Oft benötigt man für das Arbeiten mit < I > und <T> 
mehr Platz, als auf dem Bildschirm vorhanden ist, etwa 
beim Kopieren großer Grafikausschnitte. Deshalb stellt 
Paint Magic eine zweite Bildschirmseite zur Verfügung, die 



Bild 4. Der Vergrößerungsmodus In Aktion 


für solche Zwecke gut geeignet ist. Mit < E> schaltet man 
zwischen den beiden Bildschirmseiten hin und her. 

<S> Bildschirm kopieren (Copy Page) 

Manchmal ist es sinnvoll, eine Grafik vor der weiteren 
Bearbeitung auf dem zweiten Bildschirm zu sichern, um so 
bei einem Fehler beim Zeichnen die ursprüngliche Grafik 
wieder zur Verfügung zu haben. Dies geschieht mit <S>. 
Um das zwischengespeicherte Bild wieder zurückzu¬ 
kopieren, müssen Sie mit <E> auf die andere Bildschirm¬ 
seite umschalten und mit <S> einen neuen Kopiervor¬ 
gang starten. 

<M> Zusammenführen (Merge) 

Wenn mit zwei Bildschirmseiten gearbeitet wird, lassen 
sie sich mit »Merge« zu einer einzigen zusammenführen. 
»Merge« arbeitet dabei wie eine Füllfunktion, so daß im Nor¬ 
malfall der ganze Bildschirm zusammengeführt wird. Brin¬ 
gen Sie den Cursor vor <M> in einen geschlossenen 
ünienzug, so wird nur der Bildteil innerhalb dieses Linien¬ 
zuges zusammengeführt. Bild 7 erklärt das anschaulich: 
Nur der Teil innerhalb des »Rahmens« wurde von »Merge« 
bearbeitet. Sie müssen also <M> eventuell mehrmals 
anwenden, um ein ganzes Bild zusammenzuführen. Bevor 
wir nun zu den für Multicolorgrafiken so wichtigen Farb- 



Blld 3. Verschiedene Anwendungen des <*>-Kommando& 
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funktionen und ihrer Verwendung kommen, noch ein klei¬ 
ner »Spezialeffekt«; 

< —> Verschieben (Sllde) 

Verschiebt den ganzen Bildschirm beliebig weit. Dazu 
einfach den Cursor etwa in die Mitte des Bildschirms brin¬ 
gen, < - > drücken und mit dem Joystick den Cursor so 
weit entfernt vom Ausgangspunkt positionieren, wie die 
Verschiebung sein soll. Nach einem weiteren Druck auf 
<-> wird der gesamte Bildschirm nun wie gewünscht 
verschoben, wobei auf einer Seite »verschwundene« Bild¬ 
telle auf der jeweils gegenüberliegenden Seite wieder auf¬ 
tauchen. 

Es kommt Farbe ins Spiel 


Wie bereits am Anfang erklärt, werden die vier Zeichenfar¬ 
ben mit den Tasten <1 > bis <4> angewählt, wobei <1 > 
für die Hintergrundfarbe steht. Nun will man natürlich nicht 
immer mit den festgelegten Farben des Programms arbei¬ 
ten, sondern alle 16 Farben des C64 verwenden. Um die 
Farben umzuschalten, wird die entsprechende Farbtaste 
zusammen mit < SHIFT> gedrückt, was bei jedem Tasten¬ 
druck die Farbe um eins welterschaltet, so daß Sie also 



Bild 5. Oben: »Opaque« aus-, unten: eingeschaltet 


(nach dem Einschalten) mit <SHIFT 1 > den Hintergrund 
von Weißauf Rot ändern. Mit <SHIFT5> läßt sich die Rah¬ 
menfarbe weiterschalten. 

Bel Hintergrund und Rahmen Ist die verwendete Farbe 
sofort sichtbar, bei den Zeichenfarben <2> bis <4> sieht 
man aber erst nach dem Zeichnen, welche Farbe verwen¬ 
detwurde. Mit Hilfe des Farbmenüs (Bild 8), das mit <F3> 
eingeschaltet wird, sehen Sie (unter »CI« bis »C5«) nun 
sofort, mit weicher Farbe und Farbnummer die Tasten <1 > 
bis <5> belegt sind. Im Farbmenü werden die Farben wie 
im Zeichenmodus mit <SHIFT Farbnummer> weiterge¬ 
schaltet. Zusätzlich zeigt der Computer alle Farben mit 
Nummer und einem Farbbalken an. 

<SHIFTA>, <SH1FTB>, <SHIFTC>, <SHIFTD> 
Füllen mit Farbmustern (Patterns) 

Wenn Sie noch einmal auf das Farbmenü umschalten, 
sehen Sie rechts unten vier verschiedene Muster, die mit 
»A« bis »D« beschriftet sind. Sie können ebenfalls zum Fül¬ 
len von geschlossenen Linienzügen verwendet werden. 
Dazu wird der Cursor einfach in den zu füllenden Körper 
bewegt und <SHIFTA> für das Muster A, <SHIFTB>für 
das Muster B und so weiter gedrückt. Genau wie die »nor¬ 
malen« Füllvorgänge ist auch das Füllen mit Mustern durch 
<RUN/STOP> abbrechbar. Man kann übrigens erstaun¬ 
liche Effekte erzielen, wenn ein Füllvorgang mit 

10 



Bild 6. Verschiedene Anwendungen des <G>-Befehls 


<RUN/STOP> abgebrochen und dann die R-Taste 
gedrückt wird. Besonders interessant werden die Farbmu¬ 
ster nun dadurch, daß Sie sie selbst mit Hilfe des Joysticks 
ändern können. Dazu muß mit <F3> auf das Farbmenü 
umgeschaltet werden. 

Füllmuster selbst entworfen 


sie sehen nun rechts unten die vier bereits fertig definierten 
Füilmuster und darüber eine starke Ausschnittvergröße¬ 
rung eines der Muster. Sie Ist mit »FILL« und dem Buchsta¬ 
ben des gerade vergrößerten Musters beschriftet. Mit den 
Buchstaben <A> bis <D> wird zwischen den Mustern 
umgeschaltet. 

Durch Druck auf den Feuerknopfsetzen Sie einen Punkt 
in der gerade gewählten Farbe, die wie üblich mit <1 > bis 
<4 > umgeschaltet wird. Genau wie beim Zeichnen iassen 
sich die Farben mit < SHIFT1 > bis < SHIFT 4> weiter¬ 
schalten. Mit < RETURN > kommen Sie wieder in den Zei¬ 
chenmodus. 

<FS> Farbmaskierung (Color Mask) 

Um alle 16 Farben des C64 auf dem Bildschirm verwen¬ 
den zu können, verwendet das Programm einen Trick: die 
»Farbmaskierung«. Das Funktionsprinzip dieser Maskie¬ 
rung ist, daß die beiden Zeichenfarben <2> und <3> 
durch eine frei wählbare Farbe ersetzt werden, wobei man 
allerdings auf 4 x 8-Punkt-Blöcke beschränkt bleibt. Das 
klingt kompliziert, wird aber schnell klar: Zeichnen Sie mit 
den Farben <2>, <3> und <4> etwas auf den Bild- 



Bild 7. »Merge« wirkt nur Innerhalb des Linienzuges 
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schirm. Drücken Sie <F5> und bewegen den erscheinen¬ 
den kleinen Kasten auf einen mit der Farbe <2> gezeich¬ 
neten Bereich. Durch (ein- oder mehrfaches) Drücken auf 
< 2 > (nicht < SHIFT 2 >) stellen Sie die gewünschte Farbe 
ein, und mit dem Feuerknopf werden alle in der Farbe < 2 > 
gezeichneten Dinge in dem Kasten mit der neuen Farbe 
eingefärbt, während die Farben <3> und <4> unangeta¬ 
stet bleiben. Analog wird mit der Farbe <3> verfahren. 
Beendet wird der Farbmaskierungs-Modus mit 
<RUN/STDP>. 


Bild 8. Das Farbmenü von Paint Magic 

Bei der Farbmaskierung sind drei Dinge wichtig: 

1. Achten Sie beim Erstellen Ihrer Zeichnung darauf, daß 
die Bildteile, die mit der Farbmaskierung bearbeitet werden 
sollen, nur mit den Farben <2> und <3> gezeichnet wer¬ 
den dürfen, da <F5> nur auf diese beiden Farben wirkt. 

Anwendung von <F5> sollte die letzte Arbeit an 
einer Grafik sein, da andere Funktionen des Programms 
möglicherweise die Originalfarben wieder hersteilen. 

3. <SHIFTCLR> löschtdie Farbmaskierung nicht. Dies 
geschieht erst nach <SHIFT 2> oder <SHIFT 3>. 

Um Ihre Werke der Nachwelt zu erhalten, stellt Paint 
Magic einige Diskettenkommandos zur Verfügung. Dies 
sind: 

<SHIFTF> Directory (Cataiog) 

<SHIFT S> Bild speichern (Save Picture) 

<SHIFT L> Bild laden (Load Picture) 

Sie können Bilder auch in Basic mit 
LOAD "BildnEu:ie",8 
RUN 

laden und anzeigen, da die Bilder mit einem Basic-Start 
und einer Assembler-Routine, die das Umschalten auf die 
Grafik übernimmt, versehen sind. 

<SHIFT K> Bild auf der Diskette löschen (Kill Picture) 
Um Ihnen die Übersicht über die vielen Funktionen von 
Paint Magic zu erleichtern, haben wir sie in Tabelle 2 noch 
einmal übersichtlich zusammengefaßt. 

Ibbelle 2. Die Funktionen von »Paint Magic« auf einen Blick (Andreas Lietz/sk) 


tt COLOR 


SAMPLE Ci C2 C3 C4 C5 




2 REO 

3 CVAN 

4 PURPLE 

5 GREEN 

6 BLUE _ 

7 VELLOM 

8 ORANGE 

9 BROUN 

10 LT RED 

11 DARK 6REV 

12 MED GREV _ 

13 LT GREEN ft 

14 LT BLUE 

15 LT GREV ; 

PRESS CTaftlUit:' TO DRAU 


0 16 2 0 


FILL A 


A B 


Taste 

Funktion 

Zeichenbefehle 

<■> 

Einzelnen Punkt setzen 

<L> 

Linie 

<C> 

Kreis 

<B> 

Rechteck 

<•> 

Strahlen 

Allgemeine Befehle 

<F1> 

Hllfsblldschirm anzeigen 

< RUN/STOP > 

Befehlsausführung beenden 

<SHIFT CLR> 

Bildschirm löschen 

<R> 

Befehl zurücknehmen 

<SPACE> 

AuschnIttvergröBerung ein/aus 

<CBM 1> bis 

Geschwindigkeit des Cursors 

<CBM 8> 

einslellen 

<-> 

Grafik verschieben 

<@> 

Cursor ein/aus 

Füllbefehle 

<P> 

Fläche mit einer Farbe füllen 

<H> 

Fläche mit zwei Farben In 

<V> 

waagerechten Linien füllen 

Fläche mit zwei Farben In 

<D> 

senkrechten Linien füllen 

Fläche mit zwei Farben In 

<SHIFTA> bis 

diagonalen Linien füllen 

Fläche mit einem der 

<SHIFTD> 

selbsterstellten Farbmuster 

A bis D füllen 

Arbeiten mit Bereichen 

<G> 

Bereich als Pinsel definieren 

<0> 

Hintergrund des Pinsels 

<T> 

durchsichtig machen 

Bereich verzerrenföpiegeln 

<l> 

Bereich kopieren 

Zweite Bildechirmselte 

<E> 

Bildschirmselten wechseln 

<S> 

Eine Blldschirmselte in die 

<M> 

andere kopieren 

Bildschirmselten zusammenführen 

Farbeteuerung 

< 1 > bis <4> 

Zeichenfarbe wählen 

<SHIFT 1> 

Hintergrundfarbe welterschalten 

<SHIFT2> bis 

Zeichenfarben weiterschalten 

<SHIFT 4> 
<SHIFT5> 

Rahmenfarbe weiterschalten 

<F3> 

Farbmenü aktivieren 

<F5> 

Farbmaskenmodus ein/aus 

Diskettenbefehle 

< SHIFT F> 

Directory 

<SHIFTL> 

Bild laden 

<SHIFTS> 

Bild speichern 

<SHIFT K> 

Bild löschen 


Name 

1 

Dal nt 

m«Qic 



0001 2B60 

0059 

1 

00 

00 

00 

00 

00 

00 

00 

00 

5a 

oaci 


00 

55 

55 

55 

55 

00 

00 

00 

El 












0B61 

1 

00 

00 

00 

00 

00 

00 

00 

00 

62 

0Gc9 

1 

00 

aa 

aa 

aa 

aa 

00 

00 

00 

c9 

OQOl 

t 

Od 

OB 

c3 

07 

9b 

20 

32 

30 

30 

0069 

1 

00 

00 

00 

00 

00 

00 

00 

00 

6a 

08dl 

1 

00 

ff 

ff 

ff 

ff 

55 

55 

55 

7b 

0609 


36 

36 

29 

00 

00 

00 

00 

00 

aS 

0B71 

1 

00 

oo 

00 

00 

00 

00 

00 

00 

72 

06d9 

ft 

55 

00 

00 

00 

00 

55 

55 

55 

d9 

08tl 


00 

a9 

07 

a2 

36 

06 

fb 

BS 

Bf 

0079 

1 

00 

00 

00 

00 

00 

00 

Oa 

aa 

f7 

OBel 

1 

SS 

as 

SS 

55 

55 

55 

SS 

55 

6l 

0019 

1 

fc 

a9 

7d 

a2 

80 

06 

fd 

B5 

dd 

OBBl 

8 

00 

OS 

02 

00 

OB 

02 

00 

08 

a.7 

0069 

ft 

55 

aa 

aa 

aa 

aa 

55 

53 

55 

e9 

0821 

1 

fm 

aO 


ce 

dO 

04 

«ä 

f c 

4b 

0889 

t 

02 

00 

OB 

02 

00 

08 

02 

00 

16 

OBfl 

1 

SS 

ff 

ff 

ff 

ff 

aa 

aa 

aa 

9h 

0829 


s6 

fe 

bl 

fb 

91 

fd 

dl 

fd 

c6 

0B91 

1 

00 

02 

00 

OB 

02 

00 

00 

02 

sO 

oaf9 

ft 

aa 

00 

00 

00 

00 

aa 

aa 

aa 

f9 

0831. 

0839 

1 

s 

f 0 

BO 

fl 

00 

6c 

20 

11 

BO 

80 

00 

SA 

20 

aa 

80 

aO 

00 

aO 

dS 

0099 

08 al 


00 

00 

Oa 

00 

aa 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

49 

a2 

0901 

* 

aa 

SS 

55 

55 

55 

aa 

aa 

aa 

00 

0041 

0049 

0851 


20 

00 

aa 

00 

20 

aa 

00 

80 

aO 

20 

00 

00 

00 

20 

00 

00 

00 

00 

20 

00 

00 

00 

20 

00 

2f 

cO 

79 

08a9 

OBbl 

O0b9 

8 

8 

t 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

aa 

b2 

ba 

LIstIng 1. »Paint Magic«. Bitte mit 
dem MSE (Seite 159) eingeben. 
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0TO9 

t 

aa 

aa 

aa 

aa 

aa 

aa 

aa 

aa 

OB 

Ocll 

1 

00 

51 

11 

15 

20 

24 

c2 

20 

Of 

Of 19 


S2 

86 

24 

84 

54 

ac 

OS 

de 

CC 

0911 

t 

aa 

f+ 

ff 

ff 

ff 

ff 

ff 

ff 

bb 

0cl9 

fl 

e4 

ff 

c9 

00 

60 

a2 

ff 

9b 

cO 

0f21 

fl 

CC 

OB 

de 

+0 

00 

aO 

00 

54 

SS 

0919 

t 

ff 

00 

00 

00 

00 

ff 

ff 

ff 

10 

Oc21 

1 

20 

b9 

32 

20 

27 

c2 

20 

d2 

71 

0f29 

S 

53 

84 

51 

84 

23 

a2 

20 

bl 

ce 

0921 

i 

++ 

53 

55 

SS 

SS 

ff 

ff 

ff 

20 

0c29 

1 

62 

20 

ab 

35 

20 

43 

99 

20 

la 

0+31 

1 

51 

91 

53 

91 

23 

cB 

dO 

+ 7 

+ d 

0929 

s 

++ 

aa 

aa 

aa 

aa 

ff 

ff 

ff 

28 

0c31 

fl 

95 

B2 

20 

f4 

03 

20 

33 

83 

bb 

0+39 

fl 

e6 

52 

e6 

S4 

e6 

24 

ca 

dO 

e9 

0931 

1 

++ 

ff 

ff 

ff 

ff 

02 

00 

00 

40 

0c39 

1 

20 

a7 

B2 

20 

ea 

96 

20 

6a 

aa 

0+41 

1 

ee 

60 

a9 

20 

a2 

40 

es 

52 

bS 

0939 

1 

02 

00 

00 

02 

00 

00 

00 

00 

7c 

0c41 

fl 

B3 

20 

te 

9B 

20 

4d 

G6 

4c 

Od 

0+49 

t 

06 

S4 

20 

le 

BS 

ae 

OB 

dd 

öf 

0941 

1 

00 

aO 

28 

00 

00 

00 

00 

02 

aO 

0c49 

1 

6S 

S2 

20 

2d 

c2 

ad 

00 

de 

f3 

OfSl 

fl 

BC 

OB 

dd 

+0 

00 

aO 

00 

84 

eS 

0949 

t 

00 

00 

02 

00 

00 

02 

00 

00 

da 

OcSl 

1 

29 

10 

OS 

42 

05 

43 

OS 

4S 

13 

0+59 

fl 

51 

B4 

53 

a2 

20 

4c 

64 

6c 

a4 

0931 

t 

00 

00 

00 

00 

00 

00 

00 

00 

52 

OcS9 

1 

OS 

46 

OS 

47 

OS 

46 

05 

49 

eS 

0+61 

1 

20 

2a 

c2 

a6 

4e 

»0 

06 

a9 

+ 4 

0959 

t 

00 

00 

00 

00 

00 

00 

00 

00 

5a 

0c61 

1 

OS 

44 

fO 

01 

60 

a6 

28 

a4 

Oa 

0+69 

1 

00 

BS 

4a 

+0 

OB 

ad 

00 

de 

BS 

0961 

t 

00 

00 

00 

00 

00 

00 

00 

00 

62 

Oc69 

fl 

29 

aS 

22 

4c 

87 

9a 

a9 

36 

f7 

0+71 

1 

29 

0+ 

49 

0+ 

aa 

aS 

Sd 

as 

ae 

0969 

1 

00 

00 

oo 

00 

00 

00 

00 

00 

6a 

0c71 

fl 

BS 

01 

20 

21 

C2 

a9 

00 

Bd 

30 

0+79 

fl 

3d 

aS 

29 

IB 

7d 

Id 

86 

b4 

+ a 

0971 

t 

00 

00 

00 

00 

00 

00 

aO 

00 

f4 

0c79 

fl 

12 

dO 

a9 

01 

8d 

19 

dO 

ad 

be 

0+ei 

fl 

4B 

+0 

0+ 

49 

3B 

aS 

2b 

bO 

c+ 

0979 

1 

00 

aO 

00 

00 

aO 

00 

00 

aO 

IS 

OcBl 

1 

19 

dO 

29 

01 

fO 

+ 9 

60 

43 

le 

0+89 

fl 

04 

»9 

+ + 

69 

01 

c9 

2a 

bO 

C7 

09SI 

1 

00 

00 

aO 

00 

00 

00 

00 

aB 

fb 

Oc09 

fl 

Sa 

dO 

06 

aS 

42 

29 

03 

dO 

a3 

0+91 

1 

2+ 

66 

c9 

cB 

bO 

29 

BS 

29 

3c 

09S9 

1 

02 

aO 

aS 

02 

aO 

00 

00 

00 

50 

0c91 

1 

Oa 

e6 

Sb 

a4 

Sb 

b9 

d2 

B2 

4a 

0+99 

fl 

aS 

47 

dO 

tf 

aS 

2B 

la 

7d 

+ 1 

0991 

1 

00 

aO 

oo 

00 

aO 

00 

00 

aO 

2d 

0c99 

1 

Bd 

27 

dO 

60 

aS 

45 

dO 

01 

c4 

0+al 

1 

Od 

66 

a4 

43 

+ 0 

0+ 

46 

3B 

3d 

0999 

1 

00 

00 

aO 

00 

00 

aO 

00 

00 

c7 

Ocal 

1 

60 

a6 

2c 

a4 

28 

dO 

06 

a4 

66 

0+B9 

1 

eS 

2a 

bO 

04 

49 

+ + 

69 

01 

Bc 

09b1 

1 

oo 

00 

00 

00 

00 

00 

00 

00 

a2 

0ca9 

1 

2d 

c4 

29 

fo 

08 

20 

22 

85 

b6 

0+bl 

1 

c9 

IB 

bO 

Oc 

66 

c9 

aO 

bO 

ed 

09b9 

1 

00 

00 

00 

00 

00 

00 

00 

00 

aa 

Oebt 

fl 

a9 

00 

20 

la 

83 

20 

60 

Sa 

f6 

0+b9 

1 

06 

es 

28 

c6 

3d 

dO 

ba 

60 

6b 

0901 

1 

00 

00 

00 

00 

00 

ca 

CS 

C4 

bB 

0cb9 

fl 

dO 

01 

60 

20 

12 

83 

aS 

28 

4a 

0+cl 

fl 

6B 

60 

00 

00 

00 

00 

♦+ 

+ + 

39 

09b9 

1 

c9 

c3 

c2 

cd 

38 

30 

11 

03 

Id 

Occl 

1 

83 

2a 

aS 

29 

BS 

2b 

60 

aS 

68 

0+c9 

1 

+ + 

+ + 

01 

01 

01 

01 

00 

00 

40 

09c 1 

1 

19 

83 

4d 

S2 

S2 

ff 

71 

BO 

25 

0cc9 

fl 

49 

dO 

03 

4c 

(5 

es 

20 

22 

07 

0+dl 

fl 

00 

00 

00 

+« 

01 

OO 

00 

ft 

al 

09c9 

t 

4a 

B2 

5f 

82 

6S 

B2 

b9 

B2 

03 

Ocdl 

1 

es 

a9 

f+ 

BS 

77 

aS 

2a 

85 

34 

0+d9 

fl 

01 

00 

00 

++ 

Ol 

oo 

00 

+ + 

ea 

09dl 

1 

d2 

82 

aS 

84 

fS 

B4 

15 

es 

+ 1 

Ocd9 

1 

le 

aS 

2b 

es 

19 

a6 

28 

86 

b4 

0+el 

fl 

01 

00 

20 

3+ 

86 

09 

03 

Bd 

aa 

09d9 

1 

22 

SS 

62 

es 

91 

es 

ab 

GS 

06 

Ocal 

fl 

2c 

a4 

29 

04 

2d 

4c 

7a 

9d 

9S 

0+e9 

fl 

00 

dd 

60 

20 

3+ 

86 

09 

02 

44 

09b1 

1 

4d 

86 

60 

86 

9d 

BB 

00 

89 

Sb 

Oca9 

1 

aS 

42 

30 

01 

60 

aS 

20 

19 

aO 

0+f 1 

fl 

Bd 

00 

dd 

60 

ad 

02 

dd 

09 

76 

09»9 

1 

28 

89 

9f 

89 

60 

Ba 

Bc 

Bb 

92 

Oef 1 

1 

65 

60 

c9 

aO 

bO 

14 

aa 

aS 

ae 

0+ + 9 

r 

03 

Bd 

02 

dd 

ad 
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Listing 1. (Schluß) 
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SofNSoolling 
mit allen Raffinessen 


Das Scrollen des Bildschirms läßt sich auf dem C 
64 sehr effektvoll gestalten. Wirstellen Ihnen eine 
Version dieser Technik vor, die sogar beschleuni¬ 
gendes Scrolling In alle Richtungen erlaubt. Ein 
hervorragender Effekt, den Sie für eigene Pro¬ 
gramme übernehmen tönnen. 

A uch wenn die neuen 16-Blt-Computer wie der Amiga 
oder der Atari ST den C64 in bezug auf die Grafikfä¬ 
higkeiten übertreffen, kann er mit ihnen in einem 
Bereich konkurrieren: die bewegte Grafik, Sie läßt sich auf 
dem C64 ieicht und unkompliziert erzeugen, was auf zwei 
primäre Ursachen zurückzuführen ist: Zum einen verfügt er 
übereinen Textmodus, in dem er nurwenige Daten zur Biid- 
darsteiiung verarbeiten muß. Dies geschieht folglich mit 
einer hohen Arbeitsgeschwindigkeit. Trotzdem sind hier 
Grafiken durch umdefinierte Zeichensätze mögiich. Zum 
anderen hat der Videochip des C 64 einige Besonderheiten 
wie die Scroll-Register und-den ieicht zu programmieren¬ 
den Raster-Interrupt aufzuweisen, 

Bestes Beispiel für eine effektvolle Kombination dieser 
Eigenschaften Ist das Verschieben dps Bildschirminhaltes, 
das sogenannte »Scrolling«: Verschiedene Spiele präsen¬ 
tieren es mittlerweile in Perfektion und erzeugen damit rea- 



Bild 1. Das Scrollprogramm in Aktion (aus diesem Grund Ist 
der Hintergrund verschwommen) 


ilstische Bewegungssequenzen. Doch auch in der physika¬ 
lischen Simulation kann es unterstützend eingesetzt wer¬ 
den. in diesem Kurs wollen wir Sie mit der Krönung des 


16 


SONDERHEFT 23 


















Direkt bestellen statt abtippen! 


Grafik- und Anwendun g sprogramme der Spitzenklasse 


Paint Magic: 

Dieses professionelle Multicobr Mai- und 
Zeichenprogramm entlockt Ihrem C64 die 
farbenprächtigsten Bilder. Trotzdem ist es so ein¬ 
fach zu bedienen, daß Sie von der ersten Minute 
an Ihre Freude an Paint Magic haben werdeii.,., 

Movie-Show: 

Ein Programm, das hochauflösende Grafik 
zum bben erweckt. Dank trickreicher Pro¬ 
grammierung werden bis zu 99 Hires-Grafiken 
im Speicher gehalten, so daß Sie beispiels¬ 
weise perfekte Simulationen von Vvellen- 
bewegungen und anderen physikalische 
Phänomenen erzeugen können. 

Börse Plus: 

Schnell reich werden ohne zu arbeiten - der 
C64 hilft Ihnen dabei. Börse Plus, program¬ 
miert von einem Börsenexperten, Ist ein vielsei¬ 
tiges Aktlenverwaltungsprc^ramm. Grafische 
Anzeige der Kursverläufe, Gewinnberechnun- 

g en, professionelle Charts und vieles mehr 
letet Börse Plus. 


Als kostenlose Zugabe befinden sich die Kurse 
wichtiger AGs der letzten Monate ebenfalls 
auf der Programmservice-Diskette. Natürlich 
finden Sie auch In diesem Sonderheft viele Tips 
ScTricks, beispielsweise Hardcopy-Program- 
mieruna für jeden Drucker, ein Programm zum 
'Süchen und Manipulieren von Sprites auf 
Diskette, einen Kurs zur Scroll-Programmlerung 
und vieles mehr. Natürlich enthält die Pro¬ 
grammservice-Diskette auch alle Programme, 
die mit einem Diskettensymbol H gekenn¬ 
zeichnet sind. 


Eine Diskette für C64/C128 
Bestell-Nr.: 15723 


DM29^90 


jft 

(sFr24,90löS299y-f) 

• UrN«ih(ndlichA Prakarrrmhlurta 


Wenn Sie Fragen zu diesen Programmen oder 
zu anderen Angeboten aus unseren Programm- 
Service haben, rufen Sie uns an: 

Telefon (089) 46 13-640 
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PROGRAMMSERVI€E 


Weitere Angebote 

gxaktm f>»rMp 0 ktlv» für SD-ObImkf 

PED: Top-Ksllng Kr den C64. PED slehl für l^ispsklivlsctier Entwurf und 
Oorttellung. Dieses Konstruklionsptogtomin besticht duich seine enorme 
Genauigkeit. Es Ist daher durchaus fOr den piofesslonellen Kor>slrukHonsent- 
wud oeelgnel. Sia kdnnen beliebige Objekte als maBstobsgetraue Gllter- 
rrodele cßißlallen und diese 30-Gia(ik drehen, spiegeln, veigrSBem, ver- 
Melnem und vieles mehr. Zusätzlich läBt sich ein vetzerrungslreler Ausdruck 
ersiellen, der aul Ihren Drucker angepoBt worden kann. Ola-Preezer: Mit 
diesem Progtcram können Sie Grallkblldor ous Pnjgrommen stehlen, Aut 
Kno^ruck speichern Sie den aktuellen GraHkblldschlnnlnholt aul Diskette, 
so oaB Sie Ihn mH dem mltgellelertan Dloshow.Absplolptogtamm jederzeit 
betrochten reder ouch ausdnjcken können. Sprite- und Zelchansotzadltor! 
VtMr mit Grollken arboitot, kommt an einem Sprite- und Zolchensat^itor 
nicht vorbei. Aul dieser Programmservlce-Dlsketlo zum Sonderheit 20 linden 
Se beides. Sowohl Grolikoblekle, die aus mehreren Sprites oder selbst- 
definierten Zeichen zusammengesetzt sind, als auch beugte Sprites wer¬ 
den durch diese komlorloblon Editoren unterstOtzl- NolOrtch onthOlt die 
Progrommservlce-Oiskette ouch olle Programme, die Im Inhaltsverzeichnis mH 
einem Diskettensymbol gekennzeichnet dnd. 

1 Diskette IOrCo4/C 128 

Bestell-Nr., 15720 DM 29,90* sFr 24,90/öS 299,-* 


Orafik, Grafik ohna £nd*... 

TEGRA: InderörIW-Ausgobe 10/67 bieten wir Ihnen mH diesem Programm 
eine Grofik-Beleblseiweiteiung besonderer Art. Tegra bietet 23 zurftzllche 
Boslc-Befehle, mit denen der Aufbou einer Hires-Gralik ousschtieBllch mit 
Sprites zum Klndeisplel wird. Durch diese ungewöhnliche Grallk-Erzeugung 
können Sie den Taxtblldschrrm mit einer hochauBösendon Grollk kombinie¬ 
ren. GroRkConvertrJetztist es endlich möglich, KIder der gebräuchlichsten 
Grollkptogramme wie Print-Shop Nev^toom, Hi-Edd und vielen mehr, 
untereinander auszutauschen. Ambush-Spooler: Mit diesem Hinlergnmd- 
Druckertieiber können Sie Ihren Computer dank ausgefeiller Interrupt-Pro- 

e tommlenjng vvöhiend des Dnjckens vv^terbenutzen. Selbstverstöndlich ent¬ 
ölt die Progrommservlco-Dlsketle auch olle ondeien Programme, die Im 
Inträllsverralchnis mit einem Diskettensymbol gekennzeichnel sind. 

I DisketteiürC64/Cl26 

Bestell-Nr., 10710 UM 29,90* sFr 24,90/öS 299^* 

Multlcolor-Dlashowi 
DIm betten Einsendungen 

Als Resullof des in Ausgabe 11/86 gestarteten Malwettbewerbs prösanlierBn 
wir Ihnen zwei Disketten, die beicßeltlg randvdl mit den besten BUemdes 
^^ttbewerbs bespielt sind. Um sovieleBilder wie möglich ^ssindelyro 100} 
auf den Disketten unterbringen zu können, wurden die Grotlksn gepackt, Mil 
Hilfe des milgelleleilen AlMplelprogramms werden die Bilder entpackt und 
können als Dtashow betrachtet werden, lassen Sie sich Oberrcsdien, welch 
hochwertige Grcifiken unsere begabten loser gesdiotfen haben. 

2 asketton tOr 064/0128 

Bestell-Nr. 11709 DM 19,90* sFr F^/öS 199,-* 


Fast unglaublich - 

3D-Körper In Eehtxelt drehen und wenden 

3D-Graltk-Masler Grollk au! dem Computer Ist lOr viele ein faszinierendes 
Themo. 3D-Grollk-Moster erlaubt es, beliebige dreidimensionale Gegen¬ 
stände leicht und komlorlabel zu entwickeln und diese last In Echizoll um jede 
beliebige Raumachse zu drehen. Spell Check V1.0 Mit dem Programm 
»Spell Check, können Sie eine Vlzowrlta-Toxtdotel ouf Rechtschreibung toer- 
prOlon und gleichzeitig korrlgleton. Madar-Convert Master-Convort wandelt 
Texte von knzawrile oi, Taxtomol Plus und Startoxter 64 in das Moster-Text- 
Formot um. ProDlic V2 Hierbei hondelt es sich um ln erweitertes Proasc mit 
noch mehr Bedienungskomfort. Weiterhin noch viele Utilities fdt C64 und 
CI28. Die Beschreibungen finden Sie in Ausgabe 11/66, 
askette farC64 

Bestell-Nr, 16 86 110 DM 29,90* sFr 24,90/öS 299,-* 

Entdecken Sie die vierte Dimension 
auf dem C6A 

3D-Movis-Moker: Mil diesem Programm können sie Trickfilme mit 3D- 
Kör^m realisieren. Es gertOgt dabei ein Bild einzugeben; oBe anderen Bilder 
berechnet der Compuler ous diesem Bild. Auchlompllzlerte Bewegungs- 
oblöufa können mOhelos erzeugt werden. Sternenhimmel: MH diesem Pro¬ 
gramm lOr Simons Basic können Sie sich Ober die Position von Fixsiamen und 
Planeten Inlormieion, VIC: Unlerholten Se sich mit Ihrem Compuierl Er 
ontworlet dobel sehr schnell und kann Ober viele Themen roden, er bezieht 
seine Antworten In den meisten Fällen auf den Eingabesatz und manchmal 
sind seine Antworten nicht ohne Witz. Außerdem viele Utilities lOr den C64 
und C 20. Die Beschreibungen linden Se In Ausgobe 5/65 
askette f0rC64 

Besiell-Nr. L6 8505A DM 29,90* sFr 24,90/öS 299/-* 

HIgh’Speed-Oraflkarwelterung - 
tcnnelfer geht's kaum 

HiRe»*Mosrer; HlRos*Moster Ist eine Graßkerweiterungs die sich ober in 
vielen Seziehungerks besonders der Geschwindigkeit, von anderen Erweite¬ 
rungen unlefsciwidet. 0« heföl, daß die misten Befehle in bezw ouf 
^hnelligkeit weit Ober dem Durchschnitt liegen. Mil dem Orcle-BefehFwer¬ 
den die schnellsten und genauesten Kreise gezeichnet« die auf dem C6^ 
möglich sind- AjBeidem gibt es einen fcomfoftabler Text*Befehl. Md Ihm Ist 


zum Thema Grafik 

es problemlos möglich, Texte on jede Stelle In die Grollk zu schreiben. Der 
TokI konn sogor In Spiegelschrift erscheinen, Grafle-Calc 64:Grofik-Colci5t 
ein unlvorsolles Programm zur Anfertigung von äußerst reprösentoli^n 
Goschölfsgrallkan. Dia zu bearbeitenden Daten lossen sich komlortobal ein- 

ä ebon una ouf zehn vorschledono Arten grafisch auswerlen. Dabei können 
le Grafiken mit beliebigen Schrlfttypen in unterschiedlichen GtöBen, Breiten 
und Schröglagen oplisch anschoulleh beschriftet werden. Um wIchHga 
Flächen hervorzuhebert, lassen sie sich mit 36 untarschledllchon Mustern 
fOlton. Hypro-Screenr Ohne Irgendwelche Hordwareerwoltarung bri^ 
Hypra-Screen 64 Zeichen pro Zelle ouf den Blldschlmi dos Cö4. lassen STe 
sich überraschen, die oußisrgewöhnllche Zellonbrelle hcjl enorme Vsrtella, 
fortnarverminlung; Dieses Programm sucht aus einer Vielzahl verschiedener 
Personendalen die optlmolon ßrtnet hetous. Qs Sie nun In größerem MoB- 
stab künftige Ehepartner vermllteln möchten, oder dieses Programm Porlner- 
vormltllung für 'Aronstoltungen oder Parties verwenden, wollen wir Ihnen 
überlassen. Sicher Ist |edocn, daß äe eine Menge ^ß daron haben wer¬ 
den. Klima 64: Kllmc^aten oller Konlinenle uncTIAnder dieser Erde können 
So mit Kümo M leicht und schnell verwolien und grafisch auswoiten. Ligo- 
boie: Ugabose Ist In der löget Sie stöndig über den derzeitigen Tabelfen- 
slond zu Informieren und darüber hinaus auch einen Überbljck über das 
Splolgeschohen der laufenden oder vergangenen Saison zu bietet. Datei 
64: We eKeklhr eine unkompliziert aufgaboute Datei sein kann, demonstriert 
dieses Programm. Datei 6t erloubt den Aufbou von bis zu neun Feldern pro 
Dolonsatz und kann dodurdi schon die meisten Korteikorlon orselzon. Außer¬ 
dem noch viele Programme zu den Themorr Grafik und Musik sowie wleto 
Anwondorprogtommo. Die Beschreibungen finden Sie im Sonderheit Aus¬ 
gabe 11/86 förollk, Musik, Anwendung) 

Diskette f0rC64 

Bestell-Nr., L6 86 Sil D DM 29,90* sFr 24,90/öS 299,-* 


Sprite-Detigner für eigene Spiele 

EDE: EDE ennöglicht es Ihnen, eigene %Jrite5 zu entwickeln und zu veiön- 
dem. Zusötzlich besteht die Möglichkoil, Sprites aus fremden Programmen zu 
betracben und zu marrlpulieten. Außerdem bl auf der Diskette eine Sprile- 
Brbliolhek mit vielen Standord-Sprites. Hypra-Copy; H«3roCo(w ist ein 
schnelles und komfortobles Fllecopy-Ptogramm für den C64, Des Kopjaisn 
wird um das Vier- bis FOnfIdche beschleunigt. Weiterhin viele Tips und Tricks 
für den C64. ae BMchtelbungen linden Sie im Sonderheft Ausgabe 5/86 
(CW-Grundwisseiij 
I Diskette fürden C64 

Bestell-Nr., L6 86 S5D DM 29,90* sFr 24,90/öS 299,-* 
S’ksn onu-nir^ 

Schachgrafik In 3D 

SchochgroRk: VvbIlen Sie Ihrem Schochpiogramm zu einer löumlidien Dor- 
slellung verhelfen rodar wichtige Schachpartien speichern? Beses Programm 
belnhdlet wertvolle Routinen dofOr. Diiectory-Sortor: Mit diesem Programm 
bringen Sie auf bequeme Wtelse Ordnung ln die Directortas Ihrer Disketten. 
Filemonoger: irgendwann steht wohl |ederC64-Besitzerverzelfellw:vseiner 
Diskottensommlung ur>d sucht ein bestimmtes Programm. Ohne eine em- 
spiochende Liste tonn dos jedoch zu einer aufwendigen Sudia fohren, file- 
manager schctlft hier wirkungsvoll Abhilfe. GroRc Art: Einfarb- und Mehr- 
larbsprites lassen sich mit diesem Programm leicht, Obeisichlllch und vor ollem 
schnell erstellen, böorbeiten und speichern, Modulgen Modulgen ermög¬ 
licht dos bmlortablo Gorserieten eines aus bis zu fünf Programmen (Beste 
oder Maschinensprache) bestehende Auto-Start-Moduls mit Menüsleue* 
rung. Dieses Modul kann onschlleBend mllderTielbon-oflwaro des EPROM- 
Bionners auf ein EPROM übertrogen worden. Weiterhin sehr viele Tips und 
Trieb (Or den C64. Die BeschteiBungon finden Sie Im Sonderheft Ausgabe 
2/66 {Tips und Trieb) 

I Diskette für 064 

Bestell-Nr., 16 86 S2D DM 29,90* sFr 24,90/öS 299^* 

Endlich programmierbar: 

die maximale AuHötung des C128 

Gfafik-80 Mit diesem Programm können Sie nun auch alle Grafikbofehle des 
Baslc7.0lüro1ne Auflösung von 640x200 Punkten nutzen. RoulaHe C128 
Dieses Rauteltespiel zeichnet sich durch olle Selzmöglichkelten aus, die es 
beim richllgon Roulette auch gibt. Es können moximal fünf Spieler teilnehmen, 
Mandelbrol Dieses Programm erzeugt die sogenonten Choos-Grafikan auf 
Ihren C128-Zusätzlich viele Tips unoTricb fürden C128. Die Beschrolbun- 

S sn linden Sie im Sonderheft Ausgobe 1/86 (128er) 
lskattefürCI28 

Besteil-Nr., L6 86 SID DM 29,90* sFr 24,90/öS 299,-* 


Oraflk-Programmlerung leicht gemacht 

Grafik 2000: 43 neue Befehle, die Ihrem C64 auf einfachste Welse Grafik 
entlocken. Po sich das Programm und die zwei Grallkbildschirme oußerholb 
des Basic-Speichets befinden, steht Ihnen der volle Boslc-Spokhor zur Vsr- 
fügung. SD-SupaigroRk: MH diesem Programm Ist es möglich, bell^ige 
dreidimensionale Körper zu drehen und In verschiedenen Peispekliven dorzu- 
stellen. Oie Besonderheit dieses Programms ist jedoch, doß es eine RouHne 
zur läsung des Hlnfeischneidungsproblems besitzt. Diese Routine BimOgllcht 
Oi, Körper riaturgetreu donustellerr. SpriM+Grafik*Baitc: Diese fOr den 
C64 geschriebene Bosic-Erwdlerung wurde speziell für dos ProgroinmlerBn 
von Sprites und hrochauflösender Grafik entwickelt, enthält (odoch auch 
zusätzliche, nicht grafiklMzogene Befehle Und viele Tips und Trieb für den 
CM. Die Beschreibungen linden Sie im Sonderheft Ausgobe 4/85 
(TIps&TrIcb) 

1 Diskette für C64 

BostBli-Nr., 16 85 S4A DM 29,90* sFr 24,90/öS 299,-* 

•Unverbindliche Prelsampfehlung 



$ia $uch«n pocktnd* 

Ikilifoich«* UtiHd«) und preletli: 
rtrile Anwendungsn fOr IHren 
Coinpulirl 6i« wünichirt iicK 
guffl Sollwore tu v^rnOnlrigtn 
Hier linden Sie beldesl 
Unter tretia wachtendei Sotil* 
menl enihäil in(ere»on(e tiitlng* 
Software (itr eile göngigen 
Corr^pulerlypen. Jedtii Manal 
11 sich unter okluelle» 

Angebot um e»r^e weilere inler* 
eitania Programrrktornrnlung fOr 
jeweilt einen Computetlj'p, 

Wenr« Sie Fragen lu dert Pro* 
gramrnen In unterem Angebot 
hoben, rufen Sie uni an; 
teleion (089) 4613-640 
oder (089)4613-1 33. 

ßetlellungen bitle an. 
Morkt&Technik VeHog AG, 
Uolernehmentberelch 
Buchverlag, Hant'Plntel- 
Straße 2, D-6013 Haar, 

TeMon (089)4613-0 

Schweiz; Marki&Technlk 
Vertriebs AG, 

Kollersirosse 3, CH-6300 Zug, 
Telefon {042| 4156Sö. 
Olterreich; Üeberreuter Medio 
Hendels und Verlagsgeiell- 
schall mbH (Großhandel), 
loudongaise 29, A-1082 Wierk, 
Telefon (0222) 481543.0. 
BetfoHungen oui anderen 
ländern bitte nur schrifllleh an; 
Ma r kt & Technik Verlag AO, 

Abt. Buchverirleb, Hans-Pinsel- 
Straße?, 0-80!3 Hoot. und 
gegen Bezahlung einer Rech* 
nung im voraus. 

Bitte verwenden Sie für Ihre 
Beiteilung und Überweisung die 
abgeJruckte PosIgiro-ZaSlkorte, 
oder finden Sie uns einen 
Verrechnungs-Scheck rnil Ihrer 
Bestallung. Sfe erleichtern ur>s 
die Auhragtabwlcklung, und 
dafür berechnen wir ihnen keine 
Versandkosten 
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Scrollens vertraut machen: Wir stellen Ihnen ein zweidi¬ 
mensionales Scrollsystem vor, welches eine beschleunigte 
Bewegung In alle Bildschirmrichtungen ermöglicht. Das 
Programm dazu wurde so gestaltet, da6 eine Erweiterung 
ieicht mögiich ist. Der Queiicode im Listing 2 dient dabei als 
Basis für die Erläuterungen und ermöglicht Ihnen die 
Anpassung des Programms an individuelle Erfordernisse. 
Bild 1 zeigt Ihnen das Scroll-Programm in Aktion (daher 
auch der verschwommene Hintergrund). Einen weiteren — 
etwas kuriosen — Effekt sehen Sie in Bild 2; Sogar über 
den I/O-Bereich bei $D000 läßt sich scroiien. 

Physikalische Grundlagen 


Um der programmtechnischen Realisierung dieses Vorha¬ 
bens besser foigen zu können, wollen wir zuerst die Bewe¬ 
gung und ihre physikalischen Grundlagen betrachten. 
Jede Bewegung eines Körpers läßt sich ganz allgemein als 
dessen Positionsänderung in einem bestimmten Zeitinter¬ 
vall auffassen. Dies geschieht mit einer Momentange¬ 
schwindigkeit »V«, welche ihrerseits konstant oder verän¬ 
derlich ist. Bei konstanter Geschwindigkeit liegt eine 
gleichmäßige Bewegung vor. Stellen wir uns hier beispiels¬ 
weise einen Radfahrer vor, dessen Tacho ständig densel¬ 
ben Wert anzeigt. Pro Sekunde legt er immer die gleiche 
Wegstrecke zurück, wenn die Geschwindigkeit konstant 
bleibt. Ist die Bewegung dagegen beschleunigt, verändert 
sich die Geschwindigkeit mit derzeit. Bei einer als konstant 
angenommenen Beschleunigung wird das bewegte Objekt 
kontinuierlich schneller. Ein fallender Tennisbali soll uns 
dies verdeutlichen: Sobald er unsere Hand verlassen hat, 
erhöht er seine Geschwindigkeit ständig. Er legt also die 
gleiche Wegstrecke in immer kürzerer Zeit zurück. Diese 
zwei Formen der Bewegung lassen sich auch in Diagram¬ 
men darstellen, welche den grundsätzlichen Unterschied 
nochmals verdeutlichen. Betrachten Sie hierzu bitte Bild 3. 



»Scrollsystem« scroiien. Ein netter Effekt (diesmal sehr 
langsam). 

Eine weitere Tatsache ist für uns ebenfalls interessant: 
Jede Wegstrecke hat eine für sie charakteristische Rich¬ 
tung. Da Geschwindigkeit und Beschleunigung die Weg¬ 
strecke bestimmen, handelt es sich auch bei ihnen um 
gerichtete Größen. 

Der Vektor leigt die Richtung 


Wir können sie folglich als Vektoren auffassen, und da 
unser Scrollsystem ebene Bewegungen simulieren soll, 
werden’vir uns auf zwei Dimensionen beschränken. Bild 4 
zeigt verschiedene Lagen von Vektoren und deren Unter¬ 
scheidungsmerkmale: Den Neigungswinkel gegenüber 
der Horizontalen und die Länge. Doch diese Form der Dar- 


a) Die Bewegung mit konstanter Geschwindigkeit 

, 

Weg s 



, 

, 

/ 

/ Geschwindigkeit 

Beschleunigung 


/ 

a 


Zeit t * 

Zeit t 

Zeit t 

s - Vt 

V a konst. 

a - 0 


b) Die gleichmäßig beschleunigte Bewegung 




Zeitt 

a = konst. 

Bild 3. Zwei Formen der Bewegung a) mit konstanter Geschwindigkeit und b) die gleichmäßig beschleunigte Bewegung 
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Stellung ist für unsere Pläne nicht geeignet. Deshalb zerle¬ 
gen wir unsere Vektoren wie in BildS In eine horizontale und 
eine vertikale Komponente, die wir getrennt verarbeiten. 
Durch deren Kombination ergibt sich dann wieder der 
ursprüngliche Vektor. Diese Form der Darstellung hat noch 
einen weiteren Vorteil; Die eindimensionalen Komponen¬ 
ten von Weg, Geschwindigkeit und Beschleunigung dürfen 
negative Werte annehmen. Indiesem Fall ändert sich ledig¬ 
lich die Richtung des Vektors. 

Wie verwenden wir diese Erkenntnisse nun auf dem 
Computer? Wie kann man sie auf den C64 übertragen, und 
welche Ergebnisse lassen sich erzielen? 

Die Beantwortung dieser Fragen soll unser Scrollsystem 
liefern. Es liegt als Llsting 11m MSE-Format und als Quell¬ 
code in Listing 2 vor und zeigt nach dem Programmstart ein 
stilisiertes Höhlenlabyrinth im oberen Teil des Bildschirms. 
Das Programm Hegt im kompaktierten Format mit Basic- 
Start vor und kann daher mit: LOAD"SCROLL.KOMP",8 
geladen werden. Nach dem Start mit RUN wird das eigentli¬ 
che Scrollprogramm nach $C000, der Hintergrund nach 
SAOOO bis $BFFF verschoben. 

In der Mitte des Bildschirms befindet sich ein Raum¬ 
schiff. das sich mit dem Joystick in Port 2 in alle Richtungen 
des Bildschirms steuern läßt. Um diesen Effekt zu erzielen, 
wird der Stollen unter dem Schiff durchgezogen, also ge- 
scrollt (Bild 1). Dies geschieht mit einer Geschwindigkeit, 
die sich bis zu einem Maximalwert steigert. Läßt man den 
Joystick los, bremst das Raumschiff langsam ab und 
kommt schließlich zum Stillstand. Auch eine Richtungsum¬ 
kehr erfolgt nicht abrupt: Zuerst wird die Geschwindigkeit 
bis auf Null reduziert. An diesem Punkt wird die Bewe¬ 
gungsrichtung umgekehrt und erhöht sich wieder. Hier liegt 
also eine beschleunigte Bewegung vor, sie Ist auf dem C 64 
durchaus effektvoll darzustellen. Doch auf welche Weise 
wurde dies realisiert? Wie sieht das dazugehörige Pro¬ 
gramm aus? 


Unterscheidung von Geschwindigkeit 
und Beschleunigung 


Nun, grundsätzlich besteht das Scrollsystem aus Routi¬ 
nen, die im Rasterinterrupt ablaufen. Dadurch erreichen 
wir eine flackerfreie Bewegung, deren Berechnung als 
Hintergrund-Task (im Interrupt) abläuft. Um ein Scrollen 
des Bildschirms zu erreichen, sind prinzipiell zwei Dinge 
nötig: Erstens muß das Softscroll-Register Im Videochip 
(bei VIC+17 bzw. VIC+22) laufend verändert werden. 
Dadurch verschiebt sich der Bildschirm pixelweise, was 
man als »Softscrollen« bezeichnet. Dies funktioniert aller¬ 
dings nur bis zu einer Zeichenbreite (also 8 Pixel), dann 
läuft das VIC-Reglster über beziehungsweise unter. Des¬ 
halb müssen wir zweitens feststellen, wann dies der Fall Ist 
und dann den Bildschirmspeicher um ein Zeichen In die 
jeweilige Richtung verschieben. Diesen Vorgang bezeich¬ 
net man auch als »Hardscrollen«. Unser Scrollen erfolgt 
also durch das Zusammenspiel von Pixel- und Zeichenbe¬ 
wegung. Außerdem läuft es Im Textmodus ab, denn hier 
benötigt ein Bildschirm nur 1 KByte Speicher und ist damit 
schnell genug zu verschieben. 

Bei den folgenden Ausführungen sollten Sie den Quelt- 
code des Scrollsystems, Llsting 2, stets Im Auge behalten. 
Der Quellcode Ist im Startool-Format geschrieben. Ist 
jedoch leicht an den Hypra-Ass oder unseren neuen 
Assembler Giga-Ass aus diesem Sonderheft anzupassen. 
Da der Code relativ lang ist, liefert Bild 6 eine Grobglie¬ 
derung davon. Zudem erklärt Tabelle 1 die für unser Pro¬ 
gramm wichtigen Register im Videochip. 



I. Gleich gerichtet, aber unterschiedlich lang 



II. Gleich lang, aber unterschiedlich gerichtet 



III. Weder gleich lang, noch gleich gerichtet 


mit 


I , _ Länge des 
'2 - Vektors 




Neigungs¬ 

winkel 


Bild ^ ~'e unterschiedlichen Vektoren In der Ebene 


Das Listing beginnt mit der Definition oft verwendeter 
Register und Routinen als Label. Der erste Teil des Pro¬ 
gramms initialisiert dann einen zweigeteilten Rasterinter¬ 
rupt und schafft so die Voraussetzungen für die anderen 
Routinen, welche entweder im oberen oder unteren Bild¬ 
schirmfenster ablaufen. 

Wir wollen uns zuerst mit der pixelweisen Bewegung im 
oberen Teil beschäftigen, da hier die anfangs gewonnenen, 
physikalischen Erkenntnisse von entscheidender Bedeu- 



Ebenes Koordinatensystem 


X 


*■ 


Xy; Horizontale Komponente 
Yv: Vertikale Komponente 


Bild 5. Vektoren, die computergerecht aufbereitetet sind 
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Spelcherslelle 

Bedeutung 

VtC-$D000 

Basisadresss Videoclilp 

VIC+26; 

Legt beim Beschreiben den VIC-IRO fest 

Bit 7; VIC-IRQ ein 

Bit 3: LIghtpen-IRQ 

Bit 2: SprIte/SprIte-Kolllsions-IRQ 

Bit 1: Sprite/Hlntergrund-Kolllslons-IRO 

Bll 0: raslerlnterrupt 

VIC+25; 

Durch Lesen dieses Registers kann ein aufge¬ 
tretener VIC-IRQ bestimmt werden, Belegung 
wie VIC-i-26 

VIC+18 und 
VIC417 Bit 7; 

Zelle für den Rasterinterrupt Im MSB/LSB 
Format 

VIC+17: 

Bit 0-2 Pixelwelses Scrollen, 

Vertikale Komponente 

VIC+22; 

Bit 0-2 Horizontale Komponente 


Tabelle 1. Fürs Scrollen wichtige Register Im VIC 


tung sind. Der entsprechende Programmabschnitt beginnt 
im Quellcode bei Zeile 174 und endet mit Zeile 513. In die¬ 
sen Routinen werden die beiden Softscroll-Register im 
Videochip verändert. Dadurch verschiebt sich der Bild¬ 
schirm pixelweise, was in eine bestimmte Richtung und 
somit vektoriell geschieht. Also können wir diese Bewe¬ 
gung computergerecht in eine vertikale und eine horizon¬ 
tale Komponente zerlegen, das heißt, jedes Softscroll- 
register wird in einem separaten Programmterl bearbeitet. 
Hier kommen nun die von derzeit abhängigen Funktionen 
des Weges, der Geschwindigkeit und der Beschleunigung 
ins Spiei. Da der Rasterinterrupt regelmäßig stattfindet, 
und somit vom einen bis zum nächsten Aufruf unserer Rou- l 
tine immer die gleiche Zeit vergeht, bleibt diese konstant. 
Wir brauchen also nur die Komponenten des Weges zu ver¬ 


ändern, um eine Bewegung zu erzeugen. Dazu addieren 
wir zum aktuellen Weg die Geschwindigkeit und legen die 
Summe als neuen Weg fest. Die Geschwindigkeit wird wie¬ 
derum durch die Beschleunigung verändert, welche bei 
einer Joystickbewegung einsetzt. Außerdem bringt die 
ständig miteinberechnete (theoretische) Reibung die 
Scrollbewegung nach dem Loslassen des Joysticks mit der 
Zeit zum Stehen, 

Durch Addieren schneller werden 


Die Erledigung dieser Aufgaben übernehmen im Pro¬ 
gramm einfache Additions- bzw. Subfraktionsroutinen. Da 
wir in alle Richtungen des Bildschirms scrollen, kann Jede 
Komponente positive und negative Werte annehmen. Die 
mit der Bewegung in Beziehung stehenden Variablen und 
Parameter wie Weg, Geschwindigkeit und Beschleunigung 
sind deshalb als vorzeichenbehaftete 8-Bit Zahlen ange¬ 
legt und befinden sich am Ende des Programms (Zeile 715 
ff.). Für die vertikale Bewegung wird das Softscrollreglster 
bei VIC-t-17 verändert, die Funktionsweise der dazu not¬ 
wendigen Routinen erläutert Ihnen Bild 7 in Verbindung mit 
dem Quellcode. Die horizontale Bewegung verläuft analog, 
nur bezieht sie sich auf das Register VIC-i-22. 

Um ein vollständiges Scrollen des Bildschirms zu erzie¬ 
len, reichen die bis jetzt erörterten Routinen allerdings 
noch nichtaus, wir benötigen weiterhin Programmteile zum 
zeichenweisen Verschieben des Bildschirmspeichers. Wir 
verlassen deshalb den ersten Teil des Interrupts und wen¬ 
den uns dem zweiten Abschnitt des Scroll-Programms zu, 
in dem bekanntlich das »Hardscrollen« abläuft. Wie ist dies 
konzeptiert? Welche Idee steckt dahinter und wie wurde sie 
-.re,aii%öJt? 

Ein übenliniensionaler Bildschirm 


Zellennummern im Ouellcode 

0-103 

114-156 
157-173 

514-618 
525-555 


556-618 


Bild 6. Das FluBdIagramm des Quellcodes veranschaulicht 
die Funktion des Scrollsystems 


174-513 

190-231 

243-317 

318-393 

394-468 

468-513 


Label-Oefinillon 

Raster-IRQ Initialisieren 

IRQ — 5^«" 

Welche Zelle? 

Oben Unten 

VIC-Parameter 

setzen 

VIC-Parameter 

setzen 

Softscrollen 
— vertikal 

Hardscrollen 

ausführen 

Softscrollen 
— horizontal 

Joystick abfragen 


Hardscrollen 

vorbereiten 

Platz für 
Erweiterung 

Sprites 4 Multiplikationstabelle 
Initialisieren 

Tabellen 


Nun, prinzipiell ahmen wir die Bilddarstellung des Compu¬ 
ters nach. Dazu organisieren wir den Speicher ähnlich wie 
den Bildschirmspeicher in Zeilen und Spalten, wobei diese 
Größen wieder in Variablen festgehalten werden. Dieser 
neu erstellte Bildschirm wird auch als »Scrollscreen« oder 
»Pseudobildschirm« bezeichnet und ist seinem Vorbild 
sehr ähnlich, allerdings kann seine Ausdehnung diejenige 
des »echten« Bildschirms bei weitem überschreiten. Wir 
sorgen nämlich durch eine Routine dafür, daß auf dem ech¬ 
ten Bildschirm immer nur ein Ausschnitt des Scrollscreens 
zu sehen ist. Diese Aufgabe übernimmt in unserem Scroll- 
system die Schleife in den Zeilen 561 bis 618. Welcher Aus¬ 
schnitt abgebildet wird, hängt von zwei weiteren Variablen 
ab, in denen die aktuellen X- und Y-Koordinaten gespei¬ 
chert sind. Sie heißen »XPQINTER« und »YPOINTER«. 
Werden diese verändert, verschiebt sich logischerweise 
der Teil im Scrollscreen, welcher abgebildet wird. Und 
genau dies wird im oberen Teil des Interrupts erledigt, und 
zwar immer dann, wenn ein Softscrollreglster »überläuft«. 
Somit erreichen wir durch die Kombination von pixel- und 
zeichenweisem Scrollen ein kontinuierliches Verschieben 
des Bildschirms, Bild 8 zeigt Ihnen nochmals das Prinzip 
des Hardscrollens anhand des Scrollscreens. 

Veränderung ist angesagt 


Ein weiterer Hauptbestandteil des Scrollsystems ist die 
Modifikation der Schleife, die den Abschnitt aus dem Pseu¬ 
dobildschirm holt und darstellt. Dies erfolgt wieder im obe¬ 
ren Teil des Interrupts (bei »HARDPREP», Zeile 483) und 
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YSPEED 

a 0 - nach unterr~~--^ 0 - nach oben 

YSPEED - YFRICT 

YSPEED + YFRICT 

“0? 

Nein Ja 


YSOFT + 
YSPEED 



VSOFT + YSPEED 
mit YSPEED < 0 

'NDbertrag.«^ 

Ja^^w^ein 

’syntertrao'^ 

NeifN./^a 

Härdecroll 

votberoilor 





Hardscrol 

'orberpiloi 


Ablauf In Zelle 248-277 

a) Scrollen mit Momentangeschwindigkell YSPEED 


erledigt eine entscheidende Aufgabe: Diese Routine 
berechnet aus den Zeigern und der Anfangsadresse des 
Scrollscreens die Speicherstellen und schreibt sie an die 
entsprechenden Positionen In der im unteren Teil des IRQs 
ablaufenden Hardscroll-Routlne. Somit ist es letztendlich 
diese Modifikationsroutine, die ein Scrollen ermöglicht. 
Ohne sie würde die Hardscroliroutine Ihre Werte Immer aus 
den selben Speicherplätzen holen und so eben nicht den 
Eindruck der Bewegung vermitteln. Vielmehr würde der 
Bildschirm ständig auf sich selbst abgebildet. 

Der Rest des Scrollsystems besteht aus Unterroutinen, 
die für die Funktion des Scrollens ohne Bedeutung sind. 
Hier werden die einzelnen Routinen initialisiert, das Ufo- 
Sprlte erzeugt und die Multiplikationstabelle für die Zelle Im 
Scrollscreen berechnet. 

Das Programm ermöglicht also, zusammenfassend 
gesagt, eine »saubere« Scrollbewegung, die genau den 
Gesetzen der Physik gehorcht. Wie übernehmen wir diese 
nun? Welche Ergebnisse sind damit zu erzielen und auf 
was muB man bei der Handhabung achten? 



b) Beschleunigen per Joystick 


Bedeutung der Parameter 

YSOFT = Position 
YSPEED ■ Momentangeschwindigkeit 
YACCEL = Beschleunigung 
YFRICT - Reibung 


Der Wert in YSOFT wird dann bei Zelle 202-211 durch 32 
geteilt und Ins vertikale Softscroltregister bei VtC+17 
geschrieben, was die eigentliche Bewegung verursacht. 


Zusammenfassung: 

YACCEL - YSPEED - YSOFT - VIC + 17 
YSOFT 


XACCEL - XSPEED - XSOFT - VIC + 22 

» — « : «Mat EinfiuS auf«, »verändert« 

Die einzelnen Komponenten 
ergeben die Gesamtbewegung 



Scrolling für den Eigenbedarf 


Diese Fragen sollen zum Abschluß beantwortet werden. 
Bekanntlich endet der Quellcode mit einer Parameter¬ 
tabelle. Hier befinden sich die Werte für Beschleunigung 
und Reibung. Sie sind durch einfaches Überschreiben zu 
verändern, wobei man Werte zwischen 0 und 127 verwen¬ 
den darf. Außerdem stehen hier noch zwei vorzeichenbe¬ 
haftete 8-Bit-Parameter namens »XCONST« und 
»YCONST«. Sie bestimmen eine konstante Bewegung, die 
von der Reibung unbeeinflußt bleibt. So werden Wind und 
ähnijcii'' Einflüsse simuliert. 

Auch die Position im Scrollscreen ist variabel und legt 
fest, wo im Stollen Ihr Raumschiff losfliegt. 

Doch es muß nicht bei einem simplen Stollen bleiben: Mit 
umdefiniertem Multicolor-Zeichensatz und einem selbster- 


1 Spalte & B Pixel ^ 1 Zeichenbreite 



Höhe: Anzahl der Zellen des Scrollscreens 

X/Y-Pointer: Aktuelle Koordinaten der linken 
oberen Ecke des Ausschnitts auf dem Bildschirm 


Bild 7. Programmierung der Bewegung In vertikaler 
Richtung 


Bild 8. Das Prinzip des Hardscrollens anhand des Scroll¬ 
screens Im Pseudobildschirm 
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Bildschirm 
$ 0400 - $ 07FO 


Sprites 

$ 0340 - $ 03B0 


Multiplikationstabelle 
$ CEOO-S CFFF 



Scrollscreen 
$ AOOO - $ BFFF 
(unter Basic-ROM) 


Scrollsyatem 
$ COOO - $ C400 


Bild 9. Speicherbelegung des Scrollsystems. Das Hauptprogramm liegt bei SCOOO 


Stellten Scrollscreen lassen sich bei entsprechenden 
gestalterischen Fähigkeiten sehr schöne Grafiken ä la »Url- 
dlum« erstellen. Da hierzu der Scrollscreen höchstwahr¬ 
scheinlich in seinen Ausmaßen verändert werden muß, 
sind diese Parameter ebenfalls variabel und heißen 
»BREITE« und »HOEHE« (Zeile 754 und 755), Weil es sich 
auch hier um 8-Bit-Werte handelt, können die Abmessun¬ 
gen maximal 255 mal 255 Zeichen betragen. Reicht dies 
nicht aus, muß das Scrollsystem zur Verwendung von 
16-Blt-Zahlen umgeschrieben werden, Dis Startadresse 
des Pseudobildschirms wurde als Label mit dem Namen 
»Tabelle« in Zeile 112 definiert. 


Das Scrollsystem an sich ist natürlich auch erweiterbar. 
Dies geschieht grundsätzlich durch Einbinden zusätzlicher 
Programmtelle ln den Interrupt. Diese dürfen allerdings 
nicht zu viel Zeit verbrauchen, sie sollten höchstens 
1/100stel Sekunde lang sein. Betrachten Sie hierzu bitte 
auch die bekannte Grobgliederung aus Bild 6 und die Spei¬ 
cherbelegung in Bild 9. 

Unser Scrollkonzept hat gezeigt, daß der C64 grafisch 
noch lange nicht zum alten Elsen gehört. Denn bis jetzt 
beherrscht keine der neuen 16-Blt-Maschinen das Scrol¬ 
ling so perfekt wie der Commodore 64. 

(Axel Pretzsch/sk) 


Name 

t 

scrol t • kaitip 



0801 

1034 

oaoi 

i 

Oe 

OB 

ca 

aS 

9e 

32 

30 

36 

84 

0809 

• 

35 

20 

46 

43 

43 

00 

00 

00 

7d 

0011 


aO 

00 

b7 

69 

07 

99 

00 

cd 

26 

0819 

• 

b9 

69 

OB 

99 

00 
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LIstIng 1. »SCROLL.KOMP«, 
Multldlrektionales Scrolling, per 
Joystick gesteuert. Start mit RUN. 
Bitte mit dem MSB (siehe Seite 1S9) 
eingeben. 
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KONSTANTE BEWEGUNG 

OtBQ 

0367 


CLC 


ADDIEREN 

04B1 

036B 


ADC 

XCONST 


04B5 

0369 


STfl 

XBOFT 


0453 

0370 


BCS 

RECHTBKARD 


04 B4 

0371 


RTS 



0495 

0370 

i 




0456 

0373 

LINKSCDNST 

LOA 

XSOFT 1 

BZU, ALB NSGATIUE 

0457 

0374 


CLC 

l 

ZAHL SUBTRAHIEREN 

04BB 

0375 


ADC 

XCDNST 


0469 

0376 


STA 

XSDFT 


0490 

0377 


5CC 

LINKSHARO 


0491 

0373 


RTS 



0498 

0379 





0483 

0390 





0494 

03G1 

I* HARD8CRDLI. 

DURCH AENOERN • 

0496 


038 e 

0393 

03 BH 

0398 

039S 

0397 


DES SPALUNZeiOERS 


AUCH HIER KANN EINE ASFRABE AUF 
QRENEEN 10 8CRQL1.BCRECN STEHEN t 


03SB 

LINXSKARD 

INC 

XPOINTER 

: EINE 

03B9 


RTS 


I NACH 

03S0 





OSSI 

RECHTSKARD 

DEC 

XPOINTER 

j BZU. 


B2U> NACK RECHTS 


0399 

0393 

0394 

039S 

0398 

0397 

0398 


JOYSTICK ABFRAGEN 


0338 

JOYSTICK 

LDA 

JOYPÜRT0 

0400 


RDR 


0401 


BCC 

JOYDBEN 

0400 


RQR 


0403 


BCC 

JOYUNTEN 

0404 

. 



0405 

HORIZONTAL 

LDA 

JOYPDRTB 

0406 


ROR 


0407 


ROR 


04QG 


ROR 


0409 


BCC 

JQYRECHTS 

0410 


RQR 


0411 


BCC 

JOYLINKS 

0410 

• 



0413 


RT9 



i BITS OURCN 
i ROTIEREN 
i UEBERPRÜEFEN 
: UND UEREUrrlGEN 


0414 ( 
0415 : 
0418 i* 
0417 j" 
0410 
0418 i« 
0490 :« 
0491 i 
0490 : 
0493 i* 
0494 i« 
0499 
0496 : 


DER JOYSTICK-BEUIESUNQ ENT¬ 
SPRECHEND GESCKUINQISKEIT 
UERAENDERN 


JOYSTICK NACH OBEN 


0497 

JOYDBEN 

LDA 

YSPESD ( 

BE9CHUIINDIGXEIT 

0486 


CLC 

J 

DURCH ADDIEREN OER 

0499 


ADC 

YACCEL i 

BE9CHLEUNIGUNB 

0430 


BUB 

ENQl ; 

ERHOEHEN, BEI UESER- 

0431 


STA 

YBPEEO ; 

LAUF STOP 

0430 

ENOl 

jnp 

HORIZONTAL 



0433 

0434 

0435 

0436 

0437 


JOYSTICK NACH UNTEN 


0438 

JOYUNTEN 

LOA 

VSPEEO i 

GE9CKUIN0IQKEIT 

0439 


BEC 

1 

IN ANDERE RICHTUNG 

0440 


BBC 

YACCEL i 

ERHOEHEN BZU. 

0441 


BUS 

END9 i 

ERNIEDRIGEN UND 

0440 


STA 

VBPBEO ( 

unXEHREN 

0443 

END0 

JMP 

HORIZONTAL 



0444 

0448 

0446 

0447 

0449 

0449 

0480 

0491 

0496 

0493 

04S4 

0495 

0456 

0457 

0460 

0459 

0460 


JDY9TICK NACH RECHTS 


JGYRECKTB 


LDA 

XSPEED 

; ANALOGER 

UQRQANG 

CLC 


: ZU OBEN, 

ABER IN 

ADC 

XACCEL 

s HORIZONTALER 

BUS 

END3 

: RICHTUNG 


BTA 

RTS 

XSPEED 




JOYSTICK NACH LINKS 


0461 

0465 

JOYLINKS 

LOA 

3EC 

XSPEED 

0463 


SBC 

XACCEL 

0464 


BUG 

END4 

0465 


STA 

XSPEED 

0469 

END4 

RTS 



0467 

046B 


( 

l* 


KARDSCROLLEN U0R6ERCITEN 


{ DIESER PRDQRAfinTElL SETZT MIT HILFE 
( DES ZEILEN- UND BPALTENZEIGERS DAS 
i BILDSCH]Rr>FEN9TER AN DIS RICHTIGE 
i STELLE in SCRDLLBCREEN UND SORGT 
i 80 PUER OIE ZEICHENUEISE SCROLL- 
i BEUEGUNG. 

. Dies GESCHIEHT DURCH MQOIFIKATIDN OER 
i AQRE86EN OER HARDSCROLLROUTINS. 

'harophep 


1 

QH9B 

0497 

0499 

0499 

0500 

0501 

QSOS 

0503 

0504 

□505 

OSOB 

0507 

OSOB I 

0509 

0510 { 

0511 : 

OSIS i 

0919 I 

0914 j 

□815 

□516 :* 

□517 i' 

0518 I 

0519 

0590 

0591 

0509 

0593 


LDV 

YPOINTER ) 

ZEILENZIEOSR HOLEN 

LOX 

PSOQ 


LDA 

LINES 

, SCHLEIFE ENTSPRECHEND 

6TA 

COUNTER i 

. OER ANZAHL DER BILD- 

i BCHlRhZEILEN DURCH 

CLC 

LDA 

LDU,Y i 

i ZEIGER ZUR ADRESSE AUS 

AOC 

XPOINTER 

; nULTIPLKATIONSTABELLE 

STA 

HARDLOOP«!, 

,X j PLUS DER ANFANGSADRESSE 
: OES SCRDLLBCREENS 

LOA 

HIQK,Y 1 

i UND ZUR HARD8CRDLLR0UTINE 

ADC 

H>TABELLE 

1 BCKRZIBEN 

STA 

KARDLOOP«a. 


INX 


( B BYTE ABSTAND 

INX 


; UON EINER 

INX 

INX 

INX 

INX 

INY 


( ADRESSE ZUR NAECHBTEN 

DEC 

COUNTER 

: SCHON ALLE ZEILEN ? 

LDA 

COUNTER 


BNE 

PREPLOOP 


RTS 


1 ... DANN ZURUECK 


UNTERER TEIL DES IRQS 




0505 

0587 

058B 

0509 

0830 

0531 

0530 

0533 

0534 

0535 

0536 

0537 

0536 

0539 

0540 

0541 

0549 

0B43 

0544 

0545 

0546 

0547 

0545 

0549 

0650 

0551 

0550 

0553 

0554 

0555 

0556 

0557 

055B 

0555 

0560 

0661 

0565 

0563 

0964 

0565 

DS66 

0567 

056B 

0569 

0570 

0571 

0576 

0573 

0574 

0579 

0576 

0577 

0576 

057S 


ISTUNTEN 

J8R 

PARAnUNTEN * 

UIC-UIERTE SETZEN 


JSR 

HARDSCRDLL 

AUSFüEHREN 

' 

LOA 

OBEN ; 

OBERE RASTERZEILE 


STA 

RASIER 






!• PARAMETER 

SETZEN 

■ 

PARAMUNTEN 

LDA 

RFARBE9 ; 

FARBEN MIT 


NDP 

. 

UERZOEGERN SETZEN, 


NDP 

. 

Un FLACKERN ZU 


NQP 

• 

UERHINOERN 


NGP 




NQP 




STA 

RAHMEN 



LDA 

HFARBE0 



STA 

HINTERGRUND! 

' 

LOX 

«SOD ( 

SPRITE-REIHE 


LDA 

ttSDO ; 

ZUM UERDECKEN 

UKOOR 

STA 

UIC,X ; 

HOLEN 


DEX 




DEX 




BPL 

UKOOR 


1 

LDA 

«ÜQllOODOO 

UDBERTRAB SETZEM 


ST» 

BX055 


; 

LDA 

«ISO0 ; 

SONSTIGE 


STA 

CONTRDLl ; 

UIC-PAFAMETER 


LOA 

HSOO. 



STA 

CONTROL0 



KARD9CRDLLEN AUSFüEHREN 


HARD8CRDLL LDV «167 


LDA 

STA 

LOA 

9TA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

BTA 

LDA 

STA 

LDA 

STA 


HB36 

SOI 


i SCHLEIFENDURCKLAUEFE 

} SPEICHER UNTER 
} BASIC-ROn EIN 

t HARQSCROLL-SCHLEIFE 


TABELLE,? 

SCREEN,Y 

TABELLE<^lOa,Y « HOLT AU9 OEM SPEICHER 
9CREEN*40,Y ; DEN DURCH OIE ZEIGER 

FESTGELEGTEN BEREICH 
UND SCHREIBT IHN AUF 
□SN BILDSCHI Rn 


TABELLE>90D,Y 
9CREEN+G0,Y ; 
TABELLE«300,Y 
9CREEN+10O,Y 
TABELLE«400,Y 
9CREEN+160,Y ; 
TABELLE*SOO,Y 
9CREEN«0OO,V ; 
TABELLE*B00,Y 
BCREEN«04Q,Y 


DIE QUELLADRESBEN UERDEN 
in OBEREN TEIL DES IRQS 
ANHAND DER ZEIGER 
MODIFIZIERT 


LIsting 2. (Fortsetzung) 
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C64 


GRAFIK 


osao 



LOA 

TABELLE+700,Y 

0653 


LOX 

«a06 ; FARBEN DER SPRITES 

05B1 



STA 

SCREEN'^BBD.V 

0664 


LOA 

HFARBE6 ; SCHREIBEN 

QSBS 



LDA 

TUBELLE'BDD.Y 

0095 

CGLDR 

STA 

SPRITEOCOL.X 

05B3 



STA 

SCREEN*3B0,Y 

OBSG 


DEX 


0564 



LDA 

TABELLE*900.Y 

0697 


BPL 

DOLOR 

0505 



STA 

5CREEN*360,Y 

0690 

• 



0506 



LDA 

TABELLE'^IOOO.Y 

OESa 


LOA 

«■01 

0507 



STA 

SCREBN*400,Y 

0700 


STA 

9PRITE0CDL*7 

0500 



LDA 

TABELLE+llDD.Y 

0701 

i 



0509 



STA 

8CREEN+440.V 

0700 


LOX 

«S06 ( SLDCKZEIQER 

0590 



LDA 

TAB ELLE*» leDO.Y 

0703 


LDA 

«900 ; SETZEN 

0591 



eTA 

8CREEM'>HeO,Y 

0704 

MUSTER 

STA 

SPQINTER.X 

0599 



LDA 

TABELLE^IBOO.Y 

0705 


DEX 


0593 



BT« 

SCRSEN«5B0,Y 

0706 


BPL 

MUSTER 

0594 



LDA 

TABtLLE«1400.Y 

0707 

. 



0595 



STA 

SCREEN^560.Y 

0708 


LOA 

«lOE 

0596 



LDA 

TABCLLE<»1500,y 

0708 


STA 

SPOINTER»? ' 

0597 



BTA 

BCREEN+eOO.Y 

0710 

1 



059S 



LOA 

TABELLE-»1BOO,Y 

0711 


LBA 

•SPP ( RESTLICHE 

0599 



STA 

SnREEN’BtO.Y 

0710 


BTA 

BPRITESAN 1 PARAMERTER 

0500 



LDA 

TABELLE<»17D0.Y 

0713 


STA 

SXEXPAND 

0501 



STA 

BCREEN*RBO,V • 

0714 


LDA 

HSBG 

0505 



LDA 

TnBELLE'lBOO.V 

0715 


BTA 

SYEXPAND 

0503 



STA 

BCREEN*70O,V 

0716 

j 



0504 



LOA 

TABELLE<»19D0.Y 

0717 


RTS 


0506 



STA 

SCREEN<»760,Y 

0716 

( 


; ... UNO ZURUSCK 

0506 



LDA 

TABELLE40ODO,Y 

0719 




0507 



BTA 

SCREEN'»0OO»Y 

0700 




0600 



DEV 


0701 

(• BPRITE-XOORDINATSN • 

0609 



BMI 

LODPEXIT 

0700 




0610 



jnp 

HARDLDOP 

0703 

j 



0611 





0704 

9K00R 

.BYTE 

•l9,t91,S4B,S91 

061S 

LOOPEXIT 

LDA 

HS37 ( SPEICHER UNTER 





0613 

0614 



BTA 

BOI : BASIC-RDM AUS 

0705 


.BYTE 

S7B.S91,9Ae,S91 

0615 

0616 



RTB 


0706 


.BYTE 

90B,S91,S0B,S9l 

0617 

0610 





0707 


.BYTE 

93B.991,fA0,96e 

0619 





O70B 


.BYTE 

9E0 

0500 

•••••• 




G7B8 

l 



0601 

• 

EINriALlG AUP6ERUFENC 

0730 




0600 

• 

TNT1 

-ROUTINEN • 

0731 

1•••*•••••••■ 



0603 





0730 

:• SPRITE-nUSTER tUFD) • 

0604 





0733 

1 •••••••••••'• 



0605 





0734 




0606 

• 

MULTI PL I KAT 10N8TABEUE ■ 

0735 

uro 

.BYTE 

900.900,90G.90p,900,900.900,900 

0607 

• 

BERECHNEN 






0606 

0603 

0630 

•■•••• 




0736 


-BYTE 

900.900,900,SOO,SOO,900,900,901 

0631 

nULTINIT 

LOA 

BREITE ; AüSDQEHUNG DES 





0630 



9TA 

XPOINTER ; SCR0LL5CREENS ALS 

0737 


• BYTE 

■FF, 990,900, SOO, 940,904,900,900 

0633 



LOA 

HOEHE ' { FAKTOREN 





0034 



BTA 

YPOINTER 





0635 

0636 



LDY 

«800 i 1.FAKTOR FLIER MCM 



-BYTE 

904,900,900 , 904,SOO,900,906,SOO, 

0837 



9TY 

S0S ; MULTIPLIXATION 





0636 



LDV 

«SOO 

0739 


• BYTE 

960,93F,961,SPD,SPF,SFF.SFF»SPD 

0633 

□640 



STV 

i09 





0641 

nULTLOOP 

LDX 

XPOINTER \ 0.FAKTOR FUER 

0740 


-BYTE 

SFF.9BF.93F,9BD,SFC,SDP,SFF, SPD 

0640 



9TX 

■71 i MULTIPLIKATION 





0643 



LDX 

• iOO 





0644 



STX 

■70 

0741 


.BYTE 

900,SFF.900,900.900,SOG,600,900 

0846 

0646 



J5R 

U1ULT ; MULTIPLIZIEREN 





0647 



TXA 

\ ER0EBNIS 

0740 


.BYTE 

900,900,900,900,900.SOO,900.900 

□646 



PHA 

; RETTEN 





□649 



TYA 






0650 



PHA 


0743 




0651 





0744 




0650 



LDX 

■39 ; ERQEBNTS IN TABELLE 

0745 

i* TABELLE MIT 

PARAMETERN • 

0653 



PLA 

{ SCHREIBEN 

0746 




0654 



STA 

HIGH.X 

0747 

j 



0655 



PLA 


0749 

RfARBEl 

-BYTE 

901 i RAHMENFARBE OBEN 

0656 



STA 

LOU.X 

0749 

HFARBEl 

-BYTE 

900 ; HINTERGRUNDFARBE OBEN 

0657 





0750 

RFARBE0 

-BYTE 

IDB i RAHNENFRABE UNTEN 

Q65B 



INC 

IBS i ZAEKI.ER ERHOEHEN 

07SI 

HFARBE0 

.BYTE 

■06 { HINTERQRUNDFARBE UNTEN 

OBSS 



LDX 

■B0 

0750 

OBEN 

-BYTE 

«eo 1 BRENZEN FUER RASTER- 

0660 



CPX 

XPOINTER 

0753 

UNTEN 

.BYTE 

SOO : INTERRUPT 

0661 



BNE 

MULTLOOP 1 NEIN, DANN NOCHMAL 

0754 

BREITE 

• BYTE 

960 1 AUSDEHNUNG DES 

0660 





0755 

HOEHE 

.BYTE 

SPP ( 8CRQLL9CREEN9 

0663 



LDA 

HSIS 

07S6 

LINES 

.BYTE 

915 i ZEILEN IM BILQ 

0664 



STA 

XPOINTER 

0757 

XACCEL 

.BYTE 

904 ) BESCHLEUNIGUNG 

0665 



LDA 

HSOS 

0766 

YACCEL 

.BYTE 

904 i 

0666 



STA 

VPDINTER 

0756 

XFRICT 

.BYTE 

■01 ; REIBUNB 

0BB7 



RTS 

: ... UND 2URUECK 

0760 

YFRICT 

.BYTE 

901 i 

OBBe 





0761 

XCONST 

.9VTE 

«00 1 KONSTANTE BEUEBUNQ 

06S9 





0760 

VCONST 

.SYTE 

900 

0670 





0763 

J 



0B71 

■ 

SPRITEREIHE 

ZUM UERDECKEN • 

0764 




DB7e 

• 

UNO 

JFD ER2EU6EN • 

076S 

:• TABELLE MIT 

UARIA6LEN • 

0873 





0766 

1•••••••••••• 



0674 





0767 

1 



0676 

C0UEf?SPR!T£8 LDX 

«940 ( BLOCKMUSTER 

0760 

XPOINTER 

.BYTE 

»NO 1 POSITION in 

0676 



LDA 

«■PP ; ERZEUGEN 

Q7BS 

YPOINTER 

.BYTE 

«10 1 SCROLLSCREEN 

0677 

PILL 


STA 

BLÖCK,X 

0770 

COUNTER 

.BYTE 

900 1 ZAEKLER 

067B 



OEX 


0771 

X9PEED 

.BYTE 

900 1 MOMENTANE 

□678 



BPL 

PJLL 

0770 

YSPEEO 

.BYTE 

saO : BESCHUINDIBKEIT 

0660 





0773 

XSQFT 

.aVTE 

900 ; 8CRQLL«UERT 

0601 



LOX 

«S40 1 UPO’MUSTER 

0774 

Y5GFT 

.aviE 

SOO 

0600 

PATTERN 

LDft 

UPO.X ; HOLEN 

0775 




0003 



STA 

BLQCK«9>I0,X 

0776 




06B4 



DEX 


0777 

i* MULTI PLI KAIlONSTABELLE • 

0505 



BPL 

PATTERN 

0779 




0606 





0779 

s 



0BB7 



LDX 

«■OF 1 KOORDINATEN 

07B0 


■a 

SCEOQ 

06BB 

KGQP 


LDA 

SKDOR^X ; HOLEN UND 

07B1 

LOU 

•a 

•+0S6 

06B9 



STA 

U1C,X SETZEN 

0760 

HIGH 

•a 

««056 

0630 



□EX 


07B3 

. 



0091 

0630 



BPL 

KQDR 

LIstIng 2. (Schluß) 
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GRAFIK 


C64 


Filmweignügen 
mit »n/hnrie-Show« 


Flimmerfreie »Filme« In hochauflösender Grafik 
sind auf dem C64 durch seinen begrenzten Spei¬ 
cherplatz meist sehr kurz. Unser Programm 
»Movie-Show« gestattet es, durch einen besonde¬ 
ren Trick bis zu 96 Bilder gleichzeitig Im Speicher 
zu halten und als Film zu zeigen. 

P hysikalische Vorgänge lassen sich mit dem Computer 
sehr schön veranschaulichen. Die Phänomene der 
Wellentheorie wie Überlagerungen sind in hochauflö¬ 
sender Graf ik (»Hires« von High Resolution) sehr einfach zu 
erzeugen und simulieren so in der Realität schwer beob¬ 
achtbare Vorgänge. Leider sind dazu komplizierte Berech¬ 
nungen notwendig, die viel Zeit verschlingen und so ein 
Anzeigen der erstellten Bilder in Echtzeit unmöglich 
machen. Meist werden die Ergebnisse deshalb auf Diskette 
gespeichert und von einem Film-Programm hintereinander 
angezeigt. Dabei taucht das Problem auf, daß der C64 
höchstens sieben Bilder und das Steuerprogramm im Spei¬ 
cher halten kann, da jede Hires-Grafik 8 KByte belegt. Es 
sind also nur sehr kurze Filme möglich, die den realen 
Ablauf oft unzureichend nachahmen. 

Spekherwunder C 64 


Dieses Manko beseitigt »Movie-Show«. Durch einen ausge¬ 
klügelten Algorithmus legt das Programm bis zu 96 Bilder 
im Speicher ab, die dann sehr lange Filme ermöglichen. 
Movie-Show unterstützt dabei ausschließlich einfarbige 



Bild 1. Movle-Show In Action. Das Bild zeigt einen Aus¬ 
schnitt aus dem Film auf der Programmservicediskette, der 
stehende Wellen simuliert. 


Hires-Grafik. Die maximale Anzahl der Bilder und die 
Geschwindigkeit hängt von deren Aufbau ab. Bewegte Wel¬ 
len werden mit einer Frequenz von 12 Bildern pro Sekunde 
dargestellt, bei digitalisierten Bildern sind dagegen ledig¬ 
lich 5 Bilder pro Sekunde zu erreichen. Allgemein kann 
man sagen, daß Movie-Show um so schneller arbeitet, je 
gleichförmiger die Bilder sind. Gerade in der Physik -eines 
der Hauptanwendungsgebiete von Movie-Show - treten oft 



Bild 2. Das Hauptmenü von »Movie-Show« 

Bilder auf, die lediglich eine animierte mathematische 
Funktion zeigen. Derlei Sequenzen sind natürlich ideal für 
Movie-Show (Bild 1). Allerdings lassen sich auch alle ande¬ 
ren Arten von Filmen vorführen, 

Movie-Show ist als zweiteiliges Programm konzipiert und 
arbeitet nur mit Diskettenlaufwerken zusammen, Geben 
:'. Sie'ln*"; ig 1 mit dem MSE ein. Sobald Sie das Programm 
auf Diskette gespeichert haben, geben Sie bitte das Pro¬ 
gramm »LADER« aus Listing 2 mit dem Checksummer ein 
und speichern es auf derselben Diskette (bitte beachten 
Siedle Eingabehinweise auf Seite 159). Nach dem Start mit 
RUN lädt der Lader das Hauptprogramm selbständig nach 
und ruft es mit SYS 4096 auf. Sie befinden sich dann im 
Hauptmenü, das eine durchdachte und gegen Fehlbedie¬ 
nung abgesicherte Benutzerführung bietet (Biid 2). Hier 
verschieben Sie über die Cursortasten den schwarzen Bal¬ 
ken und wählen so verschiedene Funktionen aus. Ein 
Druck auf RETURN verzweigt in das entsprechende Unter¬ 
menü. Sie können die Unterpunkte auch mit dem Joystick 
in Port 2 anwählen und über den Feuerknopf aufrufen. 
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17 

•■B 

»T* 

PRG 

17 

•’C 

W 

PR6 

17 
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» BITTE BELIEBIGE TASTE DRUECKEM « 


Bild 3. So müssen die zu verarbeitenden Bilder Im Directory 
aussehen. Die Reihenfolge Ist dabei gleichgültig. Anstelle 
des »W« kann natürlich ein beliebiger Name stehen. 
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GRAFIK 


Status- und Fehlermeldungen werden In der Titelzeile und 
ebenfalls Invertiert ausgegeben. 

Die Herstellung eines Films 


Hier bindet Movle-Show einzelne Hlres-Bilder, die bei¬ 
spielsweise mit »Hl-Eddi« oder »GIga-CAD« erzeugt wur¬ 
den, zu einem kompletten Film zusammen. Dieser Film läßt 
sich dann im Menü ■■Film ansehen« betrachten. 

Damit Movie-Show die einzelnen Bilder in der richtigen 
Reihenfolge liest und bearbeitet, müssen sie markiert wer¬ 
den. Speichern Sie deshalb die Bilder vor Aufruf von Movie- 
Show auf einer oder mehreren Disketten. Die Bilder für 
Movie-Show müssen im üblichen Standardformat, also 
ohne Farbe und als Bitmap, vorliegen. Nun werden die Bil¬ 
der für Movie-Show umbenannt. Stellen Sie vor die Namen 
Buchstaben, wobei die Reihenfolge der Bilder dann der 
Reihenfolge der Buchstaben im Alphabet entspricht. 
Geben Sie anschließend den Bildern den gleichen Namen, 
so daß diese sich nur mehr durch den ersten Buchstaben 
unterscheiden. Auf den Disketten müssen nun die Flies 
A-NAME« 

B»NAME« 

C ■■NAME« etc. 

bis zum letzten Bild vorhanden sein. Wollen Sie Filme mit 
mehr als 26 Bildern erzeugen, reicht das Alphabet nicht 
mehr aus. In diesem Fall wählen Sie die nächsten Zeichen 
aus der ASCII-Code-Tabelle. Das 27. Bild würde also 
»[NAME« heißen. Bild 3 zeigt Ihnen einen für Movie-Show 
aufbereiteten Film im Directory. 

Die so präparierte Diskette kann Movie Maker nun bear¬ 
beiten. Geben Sie im Untermenü »FILM ERSTELLEN« den 
Filenamen mit dem größten Index ein. Darunter ist das Zei¬ 
chen mit dem größten ASCII-Code zu verstehen. Wollen Sie 
also einen aus 27 Bildern bestehenden Film zusammen¬ 
stellen, dessen letztes Bild »[ NAME« heißt, lautet die Ein¬ 
gabe hier:»[ NAME«. Sind Sie sich des Namens nicht mehr 
bewußt, wählen Sie mit »$« die Directory-Funktion an. Das 
Untermenü kann mit <-> bei versehentlichem Aufruf 
verlassen werden. 


Filme sind selbständig lauffähig 


Nach korrekter Eingabe »bastelt« Movie Maker den Film 
Bild für Bild zusammen und legt Ihn Im Speicher ab. Ein im 
Speicher befindlicher Film wird dabei gelöscht. Deshalb 
gibt Movie-Show die Warnung »Achtung, der Film ist nicht 
gespeichert« aus. Während der Film erstellt wird, läßt sich 
das Programm mit <SPACE> anhalten, um gegebenen¬ 
falls die Diskette zu wechseln. Dies ist bei längeren Filmen 
nötig. Movle-Show gibt bei jedem Bild die Anzahl der noch 
freien Bytes aus. Reicht der Speicher nicht mehr aus, bricht 
Movie-Show mit einer Warnung ab. Der fertige Film wird 
dann über das Hauptmenü weiter bearbeitet. Wollen Sie 
diese Funktion vorzeitig abbrechen, kann dies über die 
RUN/STOP-Taste erfolgen. 

Film speichern 

Bei Anwahl des Punktes »Film Speichern« im Haupt¬ 
menü verzweigt »Movie-Show« ins entsprechende Unter¬ 
menü. Auch hier steht die Directory-Funktion zur Verfü¬ 
gung. Geben Sie einen Filenamen ein, speichert Movle- 
Show den aktuellen Film unter diesem Namen auf Diskette. 
Der Programmcode von Movie-Show selbst wird ebenfalls 
in den Film integriert. Jeder einzelne Film beinhaltet also 
eine Kopie des Programms. So ist er selbständig zu starten 
und vorzuführen. 


Bei Diskettenfehlern kehrt das Programm ins Haupt¬ 
menü zurück. 

Film laden 

lädt einen zuvor gespeicherten Film. Hier läßt sich eben¬ 
falls über »$« das Directory einiesen, und mit < — > 
erreicht man das Hauptmenü. Der zu ladende Film wird 
über den Filenamen ausgewählt und steht nach dem Lade¬ 
vorgang im Speicher. Er kann dann mit »Film ansehen« 
begutachtet werden. 

Bei Diskettenfehlern kehrt Movle-Show ins Hauptmenü 
zurück. 

Film ansehen 

läßt einen im Speicher befindlichen Film ablaufen. Die 
einzelnen Bilder werden dabei verdeckt aufgebaut und 
durch Umschalten angezeigt. Die Umschaltung wird soft¬ 
waremäßig mit dem Rasterstrahl synchronisiert, was zur 
Folge hat, daß die Filme vollkommen ohne Flimmern ablau¬ 
fen. Befindet sich im Speicher nicht mindestens ein Bild, 
kehrt Movie-Show selbständig ins Haupmenü zurück. 
Andernfalls läßt sich der Film durch Betätigen der 
RESTORE-Taste beenden. 

Parameter ändern 

Dieser Punkt eröffnet ein weiteres Menü, in dem die ein¬ 
zelnen Funktionen ebenfalls über die Cursortasten in Ver- 


Normal Wahrend dem 

Anzeigen des Films 
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$0000 

$0400 

$0800 

$0000 

$1000 

Zeropage 

Bildschirm 

Farbrom 1 

Bilds'daten 

Bilderdeten 

Frei 

Frei 



Programm 

$2000 

Programm 



Frei 

$4000 

Graflk- 

blldechlrm Nr.1 
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Bild 4. Die Spelcherauftellung des C64. Links die normale 
Aufteilung, rechts beim Anzeigen eines Films. 
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bindung mit <RETURN> ausgewählt werden. Die Para¬ 
meter wie Bildschirmfarben und Anzeigeart lassen sich 
hier Ihren Wünschen entsprechend einstelien. Die Farb¬ 
werte beziehen sich dabei nur auf das Anzeigen des Films, 
nicht auf die Farbgebung der Menüs. Wenn Sie den aktuel¬ 
len Film unter »FILM SPEICHERN« sichern, werden die 
Parameter ebenfails auf Diskette abgelegt und beim Laden 
des Films automatisch übernommen. 

Zyklisch oder periodisch 

wählt den Anzeigemodus mit den Tasten <CURSOR 
links> und <CURSOR rechts> aus, »Zyklisch« zeigt die 
Bilder »im Kreis« an. Nach dem letzten Bild folgt wieder das 
erste. Diese Betriebsart Ist nur dann zu empfehlen, wenn 
der Film vom Aufbau her kontinuierlich laufen kann. Sollten 
im Film Sprünge auftreten, müssen Sie die Bilder »perio¬ 
disch« ablaufen lassen. In diesem Fall wird der Film erst 
vorwärts und dann rückwärts dargestellt. 

Die anderen Parameter in diesem Menü wie Rahmen-, 
Hintergrund- und Punktfarbe lassen sich ebenfalls mit den 
Tasten <CURSOR rechts> und <CURSOR links> ein¬ 
stelien. Der Punkt »zurueck« führt wieder ins Hauptmenü, 
Menüpunkt »Zurueck« 

beendet das Programm. Haben Sie diesen Punkt verse¬ 
hentlich aufgerufen. Ist Movie-Show mit RUN erneut zu 
starten. Der zuletzt erstellte Film befindet sich noch im 
Speicher und kann normal bearbeitet werden. 

Kompakt geht alles besser 


Nun zu Aufbau und Funktionsweise von Movie-Show. 
Betrachten Sie dazu den Speicherbelegungsplan in Bild'4. 
Das Programm ist vollständig in Maschinensprache verfaßt 
und belegt den Speicher von $1000 bis $2000. Von $0800^. 
bis $09FF liegen die für den Biidaufbau wichtigen Parame-' 
ter. Hier steht, wo im Speicher jedes anzuzeigende Bild 
beginnt und endet. Ab $4000 beginnt dann der Bereich für 
die einzelnen Bilder. Sie können fast den gesamten Spei¬ 
cher des C64 bis $FFFF beanspruchen. Lediglich das 
Farb-RAM und der I/O-Bereich von $DOOO bis $DFFF müs¬ 
sen frei bleiben. Die Bilder selbst sind in einem komprimier¬ 
ten Format abgelegt. Movie-Show durchsucht dazu das 
entsprechende Bild nach aufeinanderfolgenden, gleichen 


Bytes. Diese werden zusammengefaßt und mit einem Mer¬ 
ker versehen. Beim Anzeigen wird umgekehrt vorgegan¬ 
gen; Diekompaktierten Bilder werden nach diesem Merker 
durchsucht, auf die ursprüngliche Länge ausgedehnt und 
auf dem Grafikbildschirm dargestellt. Für den Grafikbild¬ 
schirm wird der Bereich von $2000 bis $4000 verwendet. 

Flimmerfreie Darstellung 


Um ein Flimmern beim Umschalten der Bilder zu vermei¬ 
den, bedient sich Movie-Show zweier Tricks, Zum einen 
verwendet das Programm eine weitere Grafikseite bei 
$E000, wo das Bild verdeckt aufgebaut wird. Des weiteren 
synchronisiert Movie-Show das Einschalten der enlkompri- 
mierten Grafik mit dem Rasterstrahl. Erst wenn sich dieser 
außerhalb des sichtbaren Bildschirmbereichs befindet, 
wird die Grafikseite gewechselt. Da beim Anzeigen des 
Films der Tastaturinterrupt abgeschaltet wird, ist dieser Vor¬ 
gang nur durch die RESTORE-Taste zu unterbrechen. Sie 
löst einen NMI (also einen nicht maskierbaren Interrupt) 
aus, der über einen Vektor zur eigenen Interrupt-Routine 
des Programms verzweigt. So viel also zum Prinzip von 
Movie-Show. Sie sehen, mit einigen Tricks kann man dem 
Speichermangel des C64 durchaus beikommen! 

Um Ihnen einen Eindruck von der Leistungsfähigkeit von 
Movie-Show zu vermitteln, befindet sich auf der Programm¬ 
service-Diskette zu diesem Sonderheft ein Film, der das 
physikalische Phänomen der »stehende Welle« anschau¬ 
lich darstellt. Bild 1 zeigt dieses Programm in Aktion. 

(Dirk Neumeister/Axel Pretzsch) 


10 IF A=0 TUEN A=l:PRINT’'?CLR>LOfiDINB..."s 

LOAD''MaVIE-SHCW'',B, i <054: 

20 SYS 4096 <230- 

LIstIng 2. Der Lader zu »Movie-Show«. 

Bitte mit dem Checksummer (Seite 159) eingeben, 
auf derselben Diskette wie Movie-Show speichern, 
und mit RUN starten. 
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Listing 1. 

»Movie-Show« (Schluß) 


i-VSR OOLir.^ 


»Haushahsbudi fürs Auto« 


Ein Auto ist schon eine schöne Erfindung. Mai 
eben in die innenstadt fehlen. Am Wochenende 
eine Fahrt ins Biaue. Kein Probiem. Nur, die 
Kosten... 


Di 


ie Ausgaben zum Unterhalt eines Autos sind schwer 
zu berechnen. Besonders kompliziert wird es bei der 
Berechnung der Benzinkosten, Oft tankt man zwi¬ 
schendurch, führt nicht genau Buch. Die Übersicht geht 
verloren. Sicherlich wollten auch Sie schon einmal wissen, 
wieviel Treibstoff Ihr Auto verbraucht oder wie viele Kilome¬ 
ter Sie im letzen Jahr gefahren sind. Das Programm »Auto¬ 
kosten» ist eine nützliche Hilfe, um diese und viele andere 
Werfe zu berechnen. Alle Werte werden auf Wunsch in 
einer grafisch sehr ansprechenden Form ausgegeben. 

Bitte geben Sie Listing 1 (»AUTOKOSTEN MAIN«) mit 
dem Checksummer ein. Beachten Sie dazu die Eingabe¬ 
hinweise auf Seite 159. Listing 2 (Maschinenroutinen), 
sowie Listing 3 (Sprites) müssen mit dem MSE eingeben 
werden. Sie werden vom Hauptprogramm nach dem Start 
mit »RUN« automatisch nachgeladen. Nun befinden Sie 
sich im Hauptmenü, wo sich folgende Wahlmöglichkeiten 
bieten: 

Daten eingeben Daten sichern 

Letzter Eintrag Inhaltsverzeichnis 

Eintrag finden Eintrag löschen 

Statistik Datei einrichten 

Daten laden Ende 
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AUTO 


Der Pfeil links neben dem Menü kann mit den Cursorta¬ 
sten an die gewünschten Menüpunkte bewegt werden. Mit 
< RETURN > wird dieser angewählt. 

Bedienung des Programms 


Befindet sich noch keine Datei im Speicher - das Ist bei 
jedem Neustart des Programms der Fall - wird der Benut¬ 
zer beim Anwählen eines der ersten vier Menüpunkte 
zunächst zum Menüpunkt »DATEN LADEN« geführt, um 
den Namen der zu ladenden Datei anzugeben. Besteht 
noch keine Datei auf Diskette, müssen Sie durch Anwählen 
von »DATEI EINRICHTEN« erst eine solche anlegen. 



Bild 1. »AUTOKOSTEN« liefert eine ansprechende Grafik¬ 
ausgabe des Benzinverbrauchs 


Hauptprogramm; 


100 bis 780 

Vorspann 

790 bis 1150 

Inputroutine; 

LG: Länge der Eingabe 

AL: Art der Eingabe in AL 

AL-0; nur Zahlen 

ALbI: Zahlen und Buchstaben 

1160 bla 1200 

Bildschirm löschen 

1210 bla 1360 

Floppy-Status 

1370 bis 1410 

Warten auf Tastendruck 

1420 bla 1440 

Meldung ausgeben 

1450 bla 1570 

Drucker-Status 

1560 bis 1990 

HauptmenU 

2000 bis 2650 

Daten eingeben 

2660 bis 2980 

Letzter Eintrag 

2990 bis 3400 

Eintrag finden 

3410 bla 4520 

Statistik 

4530 bis 4820 

Daten laden 

4830 bis 5060 

Daten sichern 

5070 bis 5220 

Inhaltsverzeichnis 

5230 bla 5700 

Letzten Eintrag löschen 

6710 bis 6150 

Neue Datei einrichten 

6160 bla 6230 

Ende 

Maschinenspracheteil: 

49152 bis 49271: 

vertikale Balken. Syntax; 

SYS 49152, (0-199), Farbe 

49272 bis 49297: 

Print AT, Syntax: 

SYS 49272, Spalte, Zeile, Text 

49296 bis 49312: 

Rahmenblinken und Warten auf 
Tastendruck. Syntax; SYS 49296 


Tabelle 1. Der Programmaufbau von »AUTOKOSTEN« 


An allen sinnvollen Stellen befinden sich Sicherheitsab¬ 
fragen, ob der Benutzer die angewählte Funktion wirklich 
ausführen möchte. < RETURN > bestätigt die Eingabe, 
jede andere Taste führt ins Hauptmenü zurück. Die vor¬ 
letzte Zeile ist eine Statuszeiie, die vom Benutzer 
bestimmte Eingaben fordert. Wird ein Tastendruck ver¬ 
langt, ohne daß der Cursor oder Pfeil auf dem Bildschirm 
sichtbar ist, blinkt zur optischen Unterstützung der Bild¬ 
schirmrahmen. Eventuelle, bei Diskettenstation oder 
Drucker auftretende Fehler werden in der untersten Zeile 
ausgegeben. Auf Tastendruck gelangt man wieder ins 
Hauptmenü zurück. 

Daten Eingehen: 

Die aktuelle Datei im Speicher wird um einen neuen Ein¬ 
trag erweitert. Dazu werden das Datum des letzten Tank¬ 
vorgangs, der Kilometerstand, der Gesamtpreis der Tank¬ 
menge und der Preis für einen Liter TVeibstoff abgefragt. 

Kontralle durch Statistik 


Liegt der Verbrauch nicht zwischen 1 und 50 Liter pro 100 
km, erscheint die Meldung »BITTE DATEN ÜBERPRÜ¬ 
FEN«, und Sie müssen die Daten erneut eingeben, Waren 
alle Eingaben korrekt, kann der Eintrag auf Diskette gespei¬ 
chert werden. Anschließend erscheinen die berechneten 
Werte auf dem Bildschirm. 

Letzter Eintrag 

Der letzte Eintrag der aktuellen Datei wird angezeigt. Auf 
Tastendruck kann der Eintrag auf einem angeschlossenen 
Drucker ausgegeben werden. 

Eintrag finden 

Ein beliebiger Eintrag der aktuellen Datei wird angezeigt. 
Nach Eingabe der Nummer des gesuchten Eintrags wird 
dies»- >». ,f dem Bildschirm angezeigt. Die Ausgabe erfolgt 
auf Wunsch auch auf Drucker. Ist der Eintrag nicht vorhan¬ 
den, erscheint eine entsprechende Meldung. 

Statistik 

In diesem MenUpunkt erfolgt eine Ausgabe verschieden¬ 
ster Werte. Diese sind aufvier Bildschirmseiten verteilt. Auf 
Tastendruck wird die jeweils nächste Seite angezeigt. Die 
erste Seite zeigt die Anzahl der Tankfüllungen, die lösten 
für eine einzelne Füllung, den Durchschnittspreis pro Liter, 
an. Diezweite Seite gibt Auskunft über die gefahrenen Kilo¬ 
meter, die Durchschnittsslrecke pro Tankfüllung, die Reich¬ 
weite pro Liter und einiges mehr. Auf der letzten Seite 
schließlich wird angezeigt, wieviele Liter Sie durchschnitt¬ 
lich tankten, sowie der minimale und der maximale Ver¬ 
brauch, Außerdem erscheinen auf dieser Seite zwei Durch¬ 
schnittswerte für den Verbrauch. Der erste kennzeichnet 
den Durchschnittswert aller Einträge, während der zweite 
nur die letzten vier Einträge berücksichtigt. Bei weniger als 
vier vorhandenen Einträgen erscheint hier eine Null). 

Grafik: Farben mit Bedeutung 


Nach dar dritten Seite kann man entscheiden, ob diese 
Werte auf einem Drucker ausgeben werden sollen. 
Anschließend veranschaulicht eine Grafik (Bild 1) die letz¬ 
ten 35 Verbrauchswerte (Benzinverbrauch in Liter pro 100 
km) durch verschiedenfarbige Säulen. Hellblau bedeutet 
minimaler. Hellrot maximaler. Dunkelgrün überdurch¬ 
schnittlicher und Hellgrün unterdurchschnittlicher Ver¬ 
brauch. 

Daten laden 

Nach Eingabe des gewünschten Dateinamens wird eine 
Datei von Diskette eingelesen. Ist die Datei nicht vorhanden 
oder tritt ein anderer Fehler auf, werden einige Menü¬ 
punkte nicht zur Benutzung freigegeben (siehe oben). 
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Daten sichern 

Es wird eine Sicherheits-Kopie einer bestehenden Datei 
auf Diskette angeiegt. im inhaitsverzeichnis sind kopierte 
Dateien am Kürzei ».BAK« im Dateinamen zu erkennen (ein 
»normaies« Fiie endet mit ».DAT«). Dazu muß der Datei¬ 
name eingegeben werden (RETURN übernimmt den 
aktuelien Dateinamen). 

Inhaltsverzeichnis 

Es werden alle auf der Diskette bestehenden Dateien 
(also jene, die mit ».DAT« oder ».BAK« enden) angezeigt. 
Reicht der Bildschirm nicht aus, um alle vorhandenen 
Dateien anzuzeigen, wird auf Tastendruck eine weitere 
Seite gezeigt. 

Eintrag löschen 

Der letzte Eintrag einer Datei wird gelöscht. Dazu muß 
der Dateiname eingegeben werden (RETURN übernimmt 
den aktuellen Dateinamen). 

Daten einrichten 

Hier hat man die Möglichkeit, eine neue Datei zu erstel¬ 
len. Dazu müssen der Dateiname, die Bezeichnung des 
Autos, das erfaßte Datum, der Kilometerstand und das 
maximale Tankvolumen eingegeben werden. 

Ende 

Beenden des Programms. 

In Tabelle 1 finden Sie eine kurze Dokumentation von 
»Autokosten«. (Thomas Jensen/Martin Jobst/ad) 

lee REM BENZINKOSTENVERMALTUNQ UND 
-STATISTIK 

<154> 

690 POKE 646,14 

700 PDKE VlC+21,e 

<2i6> 

Ite REM THOMAS JEN6EN 2224 BURG 

<141> 

710 POKE VIC+32,14 

<eB8> 

120 PQKE 788,52 

<24a> 

720 POKE VlC+33,6 

<134> 

130 VIC-S3248 

<015> 

730 PRINT"tCLR>'' 

<210> 

140 AT-49272 

<230> 

740 OPEN 1,3 

<023> 

150 PDKE VIC+32,14 

<Z12> 

750 D-20e:REM MAX. ANZAHL EINTRAEGE 

<125> 

160 POKE VIC+33,6 

<0B2> 

760 DIM DA4(D>,KI<D>,PR<0>,BE(D),LI<D),VE< 


170 PDKE VIC+Z1,0 

<194> 

D>,KB<D) 

<007> 

180 POKE 646,14 

<163> 

770 GOSUB 1210 

< 02 a> 

190 PRINT CHR4(142>CHR«(8) 

<219> 

780 GOTO 1580 

<039> 

200 PRINT"tCLRlBITTE HABEN SIE EINEN MOMEN 


790 IN»-"" 

<22B> 

T GEDULD" 

<099> 

B00 00-0 

<046> 

210 PRINT"<DDMN>ICH LADE ZUNAECHST EINIGE 


BIO 8P-PEEK<21t) 

<220> 

UNTERPROGRAMME" 

<166> 

820 ZE=PEEK(214) 

<176> 

220 PRINT"LOADINe..."s 

<177> 

830 MS=0 

<068> 

230 IF PEEK<4915Z)<>3Z THEN LDAD"AUTDKOBTE 


840 POKE 204,0 

<233> 

N MC",8,1 

<175> 

850 GET G» 

<090> 

240 PRINT"..." 

<170> 

860 IF G«=""THEN 850 

<i03> 

250 IF PEEK(8365<>3 THEN LOAD"AUTDKOSTEN S 


870 B=ASC(G») 

<155> 

PR.",B,1 

<252> 

880 IF G-13 THEN 1000 

<160> 

260 PRINT"<CLR>" 

<Z50> 

890 IF 8-47 OR G-148 TIEN 850 

<e3e> 

270 POKE VIC+32,0 

m ■ 

.. 9aq q=20 then b=I57!B»="{left>" 

<1I7> 

2Se POKE VIC+33,0 

'910 Ih 8=29 AND PEEK(211)<=6P+LG-1 THEN 80 


290 FOR 1=1 TO 9 

<13B> 

BUB 1110:BOTO 850 

<0ie> 

300 READ B(t> 

<0B3> 

920 IF 8=157 AND PEEK(211)>SP THEN GOSUB 1 


310 NEXT 

<066> 

1103 GOTO 850 

<114> 

320 FOR 1=0 TO 6 

<007> 

930 IF AL-1 THEN 960 

<126> 

330 PQKE 2041+1,13 

<099> 

940 IF G>45 AND G<58 AND CC<LG AND PEEKCZl 


340 NEXT 

<096> 

1)<=SP+LG-1 THEN CC=CC+lsGOBUB 1110SBO 


350 POKE 2040,14 

<147> 

TO 850 

<033> 

360 PDKE VIC+23,255 

<136> 

950 GOTO 850 

<252> 

370 POKE VIC+29,255 

<152> 

960 IF G<46 0R<G>S7 AND G<6S>0R<G>9e AND G 


380 POKE VI0+39,7 

<0Se> 

<193)0R G>2te THEN 850 

<114> 

390 FOR 1-2 TO 8 

<142> 

970 IF CC<LB AND PEEK<2ll)<-8P+LB-l THEN 0 


400 POKE VIC+3B+I,B<I) 

<ee3> 

C=OC+liGOSUB lllOsGOTO 850 

<113> 

410 NEXT 

<166> 

980 IF PEEK<211><8P+LG THEN GOSUB 1110 

<063> 

420 POKE VIC+16,1 

<O70> 

990 GOTO 050 

<e36> 

430 FOR 1=0 TD 7 

<Z4S> 

1000 PQKE 205,2 

<170> 

440 PQKE VIC+1+2*I,S0 

<134> 

1010 IF PEEK.<2e7><>0 THEN 1010 

<246> 

450 NEXT 

<206> 

1020 PQKE 204,1 

<029> 

460 POKE VIC,42 

<049> 

1030 POKE 211,BP 

<0Sa> 

470 POKE VIC+2,15 

<O09> 

1040 PDKE 214,ZE 

<029> 

480 POKE VIC+4,SS 

<02e> 

1050 IF 00-0 THEN RETURN 

<097> 

490 POKE VIC+6,93 

<047> 

1060 BET»1,BC 

<a70> 

500 POKE VIC+B,13S 

<Z03> 

1070 IF 6«=CHR«(13)THEN IN»-LEFT»<IN»+"<12 


510 POKE VIC+10,17S 

<166> 

8PACE>",L8>iRETURN 

<239> 

520 POKE VIC+12,215 

<136> 

1080 IN»-IN»+Q» 

<159> 

530 POKE VI0+14,255 

<1B0> 

1090 IF LEN(IN»><LQ THEN 1060 

<216> 

540 T»-"BrTTE EINE TASTE DRUEOKEN !!!" 

<030> 

1100 RETURN 

<142> 

550 POKE VIC+21,25S 

<e70> 

1110 POKE 205,2 

<e26> 

560 SYS AT,0,6,"{YELLaU>THOMAS JENBEN (BMI 


1120 IF PEEK(2e7><>0 THEN 1120 

<039> 

LY) PREBENTB i" 

<Z47> 

1130 PRINT G»| 

<1B7> 

570 8Y8 AT,0,8,"<VELLOU>BENZINKOSTEN VERMA 


1140 IF PEEK(21t>>M8 THEN M8=PEEK<211> 

<178> 

LTUN0 UND STATISTIK" 

<16e> 

1150 RETURN 

<192> 

590 FOR 1-0 TO 9 

<152> 

1160 8YB AT,2,5,"<36SPACE>" 

<166> 

600 POKE 646,B(I> 

<254> 

1170 FOR 1-8 TO 18 

<e2i> 

610 SYS AT,0,t2,T* 

<235> 

1180 SYS AT,2,I,”<368PACE}" 

<206> 

620 FOR J=1 TO 60 

<141> 

1190 NEXT 

<184> 

630 NEXT 

<132> 

1200 RETURN 

<242> 

640 NEXT 

<142> 

1210 POKE 768,185 

<136> 

650 SET A* 

<096> 

1220 OPEN 15,8,15 

<106> 

660 IF A*<>""THEN 690 

<026> 

1230 CLOSE 15 

<052> 

670 GOTO 590 

<01O> 

1240 POKE 768,139 

<I69> 

680 DATA,11,12,15,1,15,12,11, 

<165> 

1250 IF 8TO-12B THEN 1290 

<031> 


.d« 
iiiiLnv^ 


40 
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1260 SYS AT,2,22,"STATUS i FLOPPY NICHT 

EI 

2000 

HN»""BITTE DATEN EINBEBEN" 


<164> 

NQESCHALTET " 


<039> 

20ie 

GOSUB 1420 


<06O> 

1270 BOSUB 1370 


<226> 

2020 

IF NA»-""THEN 4530 


<010> 

12S0 GOTO 1SB0 


<031> 

2030 

SYS AT,7,5,"D ATE N{2SPACE)E I N 

G 


1290 OPEN 15,e,ta 


<17B> 


EBEN" 


<2S0> 

1300 INPUT#lS,N.FE«tTR,8E 

1310 SVR AT.7^77 '» 


<131> 

^ i 

2040 

2050 

NR»NR-»'l 

SYS AT.2. S^'•NUMMER-. 


<223> 

1320 SYS AT,2,22,"STATUS i"jNi"tLEFT,SPACE 

NR 


<076> 

>"FE*!TR| "{UEFT,SPACE)"SEj " '• 

1330 IF N-62 THEN NA»-"" 


<240> 

<13S> 

2060 

8YB AT,2,10,"DATUM. 




"1 


<06O> 

1340 IF NOB THEN BOSUB 1370ICLOSE ISiBOTO 

2070 

LG" 10 


<23B> 

1690 


<162> 

2080 

AL-1 


<099> 

1350 CLOSE 15 


<174> 

2090 

GOSUB 790 


<194> 

1360 RETURN 


<14e> 

2100 

DA«<NR>-IN» 


<201> 

1370 MN*»"ZUI1 FORTSETZEN BITTE TASTE" 


<027> 

<01B> 

2110 

SVR AT,7, 19 , "K1I nMFTPRRTAND. . . 



1330 POKE 190,0 


"l 


<165> 

1390 BOSUB 1420 


<204> 

2120 

LG-6 


<1B0> 

1400 SYS 4929B 


<224> 

2130 

AL-0 


<2S0> 

1410 RETURN 


<19S> 

2140 

BOSUB 790 


<244> 

1420 SYS AT,2,21,"t368PACE>" 


<253> 

2150 

KI<NR>"VAL(IN»> 


<0S7> 

1430 SYS AT,2,21,MN» 


<166> 

2160 

IF KI (NRX-KI (NR-llTHEN PRINT"{2UP) 

"1 


1440 RETURN 


<22B> 


GOTO 2110 


<239> 

1450 OPEN 4,4 


<027> 

2170 

SYS AT,2,14,"GEBAMTPREia. 



1460 POKE 768,61 


<1SB> 

"I 


<044> 

1470 PRINT«» 


<203> 

2180 

LQ-5 


< 20 a> 

1480 CLOSE 4 


<245> 

2190 

AL>0 


<054> 

1-490 POKE 768,139 


<165> 

2200 

GOSUB 790 


<04e> 

1500 IF 8TO-1ZB AND STO-125 THEN 1540 


<212> 

2210 

eE<NR>"VAL(IN«) 


<069> 

1510 SYS AT,2,22,"STATUS i DRUCKER NICHT 

E 


2220 

IF GE(NR>"0 THEN PRINT"{2UP)"iG0TD 

21 


INQESCHALTET" 


<B97> 


70 


<031> 

1520 GOSUB 1370 


<222> 

2230 

SYS AT,2,16,"PREIS PRO LITER. 



1530 GOTO 1690 


<073> 


"1 


<213> 

1540 OPEN 6,4,6 


<173> 

2240 

L8=5 


<0i2> 

1550 PRINT#6,CHR»(0> 


<050> 

2250 

AL-0 


<114> 

1560 CLOSE 6 


<087 > 

2260 

BOSUB 790 


< 10 a> 

1570 RETURN 


<104> 

2270 

PRtNR>"VAL<IN») 


<013> 

1500 h»-"YYYYYYVYYYYYYYVYYYYYYYYYYYYYVYYYY 


2280 

IF PR(NR>"0 THEN PRINT"{2UP)"!G0TD 

22 


777" 


<043> 


30 


<0O4> 

1590 SYS AT,l,l,"fl"5A»j"£" 


<063> 

2290 

KG(NR)"KI<NR>-KI<NR-1) 


<064> 

1600 FOR 1=2 TO 22 


<129> 

2300 

LI< NR >"GE < NR) /PR < NR) 


<046> 

1610 SYS AT,1,I,"1?" 



^:.2^^^VE<NR> = (LI CNR}/K6(NR) >*100 
~2320 IF VE(NR)>1 AND VECNRXSO THEN 2370 


<250> 

1620 SYS AT,30,1,"TT" 


<003> 


<240> 

1630 NEXT 


<1I6> 

2330 

SYS AT,2,ia,"{RVS0N)BITTE DATEN UEBER 


1640 SYS AT,l,20,"fl"jA»;"£" 


<239> 

2340 

PRUEFEN" 


<086> 




NR-NR-1 


<143> 

FP?” 


<0B3> 

2350 

GOSUB 1370 


<036> 

1660 SYS AT,l,23,"i."sA»!"a" 


<040> 

2360 

GOTO 1690 


<143> 

1670 SYS AT,l,6,"i."jA»{"a" 


<03S> 

2370 

MN»""RICHTIG? RETURN{2SPACE)JA{6BPACE 


16S0 SYS AT,l,3,"l"|A*!"a" 


<042> 


)SONST{2ePACE)NEIN" 


<069> 

1690 SOSUB 1160 


<074> 

2380 

GOSUB 1420 


<178> 

1700 SYS AT,2,2,"BENZINKOBTEN 1.0{28PACE}N 


2390 

SYS 49298 


<198> 

AME>{SPACE,RVBON}"!NA» 


<239> 

2400 

GET RI» 


<162> 

1710 WA-1 


<114> 

2410 

IF RI»<>CHR»<13>THEN NR-NR-liGOTO 169 


1720 ZE-8 


<137> 


0 


<126> 

1730 MN«-"BEUEI3EN{2SPACE>UP/DaWN{S6PACE>AU 


2420 

MN»""SPEICHERN7 RETURN{2SPACE}JA{48PA 


SUAHL{2SPACEIRETURN" 


<16B> 


CE}SONST{2SPACE)NEIN" 


<222> 

1740 BOSUB 1420 


<044> 

2430 

BOBUB 1420 


<22B> 

1750 SYS AT,10,S,"H AUPTMENUE" 


<B14> 

2440 

SYS 49298 


<248> 

1760 SYS AT,10,8,''-> DATEN EINGEBEN" 


<078) 

2450 

BET RI» 


<212> 

1770 SYS AT,15,9,"LETZTER EINTRAG" 


<122> 

2460 

IF RI»<>CHR»<13)THEN 2560 


<000> 

17S0 SYS AT,IS,10,"EINTRAG FINDEN" 


<00B> 

2470 

GOSUB 1210 


<Z04> 

1790 SYS AT,15,11,"STATISTIK" 


<140> 

2480 

□PEN 2,8,2,NA»+".DAT,8,A" 


<236> 

1800 SYS AT,IS,12,"DATEN LADEN" 


<209> 

2490 

PRINT«2,DA»(NR) 


<193> 

1810 SYS AT,IS,13,"DATEN SICHERN" 


<244> 

2500 

PRINT«2,KI(NR) 


<240> 

1820 SYS AT,15.14,"INHALTSVERZEICHNIS" 


<201> 

2510 

PR1NT#2,PR<NR> 


<221 > 

1B30 SYS AT,IS,15,"EINTRAG L0E8CHEN" 


<200> 

2520 

PRINTtt2,8E(NR) 


<130> 

1840 SYS AT,IS,16,"DATEI EINRICHTEN" 


<077> 

2530 

PRINTW2,L1(NR) 


<046> 

IBSB SYS AT,13,17,"ENDE" 


<079> 

2540 

PRINT«2,VE(NR) 


<12e> 

1860 GOSUB 1210 


<102> 

2550 

CLOBE 2 


<0Z7> 

1870 POKE 198,0 


<0B0> 

2560 

GOSUB 1160 


<1B4> 

1880 GET WA« 


<062> 

2570 

GOSUB 1210 


<0SO> 

1090 IF MA»-""THGN 1880 


<044> 

2580 

8YB AT,13,5,"B E R I C H T" 


<23S> 

1900 IF WA«-CHR»(13>THEN 1980 


<09B> 

2590 

SYS AT,2,8,"LETZTER EINTRAG. 

1 


1910. SYS AT,10,ZE,"{4SPACE}" 


<242> 

"DA*(NR-1) 


<B00> 

1920 IF WA»""{DOWN)"THEN WA-WA+liZE-ZE+l 


<011> 

2600 

GVS AT,2,10,"ZURUECKGELEGTE STRECKE 



1930 IF WA»-"{UP)"THEN WA-WA-1BZE-ZE-l 


<151> 


1"KG<NR> 


<077> 

1940 IF WA<1 THEN WA-liZE-S 


<047> 





1930 IF WA>10 THEN WA-10JZE-17 


<B44> 





1960 SYS AT,10,ZE," - >" 


<232> 





1970 GOTO 1880 

1980 ON WA GOTO 1990,2660,2990,3410,4530, 

4 

<0BS> 

Listing 1. »AUTOKOSTEN MAIN«, das Hauptprogramm 

830,5070,3230,5710,6160 


<140> 

unserer KFZ-Kostenberechnung. Bitte mit dem Check- 

1990 GOSUB 1160 


<120> 

Summer (Seite 159) eingeben. 
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2610 SYS AT,2,12,“BETANKTE LITER... 

. 

2620 SYS AT, 2, 14, "VERBRAUCH. 

‘"VE(NR) . 

‘-"ER---- 

2640 BOSUB 1370 yltll 

26S0 GOTO 1690 

2660 SOBUB 1160 liZZl 

2670 IF NR-0 THEN 4530 

2600 SYS AT,S.5,"L E T ZISHIFT-aPACEITIBHI 

FT-SPACEIE R<2BPACE>E I N T R A Q" <24B> 

2690 K0{NR>-KI<NR>-K1(NR-1) ^ ^ <2J?> 

2700 SYS AT.2,a,"DATUri. , 

'‘Dft*<NR) . 

2710 SYS AT,2.10,"KILOMETERRTANn. . 

"KI<NR> .. 

2720 SYS AT,2,12,"ZURUECKGELEQTE STRECKE.B 

"KB<NR> ^ii«v 

2730 SYS AT,2,14, "TANKMENGE. . 

"LI<NR) .. 

2740 SYS AT,2,16, "VERBRAUCH. , 

"VE(NR> .. 

2750 SYS AT,2,1B, "REICHWEITE PRO LITER ! 

"1/VE1NR>.100 LITER...» 

2760 POKE 198,0 

2770 MN*-"AU8DRUCK7 RETURN<28PACE>JAtSSPAC 
EISCNSTC28PACEJNEIN" 

27B0 BQSUB 1420 
2790 SYS 49298 
2800 SET RI# 

2B10 IF RI#-CHR*{13)THEN 2830 x7,7v 

2820 BDTO 1690 

2830 SOBUB 1450 

2840 POKE 768,61 

2B50 OPEN 4,4 

2860 CMD 4 <*=’> 

2870 PRINT CHR»(20>"NAME DER DATEI - "NA* <143> 

2B80 PRINT 

2890 PRINT"DATUM.DA*(N 

2900 PRINT"KILOMETERSTAND .!"KI(NR> 

2910 PRINT-ZURUECKGELEGTE STRECKE. "KB NR <M9> 

2920 PRINT-TANKMENGE.LI NR <0a5> 

2930 PRINT-VERBRAUCH.! "VE NR <229> 

2940 PRINT-REICHWEITE PRO LITER."l7vE(N 

R)*100 1/VtlN 

2950 PRINT#4 
2960 CLOBE 4 

2970 QOBUB 1450 ;f“i' 

29B0 GOTO 1690 
2990 GOSUB 1160 

3000 MN*-’’BITTE NUMMER DES EINTRAGS EINSEB 

3010 BGSUB 1420 
3020 IF NR-0 THEN 4530 

3030 SYS AT^7,5,"E INTRA Bt2BPACE>F I 

3040 SYS AT,2,B, "NUMMER DES .. 

3050 LB-3 <‘?®> 

3060 AL-0 
3070 BOaUB 790 
3080 BN-VAL(IN*> 

3090 IF BN<1 THEN 3040 

«T,2.11,"<RVS0N>EIN 
TRAB NICHT VORHANDEN !!!".GOSUB 1 
370.BOTO 1690 «UU5UB 1 

3110 SYS AT,2,a,"t368PACE>" 

3120 aVS AT,2,a,"DATUM. . ' 

"DA»(GN) . 

3130 SYS AT,2,10,"KILOMETERSTAND. . 

"KKGN) . 

3140 gvs AT.2,12,"ZURUECKBELEBTE STRECKE i 
"KI(BN)-KI{8N-1) 

3150 SYS AT,2,14,"TANKMEN0E_ , 

■’LKGN) . 

3160 SYS AT.2,16, "VERBRAUCH. , 

"VE<BN> . 

3170 SYS AT,2,18,"REICHWEITE PRO LITER . 

"1/VE(BN)*1B0 
3180 POKE 198,0 

3190 MN*="AU3DRUCK7 RETURN<2SPACE>JA<5BPAC 


EIBONST{2SPACE JNElN" 

3200 GOSUB 1420 
3210 SYS 4929S 
3220 BET RI* 

3230 IF RI*-CHR*<13>THEN 3250 

3240 GOTO 1690 

3250 BOSUB 1450 

3260 POKE 76B,61 

3270 OPEN 4,4 

32B0 CMD 4 

3290 PRINT CHR*(20)"NAME DER DATEI 
3300 PRINT 

3310 PRINT"DATUM. 

N> . 

3320 PRINT-'KILOMETERSTAND. 

3330 PRINT”ZURUECKBELEGTE STRECKE 
-KI(GN-l) 

3340 PRINT"TANKMENQE. 


- "NA* 

I "DA«(G 

■ "KKGN) 
t"KI(GN> 

"LI(QN) 


< 017 > 

<236> 

< 000 > 

< 220 > 

<242> 

<00S> 

<126> 

<172> 

<069> 

<255> 

<0S3> 

< 09 a> 

<0227 

<135> 

<064> 

<23B> 


3360 PRINT"REICHWeiTE PRO LITER 
N)«10B 

..l"l/VE(B 

3370 PRINT#4 - 

<0627 

33B0 CLOSE 4 

<0717 

3390 GOSUB 1450 

<1137 

3400 GOTO 1690 

<0127 

3410 GOSUB 1160 

<1677 

3420 IF NR’iO THEN 4530 

<0167 

3430 SYS AT,e,5."S T A T 1 S T 1 

<0917 

K<2SPACE> 

3440 flN-NR-34 

<0687 

3450 IF AN<1 T)HEN AN«! 

<2497 

3460 TL«0 

<1177 

3470 BL-0 

<1307 

3480 DK-0 

<0887 

3490 OL«0 

<0787 

3500 FOR 1=0 TO NR 

<0967 

3510 TL=TL+LKI) 

<2337 

3520 BL=GL+BE<I) 

<2507 

3530 NEXT 

<0337 


I- ^^3*. ”i*^=i0000000 
I’ -ssslr; .Ax=-i0000000 

3560 FOR I=AN TO NR 

VEtlXMIN THEN MIN=VG<n 

3590 “ 

3620 FOR l=NR-4 TO NR 
3630 DL-DL+LKI) 

3640 NEXT 

3650 SYS AT,2,0,"VOM "DA*(0>" 

(NR) 

3660 


BIS ZUM "DA* 


TANKFUELLUNBEN. 


<2387 

<2297 

<1227 

<1247 

<0247 

<0837 

<0447 

<1257 

<0987 

<0537 

<0507 

<0947 

<0597 

<0147 


<0057 

<2127 


<1067 

<1267 

<0727 


3670 8YG AT,2,12."BESAMTPREIS.. 

■ "BL . 

TANKFUELLUNG. 

. 

3710 eOSUB 1370 
3720 GOSUB 1160 

3730 SYS AT.B,5."B T A T I S T 1 K<2SPACE> 

KILOMETER.. 

f "Ä;;S™NITTeSTRECKE.. .. 

«"-‘^HWEITE. 

re.^e.te. 

3780 BYS AT,2,16."MITTLERE REICHWEITE 

. " <TA*100) / (TL#100/ (KI (NR)-KK0) ) i '' ' 

= ’ "«eichweite pro" ?ER 

3800 

3B10 GOSUB 1160 

3B20 SYS AT.B,5,"8 T A T I 9 T I K<2SPACE> 
3S30 SYS AT.2,8,"LITER INSGESAMT. 


<1847 

<2167 

<1627 

<0127 
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C64 


AUTO 


"TL 

<167> 

4440 

PRINT"LITER DURCHSCHNITT. t 

■TL/NR 

<249> 

3B4BI SYS AT,2,10,"LITER DURCHSCHNITT. 


4450 

PRINT"MAX1MALER VERBRAUCH.l 

'MAX 

<B1B> 

t”TL/NR 

<104> 

4460 

PRINT"MINIMALER VERBRAUCH. 

'MIN 

<151> 

3050 SYS AT,2,12,"MAXIMALER VERBRAUCH. 


4470 

PRINT"MITTLERER VERBRAUCH I...t 

■TL*10 


1 "MAX 

<133> 


O/(KI(NR)-KI(0>> 


<239> 

3060 SYS AT,2,14,"MINIMALER VERBRAUCH. 


44BB 

PRINT"MITTLERER VERBRAUCH II..« 

’100*D 


■ "MIN 

<B14> 


L/DK 


<053> 

3070 SYS AT,2,16,"MITTLERER VERBRAUCH I... 


4490 

PRINT44 


<175> 

1"TL«100/(KI(NR)-KI(0)> 

<106> 

4500 

CL08E 4 


<217> 

3Bee SYS AT,2,10,"MITTLERER VERBRAUCH II.. 

, 

4510 

GOSUB 1450 


<116> 

i"100*DL/DK 

<ia 0 > 

4520 

RETURN 


<004> 

3090 PCKE 196,0 

<244> 

4530 

GOSUB 1160 


<120> 

3900 MN«-"AUSDRUCK? RETURN(28PACE>JA{SSPAC 


4540 

MN«-"BITTE DATEINAMEN EINBEBEN" 


<099> 

E>SONBT{2BPACE >NEIN" 

<221> 

4550 

GOSUB 1420 


<060> 

3910 GQBUB 1420 

<1B4> 

4560 

SYS AT,ie,S,"D ATE N{2SPACE}L 

ADE 


3920 SYS 49298 

<204> 


N" 


< 20 a> 

3930 SET RI* 

<16S> 

4570 

GOSUB 1210 


<016> 

3940 IF RI*-CHRf(13)THEN GOSUB 4230 

<10e> 

45B0 

SYS AT,2,8,"DATEINAME. 


<161> 

3930 PRINT"tCLR>" 

<t2a> 

4590 

LG-12 


<08a> 

3960 II»-"{RVBDN>8<DaWN,LEFT>T<DQWN,LEFT>A 


4600 

AL>1 


<210> 

{DnWN,LEFT}T{DOMN,LEFT>I(DOMN,LEFT)0{ 


4610 

GOSUB 790 


<174> 

DOWN,LEFT>T(DOWN,LEFT>I<DQWN,LEFT>K" 

<O90> 

4620 

NA4-INS 


<i6e> 

3970 SYS AT,1,5,II* 

<142> 

4630 

IF LEN(NA*)<1 THEN 4580 


<211> 

3960 FOR 1>4 TO 36 

<16S> 

4640 

MN*»"RICHTIB7 RETURNt2SPACE>JA{6BPACE 


3990 SYS AT,I,1,"7“ 

<B90> 


leONST(ZSPACEINEIN" 


<132> 

4000 SYS AT,I,20,"7" 

<134> 

4650 

GOSUB 1420 


<162> 

4010 NEXT 

<210> 

4660 

SYS 49290 


<182> 

4020 FOR I-l TO 19 

<109> 

4670 

GET RI* 


<146> 

4030 SYS AT,3,I,"JJ" 

<172> 

46B0 

IF RI*<>CHR*(13)THEN NA*».GOTO 1690 

<043) 

4040 SYS AT,39,I,"ir’ 

<170> 

4690 

OPEN 15,8,15 


<020> 

4OS0 NEXT 

<250> 

4700 

PRINT#15,"I" 


<145> 

4060 SYS AT,0,1,"MAX" 

<140> 

4710 

CLOSE 15 


<232> 

4070 SYS AT,0,19,"MIN" 

<121> 

4720 

GOSUB 1210 


<16B> 

40B0 SYS AT,2,21,"<RVS0N,LI6.BLUE,2SPACE,R 


4730 

NR=-1 


<0S5> 

VaFF,SPACE>MlNl. VERBR.tSSPACE,RVSON, 


4740 

OPEN 2,8,2,NA*-»-".DAT,8,R" 


<244> 

LIB.REO,2SPACE,RVOFF,SPACE >MAXI. VERB 


4750 

INPUT#2,TA 


<24i> 

R. " 

<160> 

4760 

NR=NR-t-l 


<149> 

4090 SYS AT,2,22,"{RVSQN,LIQ.GREEN,2SPACE, 


4770 

INPUT*2,DA*(NR>,KI(NR),PR(NR) 


<023> 

RVOFF,SPACE>UNTER DURCH.<SBPACE,RVSON 


47G0 

INPUT«2,GE(NR),LI(NR),VE(NR> 


<219> 

,GREEN,2SPACE,RVOFF,SPACElUEBER DURCH 


4790 

IF STOB THEN CLOSE 2:GOTO 4S10 


<086} 


<?94> 

.. 48(^ 

COTO 4760 


<240> 

4100 SYS AT,4,19,“"j 

<130> 

'4810 

oOSUB 1210 


<002> 

4110 FOR I°AN TO NR 

<I68> 

4820 

GOTO 1690 


<061> 

4120 IF VE(I>°<(TL*1O0/KI<NR>)THEN C0L=13 

<226> 

4G30 

BQSUB 1160 


<166> 

4130 IF VE<I>>(TL*ieO/KI<NR))THEN COL^S 

<123> 

4S40 

MN*»"BITTE DATE1NM1EN EINQEBEN" 


<145> 

4140 IF VE(I)=HAX THEN C0L=8 

<123> 

4050 

GOSUB 1420 


<106> 

4130 IF VE{I>~MIN THEN C0L»14 

<0Z3> 

4860 

SYS AT,S,S,"D ATE N<2SPACE}S 

[ C H 


4160 SYS 49152,(VE(I)-tMIN-.1)>/(MAX-MIN+. 



E R N" 


<oas> 

1)*152,C0L 

<0S1> 

4070 

SYS AT,2,8,“DATEINAME. 

•« "! 

<199> 

4170 NEXT 

<116> 

4080 

LS-12 


<126> 

41B0 POKE 19B,B 

<024> 

4090 

AL-1 


<24e> 

4190 SYS 4929B 

<220> 

4900 

GOSUB 790 


<210> 

4200 PRINT"(CLR.LIG.BLUE}" 

<019> 

4910 

DS*»IN* . 


<052> 

4210 GOSUB 1210 

<166> 

4920 

IF DS*-""THEN DB*-NA* 


<047> 

4220 GOTO 1380 

<177> 

4930 

IF DS*“""THEN 4870 


<169> 

4230 GOSUB 1160 

<074> 

4940 

MN*-"RICHTIQ7 RETURN<ZBPACE>JAt6SPACE 


4240 SYS AT,10,S,"A USDRUCKEN" 

<117> 


}80NST(2SPACE}NEIN" 


<099> 

4250 GOSUB 1450 

<110> 

4950 

GOSUB 1420 


<208> 

4260 POKE 760,61 

<1S6> 

4960 

SYS 49290 


<22B> 

4270 OPEN 4,4 

<0S3> 

4970 

GET RI« 


<192> 

42G0 CMD 4 

<239> 

4980 

IF RI*<>CHR*(15)THEN 1690 


<04B> 

4290 PRINT CHR«<20>"NAME DER DATEI - "NA* 

<037> 

4990 

GOSUB 1210 


<104> 

4300 PRINT 

<082> 

5000 

OPEN 15,B,15,"Si"-fDB*-^".BAK" 


<219> 

4310 PRINT"VaM "DA*<0>" BIS ZUM "DA«(NR) 

<035> 

5010 

CLOSE 15 


<B22> 

4320 PRINT-'ZAHL DER TANKFUELLUN6EN. 1 "NR 

<219> 

5020 

GOSUB 1210 


<214> 

4330 ..GL 

<206> 

5030 

OPEN 15.8, 15, "Cr "-fDS*-»-". BAK-"+D8*-»-". D 


4340 PRINT"PREI8 PRO TANKFUELLUNB.QL/NR 

<153> 


AT" 


<057> 

4350 PRINT"PREIB PRO LITER.i "GL/TL 

<ie0> 

5040 

CLOSE 15 


<0S2> 

4360 PR1NT"PREI8 PRO KILOMETER..PF.■"10O«G 


5050 

GOSUB 1210 


<244> 

L/(KI(NR>-KI(0)> 

<041> 

5060 

GOTO 1690 


<047> 

4370 PRINT"OEFAHRENE KILOMETER.l"KI<NR 


5070 

GOSUB 1160 


<I52> 

) 

<026> 

5080 

SYS AT,2,5.“1 NHALT8VER 

Z E I 


4300 .."(KI(N 



C H N I S" 


<097> 

R)-KI<0>)/NR 

<067> 

5090 

GOSUB 1210 


<B2B> 

4390 PRINT"MAXIMALE REICHWEITE.i"CTA«l 


5100 

1-7 


<063> 

00)/MIN 

<013> 

5110 

□PEN 2,8,0,"*1777777777777.777-BEO" . 

<035> 

4400 PRINT"MINIMALE REICHWEITE.. 


5120 

BET«2,A*,A« 


<01S> 

00)/MAX 

<155> 

5130 

E*-CHR*<0) 


<214> 

4410 PRINT"MITTLERE REICHWEITE.s"{TA*l 


5140 

SET«2,A«,A*,H«,L* 


<225> 

00)/(TL«100/(KI(NR)-KI(0)>) 

<2SB> 





4420 PRINT"REICHWEITE PRO LITER.. 






TL«1O0/(KI(NR>-KI(0)>) 

<eB9> 





4430 PRINT"L1TER INSGESAMT.TL 

<011> 

Llsting 1. (Fortsetzung) 
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AUTO 


C64 


sisa IF 8T THEN CL08E 2tGDSUB 1370aGQGUB 1 


2101BQTO 1690 <1B1> 

5160 BL>A8C (HC+E«) +256»A8C (L«-4-E*> <157> 

5170 I»r+1 <073> 

5180 IF 1-19 THEN QOSUB 137BtGaSUB 11701I- 

7iOOTO 5150 <110> 

5190 SYS AT,5,I,BL| <222> 

5200 SET»2,A«,B* <097> 

5210 IF ALTHEN PRINT ASBSiiSOTa 5200 <209> 

5220 PRINT AfiGOTO 5140 <21B> 

5230 GQBUB 1160 <B5S> 

5240 MN»*>"81TTE DATEINAMEN EINBEBEN" <037> 

5250 B08UB 1420 <2S4> 

5260 SYS AT,S,S,‘’E INTRA G128PACEIL 0 

ESCHEN" <212> 

5270 SYS AT,5,B,''EB WIRD DER LETZTE EINTRA 

G AUF" <1S9> 

52S0 SYS AT,12,10,"<RVSaN,3SPACE>DI8KETTE 

■!!tRVQFF}" <11B> 

5290 SYS AT,5,12,"GELOESCHT !!!!" <143> 

5300 8YB AT,2,16,"DATEINAME. 

I <091> 

5310 LG-12 <046> 

5320 AL-1 <16B> 

5330 GOSUB 790 <13B> 

5340 EL*-IN« <176> 

5350 IF EL*-""THEN ELC-NA* <066> 

5360 IF EL*-""THEN 5300 <B92> 

5370 MN«-"RICHTIB? RETURN<2SPACE>JA{6SPACE 

>S0NST<2SPACE>NEIN" <019> 

5380 GOBUB 1420 <130> 

5390 SYS 49298 <150> 

5400 BET RIS <114> 

5410 IF RI»<X:HR*<13)THEN 1690 <226> 

5420 GOGUB 1210 <106> 

5430 NR=-1 <023> 

5440 OPEN 2,B,2,EL*+".DAT,8,R" <20B> 

5450 INPUT#2,TA <179> 

5460 NR-NR+1 <0a7> 

5470 INPUT#2,DA*(NR>,KI(NR),PR<NR> <217> 

5480 INPUT4f2,GE(NR) ,LI<NR) ,VE(NR> 

5490 IF STO0 THEN CUOSE BaBOTG 5510 <119> 

5500 GOTO 5460 <13B> 

5510 GOBUB 1210 <196> 

5520 IF NR-0 THEN 1690 <1B2> 

5530 OPEN 15,B,15,"Bi"+EL*+'‘.DAT" <110> 

5540 CLOSE 15 <044> 

5550 BOBUB 1210 <236> 

5560 OPEN 2,B,2,EL*-i-".DAT,8,M" <232> 

5570 PRINT#2,TA <123> 

SSaO FOR 1-0 TO NR-1 <052> 

5590 PRINT#2,DA*<I> <253> 

5600 PRINT#2,KI(I) <041> 

5610 PRINT#2,PR<I> <022> 

5620 PR1NT#2,BE(I> <1B7> 

5630 PRINTtt2,LI<I) <103> 

5640 PR1NT«2,VE(I) <179> 

5650 NEXT <072> 

5660 CLOSE 2 <091> 

5670’NR-NR-l <171> 

56B0 GOSUB 1160 <O0O> 

5690 QOSUB 1210 <122> 

5700 GOTO 1690 <18l> 

5710 G06UB 1160 <030> 

5720 GOSUB 1210 <152> 

5730 MN*-"BITTE DATEN EINGEBEN" <0a4> 

5740 GOSUB 1420 <236> 

5750 SYS AT,11,S,"N E U E<2SPACE>D A T E I 

" <199> 

5760 SYS AT,2,8."DATEINAME. i "i <07l> 

5770 LG-12 <254> 

5780 AL-I <120> 

5790 GOBUB 790 <082> 

5800 N«-IN« <039> 

5810 IF LEN(N*><1 THEN 5760 <179> 

5820 SYS AT,2,10,"DATUM .J " 

I <111> 

5830 LG-10 <ie6> 

5840 AL-1 <iB0> 

SB50 GOSUB 770 <142> 

5860 DA«-1N* <096> 

5870 SYS AT,2,12,"KILOMETERSTAND. 

I <216> 

5880 LG-6 <12B> 


5890 AL-0 <200> 
5900 GOSUB 790 <194> 
5910 K1“VAL(1N*) <134> 
5920 IF KI<0 THEN 5970 <207> 
5930 SYS AT,2,14,"MAXIMALER TANKINHALT.s " 

; <051> 
5940 LB-3 <094> 
5950 AL-0 <004> 
5960 BOSUB 790 <254> 
5970 TA»VAL(IN») <166> 
5980 IF TA<1 THEN 5930 <247> 
5990 MN«-"R1CHTI07 RETURN<28PACE}JA<6SPACE 

>S0N6T<28PACE>NE1N" <133> 
6000 GOSUB 1420 <242> 
6010 SYS 49298 <0B6> 
6020 QET RI« <226> 
6030 IF RI«<>CHR«(13)THEN 1690 <eB2> 
6040 GOSUB 1210 <2ie> 
6050 OPEN 2,a,2,N««".DAT,S,W" <036> 
6060 PRINT#2,TA <105> 
6070 PRINTM2,DA« <131> 
6080 PRINT«2,KI <094> 
6090 PRINT#2,0 <179> 
6100 PRINTM2,0 <1B9> 
6110 PRINT#2,0 <199> 
6120 PRINTtt2,0 <209> 
6130 CLOSE 2 <051> 
6140 GOBUB 1210 <062> 
6150 GOTO 1690 <123> 
6160 GOSUB 1160 <22S> 
6170 SYS AT,16,5,"E N D E" <072> 
6180 MN«-"RICHTIG? R£TURN<28PACE>JA<6SPACE 

>B0NST{2SPACEJNEIN” <069> 
6190 GOBUB 1420 <i7B> 
6200 SYS 4929B <19B> 
6210 GET RI« <162> 
6220 IF RI«<>CHR»<13)THEN 1690 <01B> 
6230 SYS 64738 <194> 


LIstIng 1. (Schluß) 

- 



Nams 


autokOsten mc 


cOOO cOal 


cOOO 

« 

20 

fd 

ae 

20 

ab 

b7 

aS 

15 

Oc 


cOOS 

1 

dO 

63 

66 

22 

aS 

14 

4a 

4a 

28 


cOlO 

t 

4a 

BS 

02 

aS 

14 

29 

07 

es 

04 


COIB 

1 

23 

a5 

dl 

IS 

65 

d3 

B5 

24 

d9 


c020 

1 

aS 

d2 

69 

00 

35 

25 

aO 

00 

Bd 


c02B 

1 

a6 

02 

fO 

20 

20 

64 

cO 

a? 

Bb 


c030 

1 

aO 

91 

24 

aS 

22 

91 

f3 

aS 

20 


cose 

1 

24 

38 

«9 

28 

05 

24 

bO 

oe 

44 


C040 

1 

C4b 

2S 

aS 

25 

c9 

04 

90 

12 

ca 


C048 

B 


02 

dO 

eO 

20 

64 

cO 

a6 

dS 


bOSO 

fl 

23 

bd 

70 

cO 

91 

24 

aS 

22 

9b 

LIstIng 2. 

cose 

fl 

91 

<3 

aS 

d3 

c5 

dS 

fO 

03 

9b 

c060 

1 

4c 

3b 

ab 

60 

aS 

24 

BS 

f3 

ba 

Maschlnonpro* 

c06e 


aS 

25 

4c 

2 a 

aa 

Ac 

48 

b2 

90 

gramm zu 
»AUTOKOSTEN«. 

c070 

1 

20 

64 

6 f 

79 

62 

fB 

f7 

b3 

63 

c078 

cOBO 

1 

20 

20 

fd 

fd 

aa 

aa 

20 

20 

9e 

9a 

b7 

b7 

Ba 

6 B 

46 

a8 

a9 

a9 

Bitte mit dem 

coee 

1 

IS 

20 

fO 

ff 

20 

fd 

aa 

4c 

32 

MSE (Seite 159) 

c090 

c09e 

1 

a4 

01 

aa 

dO 

aa 

*7 

20 

a9 

dO 

Oa 

aS 

Gd 

c6 

20 

e9 

dO 

32 

a4 

eingeben 

cOaO 

fl 

60 

40 

00 

ff 

00 

ff 

oo 

ff 

20 



Nama 

1 

autokoatan apr 


0340 03c0 


0340 

1 

00 

00 

00 

00 

03 

cO 

00 

06 

83 


0340 

1 

60 

00 

Oc 

fO 

00 

70 

fB 

01 

33 


0350 

1 

Bc 

fc 

02 

Ic 

fc 

Ob 

00 

7c 

9B 


0358 

1 

Ob 

00 

fc 

03 

cl 

bc 

00 

79 

fb 


0360 

1 

IB 

00 

06 

00 

00 

7d 

00 

00 

m6 


0360 

g 

39 

80 

06 

cB 

cO 

Od 

aB 

40 

14 


0370 

1 

Od 

be 

46 

Od 

9B 

7e 

Od 

BO 

bf 

LIstIng 3. 

037G 

1 

fc 

07 

ff 

BO 

00 

00 

00 

00 

08 

0380 

1 

op 

7b 

00 

03 

ff 

cO 

07 

ff 

42 

Sprltedaten zu 
»AUTOKOSTEN«. 

0388 

0390 

0398 

1 

1 

i 

aO 

3c 

7f 

Of 

fc 

ff 

ff 

3a 

fe 

fO 

18 

7f 

If 

7c 

ff 

ff 

3f 

fa 

fB 

3c 

7f 

3f 

fc 

ff 

62 

Sa 

bc 

Bitte mit dem 

03a0 

t 

fe 

79 

ff 

9a 

79 

ff 

9b 

3c 

b9 

MSE (Seite 159) 

03bB 

03b0 

1 

1 

ff 

If 

3c 

00 

3c 

fB 

7e 

Of 

3c 

81 

3b 

fO 

3c 

07 

7c 

ff 

44 

ab 

eingeben 

03bB 

1 

eO 

03 

ff 

cO 

00 

7b 

00 

00 

26 


44 


SONDERHEFT 23 




.(!• 























C64 


ASTRONOMIE 



s^n onLii^ 

Exakter IHondloilender 


Dieses Programm ist für alle Freunde der Astro¬ 
nomie ein Muß. Der C64 iiefert mit »Mondkalen¬ 
der« sowohl korrekte wissenschaftliche Informa¬ 
tionen als auch sämtliche Vbllmondtermlne. 
Astronomische Kalender werden überflüssig. 

W ie jeder Hobbyastronom weiß, sind-je nach Wohn¬ 
ort und Jahreszeit - nur wenige Nächte im Jahr 
wirklich »sternenklar«. Der C64 kann hier weiter- 
heifen. Mit der geeigneten Software ist es dem engagierten 
Anwender problemlos möglich, Himmelsereignisse mit 


ausreichender Genauigkeit vorauszuberechnen. Das vor¬ 
liegende Programm umfaßt ausschließlich den Mond. 
Sämtliche Berechnungen sind so genau, wie es die interne 
Zahlenverarbeitung des C64 zuläßt - also nicht nur für 
Hobbyzwecke brauchbar. 

Vergleichen Siedle Ergebnisse mit Jahrbüchern aus gro¬ 
ßen Rechenzentren, so werden Sie keine nennenswerten 
Unterschiede feststellen. Hinsichtlich des Datums zeigt 
sich das Programm ausgesprochen »tolerant« und berech¬ 
net auch über Hunderte von Jahren zuverlässig und exakt. 
Die Berechnungen dauern trotz aller Komplexität nur 
einige Sekunden. 


Mondephemeriden... 


Geben Sie »Mondkalender« (Listing 1) bitte mit dem Check¬ 
summer (Seite 159) ein. Der Programmaufbau ist nicht son¬ 
derlich kompliziert und somit leicht nachvollziehbar 
(Tabelle 1). 

Der erste Teil sorgt für die Berechnung der aktuellen, sich 
auf das Eingabedatum beziehenden Mondephemeriden, 
die kurz nach der Eingabe des Datums (bitte durch Kom¬ 
matatrennen) und der Uhrzeit (bitte GMT, was »Greenwich 
Mean Time«, also Weltzeit heißt) ausgegeben werden. 

Durch einen Tastendruck gelangen Sie in den zweiten 
Programmteil, der die genauen Zeiten der Mondphasen 
berechnet und ausgibt. 

Bild 1. Die Berechnung der Mondephemeriden DieAusgabederEphemeriden (Stellung der Sterne, hier 


liliUEIiliULE 


64'er / U.Reichard 1987 


25.07.1987 ZOhagM UT 
02.08.1997 19h23M UT 
08.08.1987 10hl7H UT 
16.08.1987 08h25H UT 



EpheMeriden wiederholen 
ProgranM neu beginnen 
PrograMM beenden 
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64'er y U.Reichard 1987 



1 01.08. 

1987 



16h32N 

UT 




l:73m 

itTama 




13h3lM 

-011.56 

388030 

kM 


13h3lM 

-012.38 

384g56 

kM 

MiVlfiltiLH 

802.22 

■UiLULIB 

028.39 

Grd 


■» . r . ti m ii Jif W MuamiM esa.ae ^ 
■rnimr a ra n 'T 1 1 1 iM 113.02 ^ 



Bild 2. »Mondkalender» berechnet die Mondphasen mit 
hoher Genauigkeit 


des Mondes) (Bild 1) umfaßt die geozentrischen und topo- 
zentrischen äquatorialen f^ordlnaten sowie die In diesen 
Systemen definierten Mond-Erde-Entfernungen. 

...und Mondphasen 


Ebenso werden Sie über die Horizontalkoordinaten Azi- 
muth und Höhe in Winkelgraden unterrichtet. Die Ausgabe 
der scheinbaren Mondgröße erfolgt in Bogenminuten 
(1 Grad sind 60 Bogenminuten). 

Dasselbe gilt für die scheinbare Erdgröße (was aber nur 
relevant ist, falls Sie mit Ihrem C64 auf dem Mond arbeiten 
sollten). 

Der eigentliche Mondkalender (Bild 2) informiert über . 
alle interessanten Daten, die unseren Trabanten betreffen, 


140- 165 
180- 195 

mathematische Funktionen 

Elngaberoutlne 

210- 240 
260- 270 

Berechnung des Julianischen Datums 
zeitabhängige Größen 

290- 330 

mittlere Längen 

360- 390 

KorrekturgröBen tOr Länge 

410- 420 

ekliptikale Länge 

440- 470 

KorrekturgröBen für Breite 

490 

ekliptikale Breite 

510- 530 

Horlzonlalparallaxe 

550 

Mondhalbmesser 

570 

Entfernung Erde-Mond 

600- 640 

Rektaszension und Deklination 

660- 780 

topozenlrlscha Koordination 

800- 830 

Horlzontalkoordlnaten 

840- 650 

Ausgabeformatierung 

860- 920 

Ausgabe Teil 1 

930- 950 

Zeitpunkte für Mondphasen 

955- 990 

mittlere Längen 

995- 1030 

Korrekturen für Neu- und Vollmond 

1035-1080 

Korrekturen für erstes und letztes Viertel 

1085- 1180 

Ausgabe Teil 2 

5000 - 5020 

Bildschirmaufbau 

6050 - 5080 

formatierte Ausgabe 

5100-5125 

formatierte Ausgabe 

5150-5230 

Umwandlung Jullanlsches Datum 
in Kalenderdatum 


Tabelle 1. So ist das Programm gegliedert 


wie Neumond, Vollmond, erstes und letztes Viertel. Dabei 
wird jeweils Datum und Ührzeit angegeben. 

Wir sind sicher, daß dieses Programm für fortgeschrit¬ 
tene Astronomiefreaks mindestens so interessant ist wie für 
den astrologisch interessierten Computeranwender. 

7 

(Volker Reichard/pd) 


1130 

CLRiGOSUB 5000 

<121> 

380 

E(4>=165*SIN(2*(LM-LS)-MB)+206*SIN<2*( 


110 

£ 

<0B6> 


LM-LB)-MM-MS)-110*SIN(MM+MB) 

<B36> 

120 

PI=l/lB0:P2=lB0/3,jP3=i/64S000 

<130> 

390 

E(S)=148*SIN(MM-MS> 

<215> 

130 

\ 

<106> 

400 

\ 

<122> 

140 

DEF PN A8(X)=ATN(X/6QR(1-X«X)) 

<219> 

410 

FOR 1=1 TD 5sEL=EL+E(I>lNEXT I 

<051> 

1S0 

DEF FN flC<X)=-flTN<X/SQR(l-X*X»>+i/2 

<B11> 

420 

EL=LM+EL*P3 

<ia9> 

160 

DEF FN RD(X)=(X/360-INT<X/360)>*360 

<107> 

430 

B 

<152> 

165 

DEF FN MM<X)=<X/24-INT<X/24>)*24 

<0U> 

440 

F(1)=1B520*SIN < EL-AK+412*P3«BIN(2*(LM- 


170 

1 

<146> 


AK)>+S41«P3*SIN<MS> > 

<131> 

180 

INPUT" IAe,flDNAT,ä/1HR "iDA.MO.YE 

<161> 

450 

F(2)=-526*aiN(2*LS-LM-AK> +44*SIN(2*LS- 


190 

PRINTl INPUT" STD,BIN tüiJ<3BPACEJ■'jHO, 



LM-AK+MM >-31*SIN(2*LS-LM-AK-MM > 

<130> 


MI 

<057> 

460 

F <3> =-23*8IN<2*L8~LM-AK+MS) + 11*81N<2*L 


195 

BOSUB 5000 

<183> 


S-LM-AK-MS>-25*SIN(LM-AK-2»MM) 

<227> 

200 

\ 

<I76> 

470 

F(4>«>21*SrN(LM-AK-MM) 

<242> 

210 

UT=HO+MI/60lMX=MOlYX-VE 

<203> 

480 

\ 

<202> 

220 

IF M0<=2 THEN MX=M0+I2iVX-YE-l 

<083> 

490 

FOR 1=1 70 4iEB=EB+F(I>;NEXT IiEB=EB*P 


230 

Jl-INT <365. 25*YX>-HNT (30.6001* (MX + l>>-t- 



3 

<1S5> 


1720981.5*DA 

<130'> 

500 

1 

<22Z> 

240 

J2<iJl+UT/24 

<070> 

510 

HP=3423+1S7*COS(NM>+10*COS<2*MM)+34*CO 


250 

1 

<226> 


S<2*(LM-LS)-MM>+28*CaS<2*(LM-LS)) 

<238> 

260 

TI"(J2-2415020)/36S25 

<0B7> 

520 

HP=HP+3*C08(2*(LM-LS)+MM) 

<U5> 

270 

T2=(J2-2451545>/36525 

<I56> 

530 

HP=HP»P3 

<013> 

280 

B 

<eB2> 

540 

B 

<O0B> 

290 

Ln=FN RD (270. 434164*480960*714-307. 8831 


550 

HM=FN AS(.272493*SIN(HP)) 

<163> 


42*T1-.001133*T1*T1)*P1 

<123> 

560 

fl 

<02B> 

300 

MM!=FN RD(296. 104608+477000*714-198.8491 






08»T1+.009I92*T1*T1)*P1 

<0U> 

570 

DM=637B.14/B1N<HP) 

<171> 

310 

AKaFN RD<2S9.183275-1800*71-134.142008 


580 

fl 

<048> 


*T1+.002078*T1*T1)*P1 

<196> 

600 

BE=(23.439291-.013004*72)»PI 

<OBl> 

320 

1.8=FN RD(279.696678+36000*71+.76B925*T 


610 

DK=FN AB(BIN(BE > «COS(EB)*81N(EL > +C06(8 



1+.8O0303*T1»T1)*P1 

<14B> 


E>*SIN<EB)> 

<148> 

330 

nS=FN RD <358.475833+35640*71+359.04975 


620 

RA=(COS(SE)»COS(EB)*S1N(EL)-SIN(SE)*SI 



*71-.00015*71*71>*P1 

<I88> 


N(EB>)/(COB(DK)+COB(EB)*COS(EL)> 

<112> 

340 

B 

<062> 

630 

RA=2*ATN(RA) 

<099> 

350 

E(1>=22640*8 IN(MM> +769*BIN(2*MM> +36*81 


640 

RA=”RA- (RA< 0) *2*1 

<246> 


N(3*MM >-125*81N < LM-LS) 

<044> 

fiidU 

B 

<11B> 

360 

E(2> =2370»S1N<2*(LH-LS> >-668*8IN(nS>-4 


660 

eS=FN MM (6.656306+.0657098242*(J1-2445 



I2*SIN(2*(LM-AK)> 

<002> 


700.5)+1.0027379093*UT) 

<007> 

370 

E(3)=212*SIN(2*(UM-L8-MM)> +4506*8 IN(2* 


670 

OS=FN MM(SS+7/lS) 

<224> 


(LM-LS>-Mn>+192»SIN(2*(LM-LS)+MM) 

<16B> 

680 

8Z=aB*15*Pl 

<235> 
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690 6B°49.2»P1 <0Ba> 

7B0 ER=6378.14 <ia4> 

710 XB:0K«CaS(DK)»Ca8(RA)-ER«COS<6B>*CO8<SZ 

) <0O7> 

720 V<°DK*caS (DK) *81N (RA) -ER«COS < BBl *81N < 8Z 

) <069> 

730 Z°Dn*SIN(DK)-ER»BIN(GB) <0217 

740 DT=80R(X*X+Y*Y+Z*Z> <243> 

7Se D2=FN A8(<DM»SIN(DK)-ER«SIN(Qß)>/0T> <e6S> 

760 R2»0T»C0S(D2)+DM«COS(DK)*COS<RA)-ER*CO 

S(BB)*CQB(8Z) <2BB> 

770 R2«2*ATN<(DM*COS(DK> *8IN<RA)-ER*COS(QB 

>*B1N(8Z))/R2) <096> 

7B0 R2«iR2-(R2<ai*2»i <01O> 

790 J <004> 

BOO BW=8Z-R2 <096> 

810 H>EN A8(81N(GB)*81N<D2)-fC0S(GB)<Ca8(D2 

)»COS<SM)> <23a> 

B20 A»2*ATN( (CCtS(D2)*8IN(SM) I / <C08 <H1-•■SIN < 

GB>«CGS(D2)*i:G8(BM)-CaS<eB>*eiN(02> >) <11S> 

B30 AZ-A-<A<0>*2*i <0B7> 

833 I <049> 

840 Z1*=R1GHT*(8TR*(100+DA),Z) + ". •'+R1BHT»< 

BTR*(100+MO),2>+"." <034> 

843 Zl«>>Zl*-<-RIGHT«<BTR»(ieBO0+YE) ,4) <10S> 

B50 Z2*=RIGHT*<8TR* (100+HO) ,2) +'‘H"+RIBHT* ( 

STR*(100+M1),2)+"M"+" UI" <096> 

BSS 1 <069> 

B60 PRINT" {SPACE,RVSON,BPACE>^TUM{2SPACE} 

j{RVGFF,SPACE>"J21*!PRINT <044> 

B63 PRINT"{BPACE,RVBaN,SPACE>UHRZEITi{RVOF 

F,SPACE>"jZ2*!PRINr <113> 

867 PRINT TABdO) "{SPACE,RVBON7J5EKT. {RVOFF 
,4SPACE,RVSDN >UBKL.{RVGFF,3BPACE,RVSON 
>£NTFERNUNB{RVOFF>" <07S> 

870 RX=RAsGOBUB 3100«PRINT«PRINT"CBPACE,RV 

SON,SPACE>GEOZ. «<RVOFF,&PACE>"lRX»; <06S> 
875 R=DK:GOSUB 5030:PRINT"{2SPACE}"JN«;"{2 

8PACE>"! <029> 

877 PRINT INT(DM+.5>" KM"«PRINT <032> 


880 RX»R2lG0SUB 5100:PRINT"{SPACE,RVSON,SP 

ACE>TOPOZ.:{RVOFF,SPACE>"!RX*j <039> 

885 R=D2:ßDSUB 5050:PRINT"{2SPACE>"jN*;"{2 

BPACE>"! <004> 

887' PRINT INTCDT+.5>" KM":PRINT <Z36> 

890 R=AZ«OaSLJB 5050«PRINT" {SPACE,RVSON,SPA 

CEJBZIMUT«{RVOFF>"lN*|"{2SPACE>"! <042> 

900 R=H:COSUB 505B«PR1NT"{SPACE,RVSON,SPAC 

EiaOEHE«{SPACE,RVOFF>"}N»|" fiRD":PRtNT <070> 
905 R°HI1*120:G06UB 3030: PRINT" {SPACE,RVBON 
,SPACE>ÖDNDDURCHHESSER«{RVOFF>"lN*|" ' 
"«PRINT <251> 

910 R=HP*t20«GOBUB 5050«PRINT"{SPACE,RVSON 
,3PACE>£RDDURCHMES8ER «{RVOFF>"JN*i" ' 
"IPRINT <155> 

915 PRINT«PRINT TAB(20)"{WHITE,RVSONIWEITE 

R MIT IABTE{RVaFF,8PACE>"s <087> 

920 POKE 198,0sMAIT 19B,llP0KE 198,0 <BBS> 

925 « <139> 

926 PRINT"{RVBONJJA{RVDFF,BLACK>" <242> 

930 T3-YE+(M0-l)/12+DA/365 <046> 

935 K(1)=INT((T3-I900)412.36B3+.3> <066> 

940 K(2)»K(1)*.5 <196> 

945 K<3)"K(l>+.25 <19B> 

950 K<4)"K(l)+.73 <123>' 

952 « <166> 

953 FOR I"1 TO 4 <165> 

960 T<I)=K(I>71236.85 <223> 

965 JD<I>>2415020.75933+29.S30S8B68»K(I)+. 

e00117S*T(I>«T(I>-.OO0O0O15S«T<I> r3 <02S> 

970 JD(1)=JD(I)+.O0O33*SIN((166.56+132.87* 

T(I)-.009173*T(I)*T<I)>*P1) <24B> 

975 M(I)=FN RD(3S9.224Z+29.10535608*K(I>-. 

0000333*T(I)T2-.00000347*T(I> t3)*P1 <22B> 

980 MM(I)>FN RD(306.0253+385.81691806*K(I> 

+ .0107306*T(I)t2+.0000l236*T(I> T3»*P1 <177> 

985 F(I)=FN RD(21.2964+390.67050646*K(I>-. 

0016528«T(I)t2-.00000239*T(I)T3)*P1 <010> 
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990 NEXT I 

<B56> 

1167 

PRINT TAB(5)"PROGRAMM BEENDEN{BSPACE, 


992 1 

<206> 


WHITE,RVSON,GPACE)<3)(SPACE,RVOFF,BLA 


995 FOR 1=1 TQ 2 

<204> 


CK)" 

<246> 

1000 Al=(. 1734-.00Q393«T<I) )*SIN(I1(I) > + .00 

1170 

GET W*slF W*=""THEN 1170 

< 201 > 

21*SIN(2*M<I>)-.40i!>a*SIN(l1M(I)) 

<005> 

1175 

IF WS="1"THEN GOSUB 50001 GOTO 860 

<019> 

1005 A2=.0161»SlN(2*nM<l))-.O004*SIN(3«MMI 


1177 

IF W»="2"THEN 100 

<123> 

I))+.0104*SIN<2»F<I)> 

<146> 

1179 

IF W»="3"THEN END 

<183> 

1010 A3>-.0B51*SlN(t1<I)+Mt1(l) )-. B074+SIN (f 


1180 

GOTO 1170 

< 0 B 8 > 

< 1 ) -MM (I)) +. 0a04*SIN ( 2 *Fa) +M (I > > 

<BO 0 > 

4999 

END 

<175> 

1015 A4=-.O0O4*SIN<2«F(I>-M(I})-.000i!.«81N( 


5000 

POKE 53281,14sPaKE 53280, 61 POKE 646,0 

<13e> 

2*F<I)+MM<I))+.001»SlN<2*F<I)-MM<I)> 

<107> 

5005 

PRINT CHR«(147)CHR«(14>CHR*(S) 

<127> 

1020 AS=.0005*SIN(M<1)+2*MM(I>) 

<055> 

5010 

PRINT TAB(4)“{RVSON,SPACElUONDEPHEMER 


1025 J0(1>=JD(I)+A1+A2+A3+A4+AS 

<113> 


IDEN UND flDNDPHA 8 EN{SPACE,RVDFF)"lPRl 


1030 NEXT 1 

<098> 


NT 

<255> 

1032 t 

<24a> 

5015 

PRINT TAB(9>"64-ER / y.ÄEICHARD 1987" 


1035 FOR 1=3 TO 4 

<055 > 


iPRINTlPRINT 

<119> 

1040 A1=<.1721-.0O04*T(I))*S1N(M(I)>*.0021 


5020 

RETURN 

<2S2> 

*SIN(2»n<I))-.628*81N(MM(l)) 

<170> 

5025 

1 

<175> 

1045 A2=.B089«8IN(2<MM(I>)-.O0O4«81N<3*MM( 


5050 

R=R»P2lQ=INT(R*lO0+.5>/10OiVSa” ” 1 IF 


I)>+.0079*SIN<2»F<I)) 

<144> 


O<0 THEN V»="-" 

<14a> 

1050 A5=-.0n9*8IN<M(I>+MM(I> >-.0e47<SlN(M 


5055 

Q=AGB(Q)aA«=STR*(INT(Q> > 1 B«= 8 TR«<INT( 


( 1 > -MM ( I >) +.0003*S1N(2*F ( I) +M( I > > 

<159> 


(Q-INT(Q)>*100+.5) 

<194> 

1055 A4=-.0004»SIN(2*F <1 ) -M (I> >-.0006»B1N( 


5060 

IF LEN(A$)-2 THEN A»="00"+RIQHT*<A*,1 


2*F(I) +t1N«I) > + .0021*SIN(2*F(I>-MM(l) > 

<032> 


> 

<043> 

1060 AS=.0003«8IN<M(1>+2«MM<I)>+.0004*SIN< 


5065 

IF LEN(A«>-3 THEN A*="0"+RIGHT« < A« , 2> 

<062> 

M ( I ) -2*MM ( 1 >)-. 0003»SIN <2*M < I > +MM < 1 >) 

<142> 

5070 

A*=RIGHT«(A«,3>llF LEN<B*>=2 THEN B*= 


1065 JD(I>=JD(1>+A1+A2+A3+A4+A5 

<153> 


"0"+RIQHT*(B*,I> 

<171> 

1070 NEXT I 

<13B> 

5075 

N*=V»+A*+"."+RIGHT*(B*,2) 

<131> 

1075 JD(3)«JD<3)+.O02a-.0004«CaS<M(3> > + .00 


5080 

RETURN 

<056> 

03*COS<MM<3) ) 

<217> 

SOGS 

1 

<235> 

1080 JD(4> =JD(4>0028+.0084+C0S(M(4)>-.00 


5100 

RX=RX*P2/15 

<B 6 S> 

03*008 (MM (4> ) 

<129> 

5105 

RH=INT<RX>iRM=INT((RX-INT(RX>)*60+.5) 

<179> 

1082 t 

<B42> 

5110 

RH*=RIBHT*(8TR*(100+RH>,2) 

<192> 

1085 ZT(1)=JD(1> 

<O40> 

5115 

RM»=RIBHT»(STR* { 100+RM>,2 > 

< 111 > 

1090 2T(2>=JD(3> 

<093> 

5120 

RX*=RH»+ " H"+RM*+ " M " 

<O04> 

1095 ZT(3>=JD(2> 

<t 22 > 

5125 

RETURN 

<103> 

1100 ZT(4)=JD(4> 

<175> 

5130 

8 

<026> 

1105 GOSIJB 5000 

<077> 

5150 

A=INT(X+.S)bC=A+1537 

<0O7> 

1110 PRINT"<SPACE,RVSQN,SPACE>flDNDPHASEN<S 


5155 

D=INT((C-122.1)/365.25> 

<129> 

PACE,RVOFF > "j PRINT 

<109> 

5160 

E=INT(365.25*D) - 

<223> 

1115 PRINTSX=ZT<1>sGOSUB 5150 

< 200 > 

5165 

F=INT((C-E>/30.60O1> 

<208> 

1120 PRINT"fSPACE,RVSON,SPACE>JSEUMONDCaSPA 


5170 

DX=C-E-INT(30.6001*F)+(X+.S-A) 

< 011 > 

CE>s <RV 0 FF,BPACE >"5 Z3* 

<<34g5’' ■ 

■ 'B49J?T* *RIGHT*CSTR#(10O0+INT<DX> ) ,2) 

<056> 

1125 PRINTsX=ZT(2)sGOSUB 5150 

< 212 > 

5180 

MX=F-1-12*INT(F/14) 

<B14> 

1130 PRINT"<BPACE,RVSON,SPACEJ£RSTES :iIERT 


5185 

M»=RI6HT*(STR#(1000+MX>,2) 

<195> 

EL t tRVOFF,SPACE>‘'}Z3» 

<015> 

5190 

VX=D-4715-INT((7+MX)/lO) 

<169> 

1135 PRINTiX=ZT(3>«G0SUB 5150 

<224> 

5195 

Y*=RIQHT*(STR*(10000+V X >, 4 > 

<128> 

1140 PRINT"< 8 PACE,RVSON,SPACEJiOLLMONDf75P 


5200 

HO=(DX-INT<DX> >*24 

<B60> 

ACE>« tRV0FF,SPACE>''jZ3* 

<152> 

5205 

(11=(Ha-INT{H0> >*60 

<044> 

1145 PRINTSX=ZT(4)sGOBUB 5150 

<236> 

5210 

H0=INT(H0>;MI=INT(MI+.5) 

<252> 

1150 PRINT"< 8 PACE,RVSON,SPACE>t£TZTES ÜIER 


5215 

HO*=RIGHT*( 8 TR«(100O+HO >,2 > 

< 22 B> 

TELs TRVOFF,SPACE}";Z3* 

<182> 

5220 

MI*=RIGHTS(STRS(1B00+MI>,2) 

<073> 

1155 PRINTsPRINT 

<091> 

5225 

Z3*=D*+". •'+M*+". "+Y*+“ "+HO*+"H"+MI*+ 


1160 PRINT TAB(3>" 6 PHEMERIDEN WIEDERHOLENt 



"M"+" UI" 

<051> 

SPACE,WHITE,RVSON,SPACE)(1)tSPACE,RVD 


5230 

RETURN 

< 20 a> 

FF,BLACK5"bPRINT 

<193> 




1165 PRINT TAB<5)"PROGRAMM NEU BEGINNENC38 





PACE,WHITE,RVSON,SPACE)(2){SPACE,RVOF 





F,BLACK)"lPRINT 

<BSS> 

LIsting 1. (Schluß) 





OAÖI6T mm mOBRUCH M/flÄ DBR 
CM \jiRZRPFT~fiU OKöB OfilCN. 
OOOH./niR WRD bCHLBCHT. XH 
GiMB' ICH 
mVfiB K... 

W 



. Dem zum 

mCHTiaCH NOCH 
BIN KteiN&S VIfiUS- 
. PROGRHmnu/UHH/m 
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SID-Diredor: 
Töne unter Ifonirolle 


Sie möchten die erstaunlichen musikalischen 
Fähigkeiten Ihres C64 in den Griff bekommen? 
Ein komfortabler Kiangeditor namens »SID- 
Director« wird Ihnen dabei hilfreich zur Seite ste¬ 
hen. Die eintech zu erzeugenden, fantastischen 
Töne verwenden Sie ohne Probleme in eigenen 
Programmen. 

O bwohl der Soundchip des C64 durch Vielfalt und 
Klangfülle glänzt, stellt er den Einsteiger oft vor Pro¬ 
bleme. Denn er ist wie der Videochip nur über POKE- 
Befehle zu programmieren. Dabei muß viel mit Bits und 
Bytes hantiert werden, was umständlich und auf Anhieb 
kaum zu durchschauen ist. Der »SID-Director« nimmt Ihnen 
diese Arbeit ab. In einem übersichtlichen Kontrollfeld (Bild 
1) lassen sich die Register des SID (Sound Interface Device 
= der für die Tonerzeugung zuständige Chip im C64) ver¬ 
ändern und so Klänge aller Art erzeugen. Dazu wird fast 
ausschließlich der Joystick verwendet. Wir haben uns 



Bild 1. Das Kontrollfeld des SIO-Directors erleichtert die 
Bedienung des Soundchip erheblich. Diese Einstellung der 
Register wählen Sie für unser erstes Beispiel. 


diese Eigenschaften zunutze gemacht und wollen Ihnen im 
folgenden die Prinzipien der »Sound«-Programmierung 
darlegen. Dann werden auch Sie den Musikus C 64 beherr¬ 
schen und für kreative Ideen einsetzen, Der SID-Director 
soll uns bei diesem Vorhaben tatkräftig unterstützen. 

Knöpfe und Regler en masse 


Das Programm setzt sich aus vier Teilen zusammen. 
Zunächst sind die Listings 1 bis 4 einzugeben und auf einer 
Diskette zu speichern (siehe auch Textkasten »Eingabehin¬ 
weise«) Vor dem ersten Start des SID-Directors müssen Sie 
das Programm »MASK GEN.« (Listing 2) aufrufen. Es 
erzeugt die Dateien »MASK« und »C.MASK« und schreibt 
sie auf die eingelegte Diskette. Hier müssen die Dateien 
»SID-DIRECTOR«. »MASK GEN.«, »MC«, »P.CURSOR«, 
»MASK« und »C.MASK« vorhanden sein. Das Programm 
»MASK GEN.« wird nicht mehr benötigt und kann daher 


gelöscht werden. Der SID-Director ist jetzt zum Einsatz 
bereit und läßt sich mit RUN starten. 

Das zu Beginn erscheinende Kontrollfeld (Bild 1) bieibt 
während des gesamten Programmablaufs sichtbar. Hier 
stellen Sie mit dem Joystick in Port 2 die Register des SID 
Ihren Wünschen entsprechend ein. Bewegen Sie zunächst 
den Joystick nach rechts unten, lassen Sie ihp los und es 
erscheint ein weißer Pfeil, Er ersetzt im SID-Director den 
Cursor. Mittels Joystick bewegt man den Pfeil überdas Kon¬ 
trollfeld und wählt so die einzelnen Funktionen an, 

Basu-Generator inbegriffen 


Diese werden durch Befehlskürzel aus drei Buchstaben 
dargestellt. Neben oder über diesen Befehlen befinden 
sich verschiedene Displays, die den Wert des eingestellten 
Parameters darstellen. Ausgehend von diesen Anzeigen 
kann man die Befehle des SID-Directors in vier Gruppen 
unterteilen: 

Gruppe 1: Befehle, die Tastatureingaben erfordern und 
mit einem Zeilendisplay ausgestattet sind (FRQ, GRF, und 
PLS). Bewegen Sie hier den Pfeil auf das jeweilige Befehls¬ 
wort und drücken den Feuerknopf. Geben Sie nun den 
gewünschten Zahlenwert ein. Dabei ist folgendes Format 
zu beo-^hten: Die Zahl muß aus mindestens einer Vorkom- 
mastetie, einem Punkt und zuletzt aus genau zwei Nach¬ 
kommastellen bestehen. Die Eingaben schließen Sie mit 
»RETURN« ab. 

Gruppe 2: Befehle, die einzelne Parameter setzen bezie¬ 
hungsweise löschen und über eine schalterähnliche 
Anzeige verfügen (FIL, SYN und RMD). Bewegen Sie hier 
den Pfeil auf den gewünschten Befehl, drücken den Feu¬ 
erknopf und halten ihn gedrückt. Nun können Sie wie bei 
einem Schalter durch Joystickdruck nach links bezie¬ 
hungsweise nach rechts den entsprechenden Parameter 
ein- und ausschalten. Zwischen der Beschriftung und dem 
Schalter leuchtet je nach dessen Stellung ein Lämpchen 
auf. So sehen Sie stets, welche Parameter gesetzt und wel¬ 
che gelöscht sind. 

Gruppe 3: Befehle, die Parameter über Schieberegler 
einstellen (ATT. DEC, SUS, REL, VOL, RES, FIL und WAV). 
Auch hier bewegen Sie den Pfeil auf das entsprechende 
Befehlswort, drücken den Feuerknopf und halten ihn 
gedrückt. Durch Auf- und Abbewegen des Joysticks läßt 
sich der Parameter verändern. Der Stand der Schiebe¬ 
regler entspricht dabei dem Wert des Parameters: Je höher 
der Regler steht, desto größer ist der Wert. Auf die Beson¬ 
derheiten der Befehle »WAV« und »FIL« werden wir im Ver¬ 
lauf unserer Klangexkursion noch zu sprechen kommen. 

Gruppe 4: Der Befehl »VOI«. Er wird wie die Befehle aus 
GruppeSdurch Auf- und Abbewegen des Joysticks bedient 
und wechselt die Stimme des SID. Das Kontrollfeld über¬ 
nimmt dabei die Parameter der ausgewählten Stimme und 
zeigt die entsprechenden Registerwerte am Bildschirm an. 
Bis auf die Parameter VOL, RES, FIL und GRF ist die Bele¬ 
gung der Registerfür jede Stimme frei wählbar. Die Befehle 
beziehen sich dabei auf die aktuelle Stimme. Sie ist aus der 
Zahl unter dem VOI-Befehl ersichtlich. 

Die Befehle »TES« und »END« haben kein Display und 
unterscheiden sich deshalb von den anderen Funktionen, 
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TES läßt den eingestellten Ton erklingen, solange der Feu¬ 
erknopf gedrückt Ist. Beim Loslassen klingt der Ton aus. 
Durch Anklicken von END wird der SID-Director verlassen 
und der Speicher gelöscht. Achtungl Es ist nicht möglich, 
diesen Schritt rückgängig zu machen. Übrig bleibt ein klei¬ 
nes Basic-Programm, das den zuletzt eingestellten Ton 
erzeugt. So können Sie mit dem SID-Director generierte 
Töne leicht in eigene Programm übernehmen. Das Basic- 
Programm läßt sich ganz normal speichern, laden, 
drucken, listen und durch RUN starten. 



Bild 2. Die C-Dur-Tonlelter und ihre Frequenzen 


Tabelle 1 listet alle Befehle des SID-Directors und eine 
knappe Erklärung dazu auf. Um dem Anwender einen tiefe¬ 
ren Einblick in den SID-Director zu ermöglichen, zeigt 
Tabelle 2 die Felder, Variablen und Funktionen des Pro¬ 
gramms. Des weiteren gliedert Tabelle 3 die Struktur des 
Basic-Programms SID-Director (Listing 1). 

Doch auch der Anfänger kommt nicht zu kurz. Denn mit 
dem SID-Director läßt sich einiges anfangen: Man kann 
durch einfaches Stellen an den einzelnen Reglern Klänge 
und Geräusche entwerfen, testen und verbessern. Doch 
wie kommen diese zustande? Und was für eine Bedeutung 
haben dabei die einzelnen Register des SID? Was passiert 
genau, wenn man an den Reglern des SID-Directors 


Die Befehle des SID-Directors 

a) Für jede der drei Stimmen einzeln vorhandene Befehle 

FRQ 

Wählt die Tonfrequenz in Hz 

WAV 

Stellt über einen Schieberegler die Wellenform 
ein 

PLS 

Pulsweite für die Rechteckwelle In Prozent 

ATT 

Dauer der Anschwell-Phase 

DEC 

Dauer der Abschwell-Phase 

SUS 

Lautstärke beim Halten des Tons 

REL 

Dauer der Auskling-Phase 

RMD 

Schaltet die Ringmodulation ein 

SYN 

Schaltet die Synchronisation ein 

FIL 

Schattet das Filter ein 

Achtung; Bel den Befehlen »RMD« und »SYN« sind nur dann sinn¬ 
volle Ergebnisse zu erzielen, wenn die beeinflussende Stimme 
(für Stimme 2 Ist das Stimme 1, für Stimme 3 Stimme 2 und für 
Stimme 1 Stimme 3) ebenfalls »RMD« beziehungsweise »SYN« 
eingestellt hat. Außerdem arbeitet die Ringmodulation nur mit der 

Wellenform 

»Dreieck«. 

b) Befehle, die alle 3 Stimmen gleichermaßen beelnfluaeen 

VOL 

Legt die Oesamtlautstärke fest 

QRF 

Qrenzfrequenz des Filters In Hz 

RES 

Filterresonanz (Verstärkung Im Qrenzbereich) 

FIL 

Art des Filters, siehe Bild 5 

VOI 

Wählt die Stimme 

TES 

Testet den eingeateltten Klang 

END 

Verläßt den SID-Director und generiert ein 
Basic-Programm, das den zuletzt eingestellten 

Klang erzeugt 


Tabelle 1, Mit diesen Befehlen sind Sie In der Lage, im SID- 
Dlrector die einzelnen Register des SID zu verändern 


»dreht«? Auf diese Fragen gehen wir nun ein. Wir werden 
dem Einsteiger die Register des SID anhand der Bedie¬ 
nung des SID-Directors erklären. Dabei werden des öfteren 
Begriffe aus dem Englischen fallen, deren Übersetzung 
und Bedeutung Sie bitte Tabelle 4 entnehmen. 

Jeder Ton, den wir über unser Ohr wahrnehmen, wird 
durch schwingende Luft erzeugt. Je schneller die Luft 
dabei schwingt, desto höher ist die Frequenz des Tons und 
desto höher erscheint er uns. Dies macht man sich bei der 
elektronischen Klangerzeugung im C64 zunutze: Der 


Die Variablen dee SID-Directors 

Felder für die 3 Stimmen: 

FL/FH 

Frequenzregister Low/HIgh 

PL/PH 

Pulswelte Low/HIgh 

KO 

Kontrollreglster 

AD 

Attack und Decay für den SID kombiniert 

SR 

Sustaln und Release für den SID kombiniert 

A 

Attack einzeln 

D 

Decay einzeln 

S 

Sustaln einzeln 

fl 

Release einzeln 

RI 

Ringmodulation ein/aus 

SC 

Synchronisation ein/aus 

FR 

Frequenz 

PW 

Pulswelte 

Sonstige Felder (die Zahlen in Klammern geben die Größe und die 
Dimension an): 

VI 

(39,24) Position der Menüpunkte 

JR 

(26) Richtung des Joysticks in Port 2 

SX 

<17) 

SY 

(17) Pixelkoordinaten der Menüpunkte 

MX 

(15) 

’i MV^ 

(15) Blldschirmkoordlnaten der Displays 

Numerische Variablen 

V 

Aktuelle Stimme 

M 

Aktueller Menüpunkt (Befehl) 

GL/GH 

Grenzfrequenz Low/High 

RF 

Resonanz- und Filterregister 

ML 

Modus- und Lautstärkereglsler 

S 

Basisadresse des SID (54272) 

JO 

Joystick In Port 2 (56320) 

GR 

Grenzfrequenz 

VO 

Lautstärke 

RS 

Resonanz 

Fl 

Art des Filters (BandpaßZ-sperre, Hoch-/TlefpaB) 

DO 

Stimme 3 stumm/nicht stumm geschaltet 

W 

Parameter an Unterprogramme übergeben 

A,l 

Zähler und Zwischenspeicher 

VS/NS 

Anzahl Vor-/Nachkommastellen 

KF 

Flag für Komma 

Funktionen 

JY 

JoysIIckabtrage 

XB/YB 

SprItekoordinaten in Bildschirmkoordinaten 
wandeln 

PW 

Pulsweite; Prozent In Registerwert umrechnen 

FR 

Frequenz (ln Hz) für Register vorbereiten 

GR 

Qrenzfrequenz für Register vorbereiten 

HI/LO 

HIgh/Low-Byte berechnen 

PO 

POKES für ADSR erzeugen 

XK/YK 

Pfeilkoordinaten an Maschinenprogramm über¬ 
geben 

SX/SY 

Bildschirmkoordinaten In SprItekoordinaten 
wandeln 

OD 

Zahl auf Parität prüfen 

GH/QL 

High/Low-Byte der Grenzfrequenz errechnen 


Tabelle 2. Mit den oben aufgeführten Feldern, Variablen 
und Funktionen arbeitet der SID-Director 
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zusätzlich die Pulsweite - ihre Bedeutung geht ebenfalls 
aus Bild 3 hervor - über PLS festgelegt werden. Wählen Sie 
zu Beginn eine Pulsweite von 50.00 Prozent. Eine beson¬ 
dere Art der Welle ist das Rauschen. Es ergibt einen voll¬ 
kommen unregelmäßigen Klang, ein Geräusch und wird 
deshalb gern für Effekte aller Art eingesetzt. 

ADSR - Veriauf der Lautstärke 


Neben der Weilenform beeinflußt der Lautstärkeverlauf - 
die »Hüllkurve« - einen Ton erheblich. Eine Trommel bei¬ 
spielsweise hört nach dem Anschlägen sofort auf zu klin¬ 
gen, ein Becken dagegen hallt sehr lange nach. Der C64 



Bild 5. Filter sortieren bestimmte Frequenzen aus. Hier die 
vier gebräuchiichsten Typen und die entsprechende Stel- 
iung des FIL-Schiebereglers Im SID-Director. 


kann diese Effekte ebenfalls nachahmen. Der Einfachheit 
halber unterteilt man den Verlauf eines Tons in vier Phasen. 
Das Diagramm in Bild 4 veranschaulicht dies: Wird beim 
SID-Director der TES-Knopf gedrückt, steigt die Lautstärke 
an (Attack) und fällt in der Decay-Phase auf einen Haltewert 
(Sustain) ab. Nach Loslassen des Joystickknopfes erlischt 
der Ton in der Release-Phase vollständig. Die Dauer dieser 
Phasen und die Sustain-Lautstärke können wir unserem 
Computer mitteilen. Dies geschieht beim SID-Director über 
die Schieberegler ATT, DEC, SUS und REL. Das Festlegen 
des Lautstärkeverlaufs bezeichnet man auch als »ADSR«- 
Programmierung. Wir wollen diese Technik ausprobieren. 

Stellen Sie zuerst wieder die Dreieckswelle ein. Verlän¬ 
gern Sie nun die Release-Phase über REL und der Ton 
klingt sehr langsam ab. Wird dagegen der ATT-Schleber 
ans obere Ende gesetzt, erhöht der Ton seine Lautstärke zu 
Beginn sehr langsam und wirkt so unnatürlich und unheim¬ 
lich. 

Durch Kombination verschiedener Wellenformen mit 
unterschiedlichen ADSR-Verläufen lassen sich vielfältige 
Klänge erzeugen. Hier sind Ihrer Phantasie keine Grenzen 
gesetzt. Probieren Sie aus, was für Ergebnisse sich allein 
mit der Manipulation der Hüllkurve erzielen lassen. 

Der SID als Kaffeemasihme... 


Gemisch in brauchbare und unbrauchbare Bestandteile 
auf. Nur das Brauchbare kann den Filter passieren. Die Fil¬ 
ter des C 64 sortieren Töne aus einem Tongemisch aus. Als 
Kriterium gilt dabei die Frequenz. Je nachdem, ob seine 
Frequenz über oder unter einer festgelegten Grenze liegt, 
passiert derTon das Filter oder nicht. Diese Grenzfrequenz 
wird beim SID-Director über GRF eingegeben. Wählen Sie 
als Grenzfrequenz 0.70 KHz und stellen Sie die Tonfre¬ 
quenz auf 440.00 Hz. Solange kein Filter eingeschaltet ist, 
verläuft alles normal. Beim Druck auf TES erklingt der Ton 
wie gewohnt. Doch sobald Sie das Feld FIL anwählen, wird 
die darüberliegende Anzeige in schwarze und gelbe Berei¬ 
che eingeteilt. Stellen Sie das Display durch Auf- und Abbe¬ 
wegen des Joysticks so ein, daß der obere Bereich gelb 
gefärbt und der untere schwarz Ist. Schalten Sie als letzten 
Schritt das Filter mit dem FIL-Schalter rechts im Kontroll- 
feld ein. Der Klang beim Druck auf TES Ist nun deutlich 
dünner, da nur Töne über 0.70 kHz, also über 700 Hz, das 
Filter passieren können. Je nach Art der Filterung unter¬ 
scheidet man vier Grundtypen: das Hochpaß-, das Tiefpaß-, 
das Bandpaßfilter und die Bandsperre. Diese Formen zeigt 
Ihnen Bild 5, die Diagramme beschreiben die Wirkung des 
jeweiligen Typs. Im SID-Director werden die Filter mittels 
der neben den Diagrammen abgebildeten Stellung des 
FIL-Reglers angewählt. »FGR« ist dabei die Grenzfre¬ 
quenz. Für die folgenden Versuche wollen wir die Filter wie¬ 
der ausschalten. Schieben Sie also den FIL-Schalter nach 
links. 


... und als Chorknabe 


Bis jetzt ließen wir den SID lediglich über eine Stimme 
erklirjse'i. Doch auch im Chor vollbringt er beachtliches. 
Wählen Sie dazu über VOI die zweite Stimme an und stellen 
hier die Dreieckswelle ein. Setzen Sie dann die ADSR- 
Werte wie bei Stimme 1 und geben Sie als Tonfrequenz 
528.00 Hz ein. Ein Knopfdruck auf TES sorgt für einen 
Zusammenklang, der harmonisch, voll und rund erscheint. 
Doch dies muß nicht so bleiben. Im SID können sich näm¬ 
lich zwei Stimmen gegenseitig beeinflussen. Die erste 
Möglichkeit Ist die Synchronisation, Bild 6 zeigt Ihndn das 
Prinzip. Immer, wenn bei Stimme 1 eine neue Schwingung 
beginnt, fängt auch Stimme 2 »von vorne« an. Um dies 



Bild 6. Das Prinzip der Synchronisation. Die Wellenformen 
zweier Stimmen werden miteinander gekoppelt. 


Doch der SID kann noch mehr und SID-Director hilft uns, 
diese Möglichkeiten auszuschöpfen. Was ein Filter im Kaf¬ 
fee erledigt, dürfte Ihnen bekannt sei. Doch was macht ein 
Filter in der Musik? Ist so etwas überhaupt sinnvoll? 

Nun, prinzipiell verrichten der Kaffeefilter und das Filter 
in der Musik ähnliche Aufgaben. Beide trennen ein 


auszuprobieren, müssen Sie bei beiden Stimmen die Filter 
aus- und den Schalter SYN (Synchronisation) einschalten. 
Nun ergibt sich kein harmonischer Zusammenklang mehr, 
vielmehr erhalten wir einen einzigen Ton, daran das Surren 
eines Moskitos erinnert. Neben der Synchronisation 
beherrscht der SID die »Ringmodulation«. Auch sie wird 
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Bild 7. Bel der Ringmodulation multipliziert der SID die Kur¬ 
ven zweier Stimmen (f1 und f2) miteinander 


und somit der von uns wahrgenommene Ton zustande 
kommt. 

Diesel ohne Ruß 


ln unserer SID-Revue ließen wir die wichtigsten Register 
und Funktionen passieren. Sie wurden immer wieder zum 
Mitmachen aufgefordert, denn durch direktes Ausprobie¬ 
ren können Sie die Theorie am besten verarbeiten. Der 
SID-Director war Ihnen dabei ein nützliches Werkzeug, Wir 
hoffen, daß dies so bleibt. Lassen Sie einfach Ihrer Kreativi¬ 
tät freien Lauf. 

Um Ihnen einen kleinen Anreiz zu bieten, verabschieden 
wir uns von Ihnen mit einem brummenden Dieselmotor, der 
selbstverständlich vom SID-Director erzeugt wurde. Dieser 
Effekt ist in Listing 5 abgedruckt. 

(Frank Gerberding/Axel Pretzsch/ap) 


durch das gegenseitige Beeinflussen zweier Stimmen 
erzeugt. Der SID arbeitet hier als Miniatur-Computer; Er 
multipliziert die beiden Töne miteinander und erhält soeine 
komplexe Wellenform, die den ursprünglichen Wellenfor¬ 
men weder im Aussehen noch in der Frequenz gleicht. Bild 
7 zeigt Ihnen zwei Wellenformen mit den Frequenzen »ft« 
und »f2« und das Produkt »fm« daraus. Die Ringmodulation 
funktioniert übrigens nur, wenn Sie bei beiden Stimmen die 
Dreieckswelle eingestellt haben. 

Löschen Sie im nächsten Schritt den Filler und die 
Synchronisaton in beiden Stimmen und schalten Sie dafür 
RMD ein. Wählen Sie außerdem als Frequenzen 600 und 
800 Hz. Ein Druck auf TES bringt es an den Tag: Der so 
erzeugte Ton hat mit dem ursprünglichen, chorjschen. 
Klang nichts mehr gemein, obwohl Wellenform und ÄDSR-' 
Verlauf gleichgeblieben sind. Vielmehr hört sich der Ton 
wie eine Röhrenglocke und somit metallisch an. Dieser 
Effekt läßt sich verallgemeinern; Vielfach wird die Ringmo¬ 
dulation zur Erzeugung metallischer Klänge eingesetzt. 
Die Synchronisation wird dagegen meist zur Erzeugung 
elektronischer (»unnatürlicher«) Töne verwendet. 

Um Ihnen zum Abschluß einen groben Überblick über 
die bis jetzt besprochenen Funktionen des SID und deren 
Zusammenspiel zu geben, stellt Bild 8 den SID im Block¬ 
schaltbild dar. 

Hier sehen Sie, wie sich die drei Stimmen beeinflussen 
können, und wie letztendlich das Signal im Lautsprecher 


Eingabehinweise für die LIstings 1 bis 4 

Geben Sie Listing 1 und Listing 2 mit dem Checksummer V 3 und 
die LIstings 3 und 4 mit dem MSE (Seite 159) ein. Die vier Pro¬ 
gramme müssen unter den angegebenen Namen auf einer Dis¬ 
kette gespeichert werden. Bevor Sie den SID-Director zum ersten 
Mal starten, mu6 das Programm »MASK QEN.> aus Listing 2 auf¬ 
gerufen werden. Es erzeugt auf der Diskette die Dateien »MASK« 
und -C.MASK«. Danach können Sie es löschen und den SID- 
Director normal mit RUN starten. 


1 IF LC=0 THEN LC=l!L0AD”MC".8.B <035> 

2 IF LC=1 THEN LC=2:LOAD"P.CURSOR".8.8 <152> 

3 IF LC=2 THEN LC=3:PRINT CHR#(147)CHRS<14 

2)CHRS(a>i :L0AD"C.HASK'',8,8 <176> 

4 IF LC=3 THEN LC=4:P0KE 53280,11sPOKE 532 

61.11< LOAD"MASK".6,8 < 043 > 

5 POKE 55,e3!POKE 56,15e:CLR: 

DIM VI(39.24) .JR<2e) <242> 

6 DIM SX(17>.SY<17>,MX(15),MY(15> <237> 



Bild 8. Der SID Im Blockschaltbild. Drei Stimmen erzeugen 
Töne, beeinflussen sich gegenseitig und liefern auf diese 
Welse ein sehr variantenreiches Klangspektrum. 


7 DEF 

8 DEF 


FN JY(X) =JR<PEEK(X>-101) 
FN XB(X> =INTC(X-24)/8) 


9 DEF FN YB(Y) =INT((Y-50>/8> 

20 DEF FN PW(X) =1NT(X»40.96) 

21 DEF FN FE(X) =INT(X*17,02841156) 

22 DEF FN GR(X) =INT(((X»1000)-30)/5.8182) 

23 DEF FN HI(X) =INT(X/25e> 

24 DEF FN LOtX) sX'256*FN HItX) 

25 DEF FN P0(N1)=Nl+ie*N2 

26 DEF FN XKtX) rPEEK(700)+PEEK<701)*256 

27 DEF FN YK<X) =PEEK(702) 

28 DEF FN SX(X> =X*8+24 

29 DEF FN SY(Y> =Y*8+50 

30 DEF FN OD(W> =V AND 1 

31 DEF FN QHtX) =INT(X/B) 

32 DEF FN OLtX) =X-8*FN QHtX) 

36 S=54272!FOR 1=0 TO 2■A=I+1!B=S+7*ItFL(A 
)=BiFH(A)=B+l!PL(A)=B+2!PH(A)=B+3 

37 K0(A)=B«4!AD(A)=B+5-.SR(A)=B+8!NEXT I 
40 OL=S+2l!aH=S+22!HF=S+23!ML=S+24 

43 VO=0 s FU=0!FO=3e48.568011:Ua = 0.03 r 00=11. 
93985S4:PU=0:PO=100!V=l!CS=58640 

44 JO=56320:FOE 1=0 TO 24iPOKE S+I,0!NEXT 
I 

50 FOE 1=1 TO 7:HEAD X,Y,M = VKX.Y)=M!VItX, 
Y+l)=M:VI<X,Y+2)=MrSX(I)=FN SXtX) 

51 SY<I)=FN SYtYlsNEXT IsFOE 1=1 TO 10SREA 
D X.Y.M!VI(X,Y)=MiVI(X+l.Y>=M!VI<X+2,Y) 

=M 

52 SXtI+7)=FN SXtX):SY(I+7>=FN SY(Y)!NEXT 
Listing 1. Das Hauptprogramm »SID-DIRECTOR«. Bitte mit 
dem Checksummer V 3 (Seite 159) eingeben. 


<233> 

<086> 

<132> 

< 101 > 

< 020 > 

<168> 

<014> 

<191> 

<093> 

<125> 

<073> 

<235> 

<079> 

<08l> 

<218> 

<048> 

<118> 

<052> 

<1S8> 

< 012 > 

<188> 

<225> 


< 110 > 
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I:FOE 1=0 TO 26rREAD JR(I):NEXT I 

55 POKE 2041,14-.POKE 2042.15:FOR 1=896 TO 
918:POKE I,255!NEXT liFOR 1=980 TO 1022 
:POKE 1,8 

56 NEXT I:POR 1=920 TO asesPOKE I,0;NEXT I 
<FOR 1=960 TO 995 STEP 3:P0KE I,255:NEX 
T I 

57 POKE 53271,4!P0KE 53275,14SP0KE 700,32: 
POKE 701.0>POKE 702,50 

50 FOR 1=0 TO 3:POKE 53207*1,1:NEXT 1 

59 FOR 1=1 TO 15IREAD MXtl>.MY<I):NEXT 

60 POKE 2043,14!POKE 53254,240:POKE 53255, 
130 

200 POKE 53269,<DO«8>s-(V=3):SY5 40000:XsF 
K XK<0):y=FN YK(0>:M=VI(FN XB<X>.FN YB 
(Y)) 

201 IF X>255 THEN POKE 700,PEEK(700)-1 

202 IF M=0 GOTO 200 

203 POKE 53269,(DO*6>«-(V=3>:XP=S3252:YPs5 
3253:A=4 

210 IF M>7 THEN XP=53250:YP=53251:As2 

211 POKE YP,Sy(M):IF X<256 THEN POKE XP,SX 
(M> 

212 IF X>255 THEN POKE XP.SX(M>-255iPOKE 5 
3264,A 

213 POKE 53269,PEEK(5326g)OR A 

214 ON M QOSUB 300,320,340,360,300,400,420 
,440,460,400.500,520,540,560,580.600,6 
20 

220 GOTO 200 

300 tf=A(V)!aOSÜB 650:A(V)=W:N2=A(V>jPOKE A 
D(V),FN PO(D(V))!RETURN 

320 W=D(V)!a0SUB e50rD<V)=W:N2=A<V):POKE A 
D<V>,FN PO(W):RETURN 

340 W=S(V):GOSÜB 650:S(V>=V!N2=S(V)JPOKE B 
E(V),FN PO<R(V)):EETURN 

360 W=R(V>:GCeUB e50:R(V>=W:N2=S<V>:POKE S 
R(V).FN PO(W);BETURN 

380 H=VO:GOSUB 650:VO=W:POKE ML,VO+FI+DO*l 
20:RETURN 

400 W=RS:aOSUB 650:RS=W:POKE EF,ES*16+F(1) 
*F(2)+F(3)tRETURN 

420 IF FI=16 THEN F=2 

421 IF Fl=32 THEN F=3 

422 IF PI=64 THEN P=1 

423 IF FI=00 THEN F=4 

425 GOSUB 850:POKE ML,FI+V0*D0*128:RETURN 

440 GV=3;GOSUB 1000:IF<A<UG)OR(A>OO>GOTO 4 
40 

441 QR=FN aE(A):POKE GL.FN GL(GR>:POKE GH. 
FN aH(aR)rRETURN 

460 GV=4:OOSUB 1000:IF(A<FU>OE(A>FO)QOTO 4 
60 

481 FR«(V)=B9!FR(V>=FN FE(A)!P0KE FL(V),FN 
LOiPE(V)):POKE FH(V>,FN HI(FR(V)>!RET 
URN 

400 aV=3:OOSUB 1000:IF(A<PU>OR(A>PO)aOTO 4 
60 

461 PW#(V>=B»:PW<Vi=PN PW(A)tP0KE PL(V>,FN 

LO<PW(V)>:P0KE PH(V>,FN HI(PH(V)>iRET 
URN 

500 »=0:IF RI(V>>0 THEN W=1 

501 QOSUB 950:RI<V)=W*4:POKE KO(VI,EA<V)+E 
E(V>+8A(V)+DR<V>+EI(V)*SC<V>:EETURN 

520 W=0:IF SC(V)>0 THEN W=1 

521 GOSUB 950!SC(V>=W*2:POKE KO(V),RA(V)+R 
E(V)*SA<V)+DR(V)+EI(V>+SC(V):EETUEN 

540 W=0ilF F{V)>0 THEN W=1 

541 GOSUB 950:p{V>=W*2t<V-l):POKE RF,RS«16 
♦F(1)+F(2)+F(3 )!RETüEN 

560 KR=0 

561 IF EA<V>=126 THEN KB=1 

562 IF RE(V)= 64 THEN KR=2 

563 IF SA(V)= 32 THEN KR=3 

564 IF DR(V)= 16 THEN KR=4 

565 IF V=3 THEN GOSUB 800:0010 570 

566 GOSUB 750 

570 POKE KO(V>.KE+HI(V>+SC(V> 

571 POKE ML,FItV0+D0»128:RETÜRN 

560 VV=V!W=V:GOSUB 1100 

581 POKE 211,MX(9):POKE 214.MY(9>:SYS CS:F 
OH 1=1 TO 8-LEN{FR$(V))!PRINT"<L10.GRE 
EN,RVSON,SPACE>"iiNEXT I 

582 PRINT"CRVSON>''iFE$(V)!POKE 211.MX(10): 
POKE 214,MY(10>:SYS CS:FOR 1=1 TO 7-LE 


<iea> 


<039> 


<241> 

< 021 > 

<036> 

<050> 

< 212 > 


<124> 

< 000 > 

<158> 

<109> 

<117> 

<104> 

<119> 

<169> 


<075> 

<15e> 

<115> 

<203> 

<235> 

<244> 

< 020 > 

<229> 

<108> 

<031> 

<183> 

<030> 

<155> 

<013> 

<046> 


<152> 

<131> 


<236> 

<065> 

< 200 > 

<209> 

<0a7> 

<168> 

<166> 

<036> 

<213> 

< 102 > 

<181> 

< 200 > 

<ies> 

<130> 

<118> 

<091> 

<144> 


<049> 


N(PV*(V)> <131> 

583 PRINT"tLIO.GREEN,EVSON.SPACE>-,-,;NEXT I 

!Print''<:rvson>":pvs(V) ■ : ^ <08a> 

584 P=160:M=1:H=A<VV>!GOSUB 125'2--M:i2:E=D(V 

V)!Q0SUB 1252:M=3:V=S(OTJiQOSOB 1252 <091> 

585 M=4:W=E(VV):GOSUB 1252 <180> 

586 POKE 1024*MX(14)+(My(14>-KI(VV)>»40.18 

0 <23S> 

587 IF V=3 THEN IF D0=1 THEN POKE 53269,PE 

EK(53269) OE 8 <204> 

588 IF V=3 THEN IF DO=0 THEN POKE 53269.PE 

£X(S326g) AND 247 <155> 

594 V=A(V):H=1:G0SUB 12501H=D<V>:M=2:OOSUB 

1250iW=S(V>!Ms3:GOSUB 12501W=R<V>iM=4 <224> 

595 GOSUB 1250:VA=1024*MX<14)+Hy(14>»40iPO 

KE VA-KI(V)»40,192 <008> 

596 M=lliW=RI<V>:aOSUB 1300iM=12!W=SC<V)=0 

OSÜB 1300:M=ia:H=F<V):OOSUB 1300 <132> 

599 RETURN <14g> 

600 A9=",“!C$(1)="100 DATA"iFOR 1=1 TO 3iF 

L<I)=FN L0(FR<I)>!FH(I>=FN HI<FR<I>) <226> 

601 PL<I)=FN L0<PH(I>)!PH(I)=FN HI{PW(I>) <022> 

602 KI(I)=RA(I)*RE<I>*SA<I>+DR(I)+RI(I)+SC 

(I)!AD(I>=A<I>*ie*D(I) <176> 

603 SE(I)=S(I>»16+R<I>!NEXT IiC$<2>="101 D 

ATA" <071> 

604 FOB 1=1 TO 3iB$(I)=STR9(FL<l>)+A$+STR$ 

(FH(I))+A**STR$(PLC I)> +A8+STR»(PHC1)) + 

A* <097> 

605 B9(I)=B9CI)*STR«(XI(I)>+A9+STR»(AD(I>) 

*A$*STR9(SRCI)>iNEXT I <019> 

606 A9(1>=C9(1)+B9(1)+A9*B9(2>:A9C2)=C9(2) 
+B9C3)+A9:aL=FN GLCGR)-.aH=FN QH(QB) <1S5> 

607 A$(2 > =A9(2 > +STE9!GL)+A9+STR9 C GH > +A9+ST 

R9<RS*16+F<1>+F(2)+F(3)J+A9 <255> 

608 A$<2J=A9<2)+STH9<FI*V0+D0*128>:A9(4)=" 

103 ■■:A9<5) = "104 " <Ci3e> 

609 A9<3) = ''102 S=54272:FORI=0TO24!READD!PO 

KES+I,DiNEXTI" <101> 

610 IF KI(1)>15 THEN A9(4)=A9<4>*"POKE"+ST 

R9(K0(1))*'',"+STH9<KI<1>+1) <139> 

-eilTÄt KI<2>>15 THEN A9C4>=A9C4)+':POKE”+S 

Tk* CK0(2 > > + ","+STR9<KI(2) + 1) <050> 

812 IF KIC3)>15 THEN A$<4>=A$(4)+"iPOKE"+S 

TE9<KO<3>)+","+STE9(K1<3>+1) <151> 

613 A9C4)=A9C4)+"!FORI=lTO1000iNEXTI'' <229> 

614 IF KI(1)>1S THEN A9C5)=A9<5>+"POKE"+ST 

B9(KOC1>)+","+STE9(KI(1)) <235> 

615 IF KI<2>>15 THEN A9(5)=A9(5)+"!POKE"+S 

TR$(K0(2))+"."+STH$<KI(2)) <078> 

616 IF KIC3)>15 THEN A$(5>=A9(5)+":POKE"+S 

TR9<KO<3))+","+STR$<KI<3>) <179> 

617 PEINT"CCLB>"l"NEWC2D0WN>":PRINT A9(l)! 

PRINT A9(2):PRINT A9C3)ipRINT A9<4):PE 

INT A9(5) <122> 

619 POKE 631.191FOR 1=1 TO SiPOKE 631+1.13 
:NEXT IiPOKE 198,7!P0KE 53269,0:END <123> 

620 FOR 1=1 TO 3iKR=RACI>*RE(I)+SACI)+DR(I 
):ir KR>0 THEN POKE KOCI),KR+R1<I)+SC( 

I)+l <037> 

621 NEXT liWAIT 56320,16,239:FOR 1=1 TO 3i 
KR=RA(I>+RECI)+SAC1>+DB(I)+RICI>*SCCI) <208> 

622 POKE KOCI>.KR:NEXT IsRETURN <011> 

650 X=MXCM)lYaMYCM)!VA=1024+X+CY-INTCH/2>) 

»40 <200> 

651 J=FN JYCJO) <230> 

652 IFCJ<9>0RCJ=18)THEN RETURN <12e> 

655 IF J=10 THEN IF H<15 THEN H=W+1 <184> 

656 IF J=14 THEN IF W> 0 THEN W=W-1 <141> 

660 IF FN 0D(W>=1 THEN P=197 <04S> 

eei IF FN OD(V>=0 THEN P=2I0 <095> 

665 V2=VA!VA=1024+X+CY-INTC«/'2) >»40:POKE V 

A,PiIF V20VA THEN POKE V2,160 <159> 

669 GOTO 651 <241> 

750 X=MX(M>iY=MY(M)>VA=1024+X+(Y-KR)*40iP= 

192 <109> 

751 J=FN JYCJO) <074> 

752 IFCJ<9)0ECJ=18>THEN OOSÜB 770:RETURN <032> 

755 IF J=10 THEN IF KR<4 THEN KR=KR*1 <217> 

756 IF J=14 THEN IF KR>0 THEN KR=KR-1 <147> 

765 V2=VA:VA=1024+X+CY-KR)*40:POKE VA.PiIF 

V20VA THEN POKE V2.160 <134> 

769 GOTO 751 <095> 

770 HACV)=0:HECV)=0:SACV>=0:DRCV)=0:KICV)= 

KR <10S> 
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771 IF KK=1 THEN EA(V)=12S!KR=12e 

772 IF KR=2 THEN EE(V)sB4 !KR= 64 

773 IF KR=3 THEN SA<V>=32 «KR^ 32 

774 IF KR=4 THEN DR<V>=18 :KE= 16 

775 RETURN 

8(30 X=MX<M):Y=MT(M) s VA=1024*X+( Y-KR) «40:P= 
192 

801 J=FN JV<JO) 

802 IF(J<9)0R(J:18>THEN OOSUB B20!RETURN 

805 IF J=10 THEN IF KR<4 THEN KR=KR+1 

806 IF J=14 THEN IF KB>0 THEN KR=KR-1 

807 IF J=12 THEN DO=0!POKE 53289iPEEK<5326 
9)AND 247 

608 IF J=16 THEN DO=l:POKE 53269.PEEK(5326 
9)0R 8 

815 V2=VAiVA=1024+X+(Y-KR)*40>POKE VA.PslF 

V20VA THEN POKE V2,160 

816 QOTO 801 

620 RA(V)=0tBE(V)=0=SA(V>=0!DR(V)=0iKl(V>= 
KR 

821 IF KR=1 THEN RA(V)=128!KR=128 

822 IF KR=2 THEN RE(V>=e4 iKRs 64 

823 IF KR=3 THEN SA(V)s32 :KRb 32 

824 IF KR=4 THEN DR(V>=16 :KR= 16 

825 POKE ML.VO*-FH-DO*128 

826 RETURN 

850 X=MX(M>;Y=MY(M>!VA=55206+X+y*40 

851 J=FN JY<JO><F2=F 

852 IF(J<9>OR(J=18)THEN RETURN 

855 IF J=10 THEN IF F<4 THEN F=F+1 

856 IF J=14 THEN IF F>1 THEN F=F-1 
860 IF F2=F THEN 851 

862 IF F=1 THEN FOR 1=5 TO 7iPOKE VA-I*40, 
7SNEXTSFOR 1=0 TO 4!POKE VA-I*40.0:NEX 
T!FI=e4 

863 IF F=1 GOTO 851 

864 IF F=2 THEN FOR 1=0 TO EiPOKE VA-I*40, 
7iNEXT:F0R 1=3 TO 7:POKE VA'I*40,0:NEX 
T:FI=16 

665 IF F=2 GOTO 651 

866 IF F=3 THEN FOR 1=0 TO 7:POKE VA-I*40, 
0:NEXT:FOR 1=2 TO SjPOKE VA-I*40,7:NEX 
T!FI=32 

667 IF F=3 GOTO 651 

868 IF F=4 THEN FOR 1=0 TO TsPOKE VA-I*40. 
7:NEXT:FOR 1=2 TO SsPOKE VA-I*40,0SNEX 
T:FI=80 

869 GOTO 851 

950 X=MX(M)!Y=MY(M>:VA=1024+X+Y*40:P=189:V 
2=55296+X+y*40 

951 J=FN jy(JO) 

952 IF<J<9)OR<J=10)THEN RETURN 

955 IF J=16 THEN V=0 

956 IF J=12 THEN W=1 

960 IF W=1 THEN POKE VA-4,160:POKE VA-3.P 

:POKE V2.7 

961 IF V=0 THEN POKE VA-4.P sPOKE VA-3,16 
0SPOKE V2.0 

965 QOTO 951 

1000 X=MX(M>'Y=MY(M)!KF=0:NS=0!VS=0:B«=""i 
VA=1024+X+Y»40 

1001 FOR 1=0 TO 4+GV!POKE VA+I,160iNEXT I 

1010 GET A«!lF A$='"'aOTO 1010 

1011 A=ASC(A$)>IP((A<4B>OR(A>57)>AND(A<>46 
>AND<A<>13>AND(A<>20)QOTO 1010 

1012 IF(A<>13)QOTO 1015 

1013 IF(KF=0)OR<(KF=l)AND(NS<2))aOTO 1010 

1014 A=VAL(B*>!RETURN 

1015 IF(A<>20>QOTO 1020 

1016 IF(VS>0)THEN B9=LEFT*<BS,LEN(B»>-1> 

1017 IF(<KF=0>AND<VS>0>)THEN VS=VS-1 

1018 IF((KF=1>AND(NS=0>)THEN KF=0 

1019 IF(<KF=1>AND(NS>0>)THEN NS=N8-1 

1020 IF((A=46>AND<VS=0>)OR<(A=46)AND<KF=1) 
)TKEN 1010 

1021 B=<(A>47)ANI)<A<58)>!lF(A=46)THEN KF=1 

1022 IF B ANDl(VS=aV>AND(KF=0)>aOTO 1010 

1023 IF B AND(NS=2)QOTO 1010, 

1024 IF B AND(KF=1>THEN NS=NStl 

1025 IF B AND(KF=0}THEN VS=VS+1 

1026 IF<(A<>20>AND<A<>13)>THEN B*=B9+AS 

1030 POKE 211,X!POKE 214,YtSYS CS:FOR 1=1 
TO(4+GV >-LEN!BS > = PRINT"CLIG.GREEN,EVS 
ONiSPACEI"iiNEXT I 

1031 PRINT’’CRVSON>";B$! GOTO 1010 


< 002 > 

<192> 

< 200 > 

<255> 

<071> 

<227> 

<126> 

<066> 

<013> 

<189> 

<17B> 

<230> 

<186> 

<070> 

<1S5> 

<052> 

<242> 

<250> 

<049> 

<206> 

< 122 > 

<181> 

<250> 

<072> 

<176> 

<147> 

<005> 


<052> 

<043> 


<177> 

<077> 


< 111 > 


<239> 

<203> 

<027> 

< 020 > 

<172> 

< 110 > 

<114> 

<129> 

<167> 

<0S1> 

<149> 

<161> 

<071> 

< 121 > 

<161> 

< 212 > 

< 112 > 

< 001 > 

<231> 

<ie4> 

<017> 

<248> 

<007> 

<233> 

<161> 

<003> 

<180> 

<066> 

<046> 


<143> 

<086> 


1100 X=MX<M)!Y=MY<M) <072> 

1101 J=FN JY<JO> <172> 

1102 IF<J<9)OR(J=18)THEN RETURN <068> 

1103 IF J=10 THEN IF V<3 THEN V=V+1 <204> 

1104 IF J=14 THEN IF V>1 THEN V=V-1 <183> 

1105 POKE 211.X!POKE 214,Y:SYS CS!PR1NT''CR ■ 
VSON,LIG,GREEN>"iRIGHT8(STR8 <V >,1):GO 

TO 1101 <236> 

1250 IF FN OIKWlsl THEN P=197 <127> 

1251 IF FN OD(W)=0 THEN P=210 <177> 

1252 VA=1024+MX(M)+(MY(M)-INT<B/2))«40:POK 

E VA.PiRETURN <089> 

1300 a=MX(M)+MY(M)»40!lF W>0 THEN POKE 552 
96+Q,7iPOKB 1020'^9,160>POKE 102Ua,l8 

9 <135> 

1301 IF H=0 THEN POKE 55296^8,0!POKE 1020+ 

Q,169:POKE 1021+0,160 <214> 

1302 RETURN <090> 

60000 DATA 3.20.1,6,20,2,9,20,3.12,20.4.15 

,20,5.18.20,6,21,20.7 <221> 

60001 DATA 16,3,8,16.7.9,33,3,10,31,15,11, 

31,18,12.31.21.13,20.7.14 <069> 

60002 DATA 35,18,15.35,16.16.35,14.17 <048> 

60003 DATA 13.11.12.0,15.17,16,0.14.10,9.0 

.0.0.0,0,4.2.3.0.6.6,7.0,5.1.18 <011> 

60004 DATA 3,18,6,18.9,18,12.18.15,18.16.1 

6.21.18.3,3.3,7.22,3 <226> 

60005 DATA 29,15,26,18,29,21.25,11.36.21 <031> 


e 64’er 

Llsting 1. »SID-Director» (Schluß) 


10 PRINT" CCLR> : A»= ’ CSPACE, RVSON. 3aSPACE3" 
20 PRINT A 8!PRINT"CSP ACE.RVSON.SPACE.RVOFF 

! SPACE>’ e ' e ’ e ' e ' e ’ e ' e ' a ’ e 'CRVS0N>£C7SPACE, RVOFF>" 
30 PRINT"CSPACE,RVSON,SPACE,RVOFF,SPACE,EV 
, 8SPACE3KHZC2SPACEIGRFC2SPACE, RVOFF. 
SPACE, RVSON, 8SPACE>5(C2SPACE>PLSC3SPACE, 
RVOFPJ" 

40 PRINT"CSPACE.RVSON,SPACE>i"!LEFTS(A$,19 
):"£"iLEFT$<AS,ie> 

50 PRINT AS SPRINT"CSPACE,RVSON,SPACE,RVOFF 
, SPACEIWe'e'e'e'e'e'S'S'e'CRVSONIiCBSPACE, RVOFF 
, 2SPACE. RVSONIi," i LEFTS (AS. 13 > 

60 PRINT"CSPACE,RVSON,SPACE,RVOFF,SPACE,RV 
SON,9SPACE>HZC2SPACE>FRQ WAVCSPACE.RVOF 
F,SPACE,RVSON,3SPACE>DREIECKC4SPACE>" 

70 PRINT’’CSPACE,RVSON.SPACEU" I LEFTS< AS, 22 
>I"CRVOFF.SPACE.RVSON.3SPACE3SAEQEZAHNC 
2SPACE>’’ 

60 PRINT LEFT8<A8.25>i"CRVOFF,SPACE,RVSON, 
3SPACE>RECHTECKC3SPACE>" 

90 PRINT"CSPACE.RVSON,SPACE.RVOFF,2SPACE,R 
VSON>i,CRVOFF,2SPACE.RVSON>ACRVOFF,2SPAC 
E. RVS0N>4,CRV0FF. 2SPACE. RVSON>iCRVOFF, 2S 
PACE, RVS0N3ACEV0FF. 2SPACE, RVSONUCRVOFF 
,2SPACE,RVBONIACSPACE,RVOFF,SPACE,RVSON 
.3SPACE>EAUSCHENC3SPACE>“ 

100 B8="CSPACE.RVSON.SPACE,RVOFF.SPACE.RVS 
ON,2SPACE,RVOFF.SPACE,RVSON,2SPACE,RVO 
FF,SPACE.RVSON,2SPACE.RVOFF.SPACE,RVSO 
N,2SPACE>" 

110 B8=B8+"CRVOFF,SPACE,RVSON,2SPACE.RVOFF 
,SPACE,RVSON,2SPACE,RVOFF.SPACE,RVSON. 
2SPAC£^ n 

120 PRINT BSi"CSPACE.RVOFF.SPACE,RVSON3AC2 
SPACE>AUSC6SPACE>" 

130 PRINT BSi" X''iRIQHT8(A8,14) 

140 PRINT HS;RiaHT8(A8.16> 

150 PRINT BSi"C4SPACE,RVOFFIf,CRVSON,7SPACE 
JTES " 

160 PRINT B8i"C2SPACE>=CSPACE,RVOFF,SPACE. 
RVSON,SPACE.RV0FF3ÄCRVS0N.SPACE3RMDC5S 
PACE^” 

170 PRINT BSi"CSPACE.EV0FF>i,C3SPACE.RVSON, 
7SPACE5END " 


<2387 

<207> 

<147> 

<097> 

<040> 

<226> 

<176> 

<044> 


< 022 > 

<226> 

<148> 

<037> 

<192> 

<12S> 

<073> 

<119> 

< 120 > 


Llsting 2. «MASK GEN.«, der Maskengenerator zum SID- 
Dlrector. Bitte mit dem Checksummer (S. 159) eingeben. 
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180 PRINT BSi"C4SPACE.EV0FFJACRVS0N>''iRIGH 

TS<A».11> <n4> 

190 PRINT”CSPACE.RVSON,SPACE,RVOFF,SPACE.R 
VSON>ÄCSPACE.RVOFF,SPACE,RVSONOfiCSPACE 
.RVOFF.SPACE,RVSON>a<SPACE,RVOFF.SPACE 
.RVSONOSOSPACE,RVOFF.SPACE,RVSONOÄCSPA 
CE,RVOFF,SPACE,EVSON>aCSPACE,RVOFF,SPA 
CE,RVSON,4SPACE>=CSPACE,RVOFF,SPACE,RV 
SON.SPACE,RVOFFJStRVSON,BPACEOSYN VOI 

<037> 

200 PRINT" CSPACE. RVSON, SPACE>XC2SPACE>i,C2S 
PACE5XC2SPACE>XC2SPACE>iC2SPACE>XC2SPA 
CE0XC9SPACE,RVOFFOXC3SPACE,RVSON>"iRIO 


HTS<A$.ll) <001> 

210 PRINT"CSPACE,RVSON,2SPACE>AC2SPACE>I>C2 
SPACE>SC2SPACE>EC2SPACE>VC2SPACE>RC2SP 
ACE1FC5SPACE.RVOFP5XCRVSON,7SPACE,RVOF 
F.SPACE>'SCBVSON>X " <1U> 

220 PRINT''CSPACE,RVSON,2SPACE>TC2SPACE>EC2 
SPACE>ÜC2SPACE3EC2SPACE>OC2SPACE>EC2SP 
ACE>IC3SPACE0=CSPACE.RVOFF,SPACE,RVSON 
.SPACE,RVOFFJaCRVSON,SPACEOFILCSPACE.R 
VOFF,SPACE,RVS0N>1C2SPACE>" <217> 

230 PRINT"CSPACE.RVSON.2SPACE>TC2SPACE3CC2 
SPACE>SC2SPACE>LC29PACE>LC2SPACE>SC2SP 
ACE0LC2SPACE.RVOPFOXC3SPACE,RVSON,7SPA 
CE>iC3SPACE>'‘ <236> 

240 PRINT A8:PEINT ASi <137> 

250 FOR 1=55296 TO 5B25S!POKE I.lRsNEXT Ii 

FOR 1=56256 TO 56295!POKE I.llsNEXT I <057> 
280 X=2!y=10:B=21<H=10>C=15!GOSUB 500 <0761 

270 y=ll:H=8!C=0!FOB S=0 TO 6!X=3+S«3:QOSU 

B 520:NEXT S <194> 

280 X=2:Y=2!B=13rH=3!C=lS:'OOSUB 500!Y=6!aO 

SUB 500 <231> 


290 Xs 3:Y=2!B=11:H=2!C=13:G0SUB 500!Y=e>aO 


SUB 500 <062> 

300 X=21:Y=2!B = U<H=3!C=15:00SUB 500 <216> 

310 X=22:'Ys2<B = 9!R=2:C = 13:G0SUB 500 <U1> 

320 X=24>Y=e:B=3>H=7:C=15!GOSUB 500 <139> 

330 X=25rY=7>H=5iC=0iGOSUB 520 <154> 

340 X=24iYsl4:B=4:H=9<C=lS:GOSUB 500 <007> 

350 X=25iB=2!C=0!FOR S=0 TO 2>Y=15+S*3!GOS 

Ufi 510>NEXT S <056> 

960 X=35iY=20>B=3iH=3>C=15iaoSUB 500 <22a> 

370 X=3e!Y=20:H=2iC=13!aOSUB 520 <182> 

980 POKE 55925.0:POKE 56045,BiPOKE 56165,0 <199> 
390 AD=1024:N=1000iN8="HASK":aOSUB 420 <015> 

400 AD=55296:NS='’C.HASK" iGOSUB 420 <ie7> 

410 END <158> 

420 OPEN 1,8.1.NS <U3> 

430 PRINTttl,CHRS(AD-INT(AI>/25B)«256>i <160> 

440 PRINTttl,CHRS(AD/2S6>; <111> 

450 FOR 1=0 TO N-1 <ie2> 

460 PRINT«1.CHR$<PEEK<AD+I)>1 <142> 

470 NEXT I <044> 

480 CLOSE 1 <237> 

490 RETURN <03e> 

500 FOR I1=X TO X+B-ltFOH I2=Y TO Y+H-lsPO 

KE 5529e*Il*I2«40,C<NEXT IR.IlsRETURN <252> 
510 FOR I=X TO X+B-l:POKE S5296+I+Y«40,C:N 

EXT IsRETURN <112> 

520 FOR I=Y TO Y+H-lsPOKE 5529e+X+I»40,C:N 

EXT IiRETÜRN <021> 


6 64'er 

Listing 2. »MASK GEN.« (Schluß) 


Name : p.Cursor 02c0 02ff 

02c0 : 80 00 00 60 00 00 78 00 2e 

02c8 : 00 3e 00 00 3£ 80 00 1£ le 

02d0 : eO 00 If fS 00 Of £e 00 Oc 

02d8 ; 0£ ff 80 07 ff eO 07 ft Ob 

02e0 : fS 03 fS 00 03 fc 00 01 b2 

02e8 : ee 00 01 e7 00 00 e3 80 a4 

02£0 : 00 el cO 00 60 cO 00 60 de 

03£8 : 00 00 20 00 00 20 00 00 02 

Listing 3. »P.CURSOR«, die Sprlte- 
daten für den SIO-Dlrector. Bitte 
mit dem MSE (Seite 159) eingeben. 


Haine : 

mc 






9e40 9f21 

9a40 : 

a9 

00 

Bd 

6b 

03 

ad 

bc 

02 

4f 

9c4e : 

Bd 

6a 

03 

a9 

00 

Bd 

3d 

03 

68 

9c50 ! 

ad 

bd 

02 

Bd 

3c 

03 

ad 

3d 

Ib 

9eS8 ! 

03 

dO 

47 

a2 

OB 

a9 

00 

Bd 

d2 

9e60 ! 

fa 

03 

Bd 

fb 

03 

ad 

3c 

03 

53 

9c68 : 

8d 

fO 

03 

a9 

00 

Bd 

f5 

03 

aa 

9c70 : 

a9 

01 

Bd 

f6 

03 

4a 

fO 

03 

48 

9c7e : 

90 

13 

16 

ad 

ta 

03 

6d 

fS 

b7 

9ceo : 

03 

Bd 

ta 

03 

ad 

fb 

03 

6d 

Oa 

9c88 : 

t6 

03 

Bd 

fb 

03 

Oe 

fS 

03 

61 

9e90 : 

2a 

f6 

03 

ca 

dO 

df 

ad 

fa 

Oe 

9e9B : 

03 

Bd 

3o 

03 

ad 

fb 

03 

Bd 

b3 

9oaD : 

3d 

03 

ad 

6a 

03 

IB 

6d 

30 

37 

9caa : 

03 

Bd 

6a 

03 

ad 

6b 

03 

6d 

3a 

9cb0 : 

3d 

03 

Bd 

6b 

03 

a9 

00 

Bd 

dB 

9cb8 : 

6d 

03 

ad 

ba 

02 

Bd 

6c 

03 

2e 

9cc0 : 

a9 

Ob 

Bd 

fB 

07 

20 

Ic 

96 

90 

9cc8 : 

a9 

00 

Bd 

Sd 

03 

ad 

15 

dO 

14 

9cd0 : 

8d 

5a 

03 

ad 

5c 

03 

09 

01 

06 

9cd8 : 

8d 

3c 

03 

ad 

Sd 

03 

09 

00 

le 

9ae0 : 

Bd 

Sd 

03 

ad 

5c 

03 

Bd 

15 

dl 

9ce8 : 

dO 

a9 

00 

Bd 

4f 

03 

ad 

00 

02 

9ot0 : 

de 

Bd 

4e 

03 

20 

Ic 

9e 

20 

24 

9cf8 ; 

62 

9e 

ad 

4f 

03 

09 

00 

dO 

If 

9d00 : 

Oa 

ad 

4a 

03 

c9 

7e 

dO 

03 

af 

9d0B : 

4c 

9a 

9d 

ad 

4f 

03 

c9 

00 

t3 

9dl0 : 

dO 

Oa 

ad 

4e 

03 

c9 

76 

dO 

14 

9dl8 : 

03 

4c 

aO 

9d 

ad 

4t 

03 

c9 

12 

9d20 : 

00 

dO 

Oa 

ad 

4e 

03 

c9 

77 

d4 

9d28 : 

dO 

03 

4c 

a9 

9d 

ad 

4f 

03 

4d 

9d30 : 

c9 

00 

dO 

Oa 

ad 

4a 

03 

c9 

5c 


9d36 

: 75 

dO 

03 

4c 

af 

9d 

ad 

4£ 

9d 

SelO 

: 6a 

03 

bO 

03 

4c 

45 

9e 

a9 

65 

9d40 

: .03 

c9 

00 

dD 

Oa 

ad 


03 

Bf 

9e3B 

: 00 

Bd 

10 

dO 

ad 

6a 

03 

Bd 

72 

9d48 

: c9 

7d dO 


b8-7- 

ad 

Cl 

9e40 

: 00 

dO 

4c 

61 

9e 

a9 

01 

Bd 

3e 

9d50 

: 4f 

03 

c9 

00 

dO 

Oa 

ad 

4e 

44 

9e48 

: 10 

dO 

ad 

6a 

03 

38 

e9 

ff 

13 

9d5S 

: 03 

c9 

79 

dO 

03 

4c 

be 

9d 

81 

9e50 

: Bd 

3o 

03 

ad 

6b 

03 

e9 

00 

eB 

9d60 

; ad 

4£ 

03 

c9 

00 

dO 

Oa 

ad 

b9 

9e58 

: Bd 

3d 

03 

ad 

3c 

03 

Bd 

00 

Oc 

9d68 

: 4e 

03 

c9 

7b 

dO 

03 

4c 

C7 

ff 

9e60 

: dO 

60 

a9 

00 

Bd 

3c 

03 

a9 

eS 

9d70 

: 9d 

ad 

4f 

03 

c9 

00 

dO 

Ob 

Oc 

9e68 

: 00 

Sd 

3d 

03 

ad 

3c 

03 

la 

dB 

9d78 

: ad 

4e 

03 

c9 

7a 

dO 

03 

4c 

19 

ge70 

: 69 

01 

Bd 

3c 

03 

ad 

3d 

03 

dd 

9d80 

: cd 

9d 

ad 

4f 

03 

09 

00 

fO 

dl 

9e7B 

: 69 

00 

Bd 

3d 

03 

ad 

3d 

03 

85 

9d8a 

: 04 

bO 

Oc 

90 

07 

ad 

4e 

03 

17 

9e60 

: c9 

00 

fO 

04 

bO 

Oc 

90 

07 

c2 

9d90 

: c9 

70 

bO 

03 

4c 

d6 

9d 

4c 

aS 

9e88 

: ad 

3c 

03 

c9 

b4 

bO 

03 

4c 

c3 

9d98 

: e9 

9c 

20 

d9 

9e 

4c 

e9 

9c 

40 

9e90 

: 6c 

9e 

60 

ad 

6b 

03 

c9 

00 

0£ 

9dB0 

: 20 

b6 

9a 

20 

d9 

9e 

4c 

e9 

5£ 

9e98 

: dO 

Oa 

ad 

6a 

03 

e9 

20 

dO 

c7 

9da8 

: 9c 

20 

b6 

9e 

4c 

e9 

9c 

20 

9e 

9ea0 

: 03 

4c 

b5 

9e 

ad 

6b 

03 

3B 

bS 

9db0 

: b6 

9e 

20 

fc 

9e 

4c 

e9 

9c 

6a 

9ea8 

: e9 

01 

Bd 

6a 

03 

ad 

6b 

03 

14 

9db8 

: 20 

fc 

9e 

4c 

e9 

9c 

20 

93 

b3 

9ab0 

: a9 

00 

Bd 

6b 

03 

60 

ad 

6b 

2b 

9dcQ 

1 9e 

20 

fc 

9e 

4c 

e9 

9o 

20 

48 

9ab6 

: 03 

c9 

01 

dO 

Oa 

ad 

6a 

03 

bS 

9dc8 

! 93 

9e 

4c 

e9 

9a 

20 

d9 

9e 

6a 

9ac0 

: c9 

4a 

dO 

03 

4c 

dB 

9e 

ad 

a6 

9dd0 

: 20 

93 

9e 

4c 

e9 

9c 

a9 

00 

15 

9ece 

6a 

03 

la 

69 

01 

Bd 

6a 

03 

13 

9ddB 

: cd 

6b 

03 

to 

04 

90 

09 

bO 

84 

9ed0 

: ad 

6b 

03 

69 

00 

Bd 

6b 

03 

41 

9de0 

: Ob 

a9 

ff 

cd 

6a 

03 

bO 

03 

00 

9edS 

: 60 

ad 

6d 

03 

c9 

00 

dO 

Oa 

bf 

9de8 

: 4c 

f9 

9d 

ad 

6a 

03 

Bd 

bc 

bc 

9ee0 

: ad 

6c 

03 

c9 

3a 

dO 

03 

4e 

Bc 

9df0 

: 02 

b9 

00 

Bd 

bd 

02 

4c 

15 

cO 

9eea 

! fb 

9e 

ad 

6c 

03 

38 

e9 

01 

o7 

9df6 

: 9e 

ad 

6a 

03 

38 

e9 

ff 

Bd 

56 

9ef0 

: Bd 

6c 

03 

ad 

6d 

03 

e9 

00 

cO 

9e00 

: 6a 

03 

ad 

6b 

03 

e9 

00 

Bd 

St 

9af6 

: Bd 

6d 

03 

60 

ad 

6d 

03 

c9 

af 

9808 

: 6b 

03 

ad 

6b 

03 

Bd 

bc 

02 

41 

9f00 

: 00 

dO 

Oa 

ad 

6c 

03 

c» 

£2 

Bd 

9cl0 

i a9 

01 

Sd 

bd 

02 

ad 

6c 

03 

9a 

9f0B 

: dO 

03 

4c 

le 

9£ 

ad 

6c 

03 

50 

9eia 

i Bd 

be 

02 

60 

ad 

6c 

03 

Bd 

f6 

9fl0 

! la 

69 

01 

Bd 

6c 

03 

ad 

6d 

3f 

9a20 

: 01 

dO 

a9 

00 

cd 

Sb 

03 

£0 

la 

9fl8 

: 03 

69 

00 

Bd 

6d 

03 

60 

60 

b3 

9a2B 

: 04 

90 

09 

bO 

Oa 

a9 

ff 

cd 

56 

9£20 

: 55 

20 

20 

20 

20 

20 

20 

20 

55 


Listing 4. »MC«, 
Maschinenrou¬ 
tinen zum SID- 
Director. Bitte 
mit dem MSE 
(Seite 159) 
eingeben. 


100 DATA 133, 0. 0, 0. 34. 16, 230. 83. 0, 

0, 0, 32. 16. 250 <ie3> 

101 DATA 187. 0, 0, 0, 34, 16. 250, 6, 63. 

247. 31 <211> 

102 S=54272!FOE 1=0 TO 24:READ D:POKE S+I, 

D:NEXT I 

103 POKE 54276. SSsPOKE 54283. 33:POKE 542 

90, 35iFOR 1=1 TO 5000:NEXT 1 <060> 

104 POKE 54276. 34!POKE 54283, 32!POKE 542 

90. 34 <090> 


@ 64’er 

Listing 5. Ein Dieselmotor zum Abtippen. Start mit RUN. 
Bitte mit dem Checksummer (Seite 159) eingeben. 
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liga-Moster 

Sie sind ein Freund des Mannschaftssports und 
möchten immer über den Tabellenstand Ihrer 
Lieblingsmannschaft in Turnieren oder Meister¬ 
schaften Informiert sein. Dann ist Liga-Master 
genau das Richtige für Sie. 

T abellen mit bis zu 20 Mannschaften können Sie mit 
Liga-Master verwalten, Auswertungen auf Bildschirm 
und Drucker (MPS 801 und Kompatible) liefern Infor¬ 
mationen über Tabellenplatz, Punktestand, Torverhält¬ 
nisse, Nachholspiele. Eine eingebaute Uhr und vielfältige 
Diskettenfunktionen erleichtern die Programmarbeit, 
Nach dem Start des Ladeprogrammes (Listing 1) werden 
der neue Zeichensatz, das Hauptprogramm (Listing 2) und 
schließlich die Directory-, IRQ- und NMI-Routinen (Listing 
3,4,5) geladen. So dauert es einige Zeit, bis schließlich die 
Aufforderung zur Eingabe von Datum und Zeit auf dem 
Bildschirm erscheint. Das Programm benötigt die Zeit im 
HHMMSS-Format; es müssen also 6 Ziffern eingegeben 
werden. Beispiel: 

Zeit: 16 Uhr 30 — Eingabe: 163000 
Ungültige Angaben erkennt das Programm und fordert 
zur Neueingabe auf. Jahreszahlen sind nur im Bereich von 
1980 (oder80) bis 1999 (oder 99) erlaubt. Nicht existierende 
Monatstage (einschließlich der Schaltjahre) werden eben¬ 
falls abgewiesen. Zeit und Datum können während des Pro¬ 
grammablaufs auch mit dem Punkt <l> im Hauptmenü 
geändert werden. 

Nach Angabe dieser Daten gelangt man in das Haupt¬ 
menü (Bild 1). Die Zeit rechts oben im Bildschirm wird durch 
die veränderte IRQ-Routine ständig aktualisiert. Bei Disket- 


B 

» Lieft - MftSTER « 

■ 

. S»Pt»Hb«r J.38T 

.11 am 






e> 

Tabelle 

F> 

neue Liga 

B> 

Ergebnisse ausg. 

6) 

Daten lUschen 

c> 

restliche Spiele 

H) 

Ausgabegerät 

Druc ker 


Ergebnisse eing. 


Uhr ste 1 Ien 

E> 

Disk 

CTRL J> Ende 





Blid 1. Das Hauptmsnü von Liga-Master 


tenzugriffen hält die Uhr gelegentlich an. Ungenauigkeiten 
durch Überspringen der verlorenen Zeit können jedoch 
nicht entstehen. 

Für die Auswertungen benötigt Liga-Master neben den 
Spielergebnissen eine Reihe weiterer Daten. Über den 
Menüpunkt < F> (neue Liga) gelangen wir in ein weiteres 
Menü, das zur Eingabe dieser Daten auffordert. Sie sollten 
die einzelnen Punkte in der angegebenen Reihenfolge 
bearbeiten. 

Name/Saison: 

Der Name der Liga erscheint nach der Eingabe in den 
Menükopfzeilen und in der Überschrift der Druckausgabe. 
Er darf maximal 39 Zeichen lang sein und wird nur für die 
gedruckte Auswertung verwendet (Tabelle 1). Umlaute und 
einige Sonderzeichen werden im Text berücksichtigt. Das 

iJJ'aj* 


Programm »ZEICHEN AENDERN« (Listing 6) erzeugt die¬ 
sen Zeichensatz und speichert ihn in der Datei »ZEICHEN«, 
Mannschaften: 

Geben sie zunächst die Anzahl der Mannschaften ein. 
Erlaubt sind Werte von 3 bis maximal 20, Soll eine Rück¬ 
runde stattfinden, beantworten Sie die nächste Frage mit 
»J«. Unter Punkt zwei können die Mannschaflsnamen ein¬ 
gegeben werden, 

Spieltag: 

Jeder Spieltag erhält eine Nummer. Nach Eingabe der 
Zahl erscheint eine Liste mit den Mannschaftsnamen auf 
dem Bildschirm. Für jedes an diesem Tag stattfindende 
Spiel sind nun die Mannschaftsnummern der Gegenspie¬ 
ler einzugeben. 

Das Datum des Spieltages - der letzte Menüpunkt - 


neuea Zeichen 

Taste 

ASCII-Code 

ä 

<©> 

64 

A 

<SHIFT@> 

166 

6 

' <•> • 

42 

Ö 

<SHIFT.*> 

96 

ü 

<1> 

94 

Ü 

<SHIFT !> 

126 

B 

<-> 

95 


<CBM> <•> 

127 

Copyright 

<CBMZ> und <CBMX> 

173 + 169 

Pfeil links 

<CBM V> und <CBM B> 

190 + 191 

Pfeil rechts 

<CBM N> und <C8M M> 

170 + 167 

unterstreichen 

<CBM C> 

168 


Tabelle 1. Die geänderten Zeichen des Zeichensatzes 


erfordert kein bestimmtes Format, Da Sie sich jedoch in 
den anderen Programmteilen neben der Nummer auch mit 
,detn-,fctum auf bestimmte Spieltage beziehen können, 
sollten Sie bei einem Format bleiben (Beispiel: 13.08.87). Ist 
beim weiteren Arbeiten mit dem Programm die Angabe 
eines Spieltages notwendig, können Sie entweder die 
Nummer oder das Datum, zur Unterscheidung angeführt 
durch •>d^«, eingeben (Beispiel: d:13.08.87). 

Wenn Sie versehentlich einen Menüpunkt angewählt 
haben und der Computer auf eine Eingabe wartet, so kön¬ 
nen Sie durch die Tasten <x> und <RETURN> diesen 
Teil des Programms wieder verlassen, 

Spielergebnisse 


Neue Liga 

Punkt <5> des Programmteiles »neue Liga« bringt Sie 
zurück in das Hauptmenü, Vor der Eingabe der Ergebnisse 
einzelner Spiele muß die Tabelle mit Anfangswerten belegt 
werden. Gehen Sie dazu folgendermaßen vor: 

1, Punkt <G> (Daten löschen) im Hauptmenü anwählen 

2. Punkt <2> (Spieltag) auswählen 

3. »Sicher ?« mit <j> beantworten 

4, als Spieltag »1-« angeben 

Sämtliche Vorarbeiten sind damit abgeschlossen. Kom¬ 
men wir zur Hauptsache; den Spielergebnissen. Bei der 
Eingabe (Punkt < D >) im Hauptmenü können Sie wählen, 
ob Sie die Ergebnisse eines Spieltages oder eines einzel¬ 
nen Spieles angeben wollen. Das Ergebnis darf höchstens 
neun Stellen lang sein und muß genau einen Doppelpunkt 
enthalten. Der Computer reagiert nur auf folgende Tasten: 
<0> bis <9>, <:>, <-> und <DEL>. Wenn Sie noch 
keine Taste gedrückt haben, und es steht bereits ein Ergeb¬ 
nis unter dem Cursor, so können Sie dieses durch 
<RETURN> übernehmen. Bereits eingegebene Ergeb¬ 
nisse werden so korrigiert. Nicht ausgetragene Spiele 
erhalten als Ergebnis die Angabe »-:-«, 
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Vielleicht haben Sie die vorherigen Schritte mit einer 
kieinen Testliga ausprobiert. Dann können wir uns jetzt an 
die ersten Auswertungen machen. Während Einzeiergeb- 
nisse der Spieie unter Punkt < B> im Hauptmenü abgeru¬ 
fen werden, geiangen wir durch den Menüpunkt < D> in 
den Programmteii, der eine Tabelle entweder auf dem Bild¬ 
schirm oder Drucker (vorher Punkt <H> im Hauptmenü 
anwählen) ausgibt. Die Ausgabe erfolgt in zwei Teilen. Der 
erste Teil zeigt in 
Spalte 1: Anzahl der Spiele 
Spalte 2: Differenz der erzielten Tore, Körbe usw. 

Spalte 3; Torverhältnis 

Ein Druck auf die Leertaste bringt den zweiten Teil mit 

Spalte 1: Anzahl der Spiele 

Spalte 2 : Anzahl der gewonnenen Spiele 

Spalte 3: Anzahl der unentschiedenen Spiele 

Spalte 4: Anzahl der verlorenen Spiele 

Geben Sie anstatt der Leertaste ein <X> ein, so wird 
der zweite Teil übersprungen. 

Wenn Sie mit der Verwaltung Ihrer Liga erst anfangen, 
nachdem schon einige Spieltage vorbei sind, können Sie 
die aktuelle Tabelle auch direkt eingeben. Einige Funktio¬ 
nen (Nachholspiele, Restprogramm) arbeiten dann even¬ 
tuell nicht mehr richtig. Ist die Anzahl der gewonnenen, 
unentschiedenen oder verlorenen Spiele einer Mannschaft 
bei Eingabe der Tabelle nicht bekannt, sollten Sie darauf 
achten, daß zumindest die Summe hiervon die Anzahl der 
Spiele ergibt. 

Die Funktionen des Menüpunktes <C> entsprechen 
weitgehend denen von Punkt < B >, nur daß hier die Spiele 
ausgegeben werden, deren Ergebnis noch nicht vorliegt. 
Mit einem weiteren Menüpunkt kann die Ausgabe auf 
Nachholsplele beschränkt werden. Nachholspiele sind die¬ 
jenigen ohne Ergebnis, die an Spieltagen eingetragen 
sind, für die schon andere Ergebnisse vorliegen. 

Diskettenfunktionen 


Im Programmteil »Disk« (Menüpunkt < E>) können Sie die 
folgenden Funktionen anwählen; 

Daten laden; 

Zunächst werden die ersten fünf Einträge des Olrectories 
gezeigt. Mit den Tasten < + > und <-> blättern Sie vor¬ 
wärts und rückwärts durch das Directory. Nach der Angabe 
einer Nummer (von 1 bis 143) werden die entsprechenden 
Daten geladen. Beachten Sie bitte den Dateityp. Es können 
nur Dateien mit dem Oateityp S geladen werden. Die ande¬ 
ren Dateitypen bezeichnen Kommentar (K) oder gelöschte 
Dateien (L). 

Daten speichern: 

Mit der Angabe eines Dateinamens können Sie eine 
neue Datei anlegen oder durch eine Nummer eine bereits 
bestehende überschreiben. Wenn Sie eine Diskette einge¬ 
legt haben, auf der noch keine Liga-Master-Daten gespei¬ 
chert worden sind, so werden Sie gefragt, ob die Diskette 
eine Liga-Master-Diskette werden soll. Nach Eingabe von 
<]> erzeugt das Programm eine relative Datei mit dem 
Namen »directory«. 

Directory Format 1 und 2: 

Das Format 1 entspricht der Directoryausgabe des C 64. 
Nach jedem Druck der Leertaste erscheint ein weiterer Ein¬ 
trag. Mit <X> können Sie diese Funktion abbrechen. Bei 
der Ausgabe des Directorles im zweiten Format kann, wie 
unter »Daten laden« beschrieben, durch die Einträge 
geblättert werden. Die Taste <X> beendet die Ausgabe. 
Datei löschen; 

Die Angabe der Dateinummer in dieser Funktion löscht 
den entsprechenden Eintrag (keine Sicherheitsabfrage). 


Gelöschte Dateien erhalten in der Directory den Dateityp L. 
Mit der Funktion <5> (Directory validate) werden diese 
Dateien anschließend auch aus dem Directory gelöscht. 

Kommentar elnfügen: 

Um die Übersichtlichkeit des Directory zu verbessern, 
können zwischen die einzelnen Dateien Kommentare ein¬ 
gefügt werden. So lassen sich etwa die Spielgruppen einer 
Weltmeisterschaft unter einem gemeinsamen Titel grup¬ 
pieren. Eine Kommentarzeile darfrnaximal 73 Zeichen lang 
sein. 

Befehls- und Fehlerkanal: 

In Ihrem Laufwerkshandbuch sind eine Reihe von Befeh¬ 
len beschrieben, die mit der Funktion <8> zur Disketten¬ 
station gesendet werden können. Auftretende Fehler kön¬ 
nen durch Lesen des Fehlerkanals mit Funktion <9> iden¬ 
tifiziertwerden. Beachten Slejedoch, daß wegen des geän¬ 
derten Zeichensatzes anstelle des Zeichens »*« der 
Buchstabe »ö« verwendet werden muß. 

Daten löschen 


Dieser Programmteil wird mit dem Menüpunkt <G > ange¬ 
wählt. Sie haben die Wahl, entweder alle Daten zu löschen 
(dabei wird das Programm mit RUN 180 neu gestartet) oder 
aber einzelne Spieltage. Die Ergebnisse dieser Tage wer¬ 
den mit»-:-« belegt. In beiden Fällen ist die Sicherheitsab¬ 
frage vorher mit <J> oder <N> zu beantworten. Durch 
die Eingabe von »1-« als Spieltag werden alle Ergebnisse 
neu belegt. Dieser Schritt muß dann ausgeführt werden, 
wenn mit einer neuen Liga gearbeitet werden soll. 

Das Standardausgabegerät ist der Bildschirm. Mit dem 
Punkt <H> im Hauptmenü schalten Sie die Druckaus¬ 
gabe Nachdem Sie den Drucker eingeschaltet haben, 
wird gegebenenfalls eine Überschrift gedruckt, und 
anschließend werden alle Daten auf Drucker und Bild¬ 
schirm ausgegeben. Ein »D« zeigt dies oben links im Bild¬ 
schirm an. Die Druckroutine arbeitet mit MPS 801 und Kom¬ 
patiblen im Groß-/Grafikmodus und druckt auch die deut¬ 
schen Umlaute. Die Druckausgabe wird durch erneutes 
Anwählen des Menüpunktes H wieder abgeschaltet. 

Der geänderte Zeichensatz befindet sich auf der Diskette 
in der Datei »ZEICHEN«. Mit dem Programm »ZEICHEN 
AENDERN« (Listing 6) kann diese Datei auf jeder neuen 
Diskette erzeugt werden. 

Hinweise zum Abtippen 


Das Programm endet bei Eingabe von <CTRL J> nach 
der mit <J> beantworteten Sicherheitsabfrage mit einem 
Reset. 

Die Reihenfolge, in der die Programme abgetippt wer¬ 
den, Ist beliebig. Starten Sie jedoch das Startprogramm 
erst, wenn sich alle benötigten Programme auf der Diskette 
befinden und die Datei »ZEICHEN« erzeugt ist. Vor der Ein¬ 
gabe der Dateinamen schalten Sie bitte den Computer in 
den Großschrift-Kleinschrift-Modus (<CBM SHIFT>). 

Die Namen der Programme sind dann für: 

Listing 1: "START" 

Listing 2: " Liga-Master V3" 

Listing 3: " 2 DIR" 

Listing 4: " 3 NMI" 

Listing 5: " 1 IRQ" 

Listing 6: "ZEICHEN AENDERN" 

Damit die Anweisungen der Zeilen 150,3312,5200,9240, 
9770,10010 und 23069 in eine Zeile passen, müssen die 
Befehle mit denen im Handbuch beschriebenen Abkürzun¬ 
gen eingegeben werden. (Frank Tölke/ad) 


58 


SONDERHEFT 23 









SPORT 


4 


5 GOTO 75 <055> 

10 <112> 

15 «««««» ****** <129> 

20 ****** LIGA - MASTER V3 V ON = ****** <062> 

25 ****** ****** <139> 

30 ************************************ <132> 

35 ******** **«**«**» <205> 

40 ******** FRANK TO ELKE ********* <202> 

45 ******** tEU TO NENSTR. 02 A ********* <:086> 

50 ******** 5800 LUEDENSCHEID ********* <045> 

55 ***** ****** <020> 

60 ***** TEL.: 0 23 51/ 2 80 90 ****** <163> 

65 ***** ****** <030> 

70 *«***««««**»**««***»**********»*«»** <172> 

75 IF A=0 THEN A=1 :LOAD'’ZEICHEN’’.0,1 <141> 

77 FOB 1=0 TO 2040:POKE 57344+1,PEEK(32768 

♦I):NEXT <032> 

80 POKE 53200.0:POKE 53201,0:POKE 850,120: 

PRINT CHR«<142)CHRS(6)''<:WHITE>" <1B4'- 

85 POKE 56576,PEEK(56S78)AND 252 <004> 


90 POKE 53272,56:POKE 640,204: PBINT''CCLR. 6 
DOWN, 3SPACE, YELLOW, RVSON. SPACE3'??! 986C2 
SPACE>/C2SPACB>i,UTOR : £RANK i*LKECSPAC 
E.HOME.RVOFF)"; <214> 

95 PRINT"CWHITE.10SPACE>'!rF? .t.r.o.*. - J+.\5 .t.e.B. 'F 

B" <135> 

J00 PRINT"C10SPACE>'5'£'^(;^'c'crcmm'm''' <115> 

105 PRINT" CBLACK>P,a43,60: Pa44,3 :PSe20.0: Pa 

2,0:NEW' <:09- 

110 PRINT"<2DOWN>LOAD’+CHR8(34) + "£,IGA - ÜA 

STER V3"+CHRS(34) + ’'.0.0" <232> 

115 PRINT"C4DOWN,BLACKJRUN" <006•> 

120 PRINT''C3DOtfN,GREEN, 12SPACE3ÄITTE WARTE 

NCSPACE,CTRL-A,BLACK>’' <223> 

125 POKE 198,3:P0KE 631,13:POKE 632,13:POK 

E e33,13:PBINT"CHOME>''i <237> 

S 64’ar 


Llsting 1. Das Startprogramm für Llga^Master. 

Bitte mit dem Checksummer (Seite 159) eingeben. 


1 REM ********************************* 

2 REM * * 

3 REM * AUTOR = SIEHE AB 2EILE 63000 « 

4 REM * * 

5 REM ********************************* 

6 POKE 2,PEEK(2)+1:IF PEEK!2)>3 THEN 100 

7 LOAD STRS(PEBK!2)> + ’'*'’,0,1 
0 DATA 121,20,20,20.121.0 

9 DATA 57,68.60,60,57,0 

10 DATA 60,65.64,65.60.0 

11 ==r==r== UNTERPROGRAMME ============= 

12 REM MOMENT 

13 PRINT:PRINT TAB(TB)"ÜOMENT .,.":RETUEN 

14 REM TASTE 

15 POKE :98.0--WAIT 196,1:GET AS:RETURN 
20 REM ZENTRIEREN 

25 PRINT TAB!!40-LEN(Z$)>/2):ZS:RETURN 
30 REM SPACE 

35 PRINT"CRVSON,GREENE"; :ZS="ira .s.pac.e ■Ff": 
GOSUB 25 

40 GOSUB 15:IF ASO" "AND ASO"X'THBN 40 
45 RETURN 

50 REM FEHLERKANAL 
55 ZS='"' 

60 GETB15,AS:2S=ZStA$:IF AS<r-CHRS( 13 >THEN 
60 

65 FK$=ZS:A=VAL!ZS):IF A<2 THEN RETURN 

71 PRlNT'CCLR,4DOWN,GREEN>":GOSUB 25:PRINT 
:PRINT:PEINT:GOSUB 35 

72 RETURN 

75 REM KORREKT 7 

00 ZS="CLIG.RED3£ORREKT (1/tL) ?CGEEEN>":G0 
SÜB 25:RETURN 
85 REM INPÜT / OET 
00 E$="":DPX=0:POKE 204,0 
95 GOSUB 15 

100 IF A$=CHR$(i3>THEN 130 

105 IF A$=":"AND LEN<ES!<9 THEN DPX=DPX+1: 

A$ = "X'':PRINT ASi :ES = ES+AS:GOTO 95 
110 IF(A$> = ''-"AND A$< = "9"AND ASO'V'IAND L 
EN(E$J<9 THEN PRINT A$;:ES=ES+AS 
115 L=LEN(E$)-1:IF AS=CHR$(20)AND RIGHTStE 
$,1>='X’THSN DPX=DP«-1 
120 IF A$=CHRS!20>AND L>=0 THEN PRINT AS;: 

ES=LEFTS(ES,L) 

125 GOTO 95 

130 IF E$=""THEN E$=ES(SP,I):PRINT ES!:OOT 
0 135 

131 IF DP%<>1 THEN 95 

135 POKE 204,1:PRINT" '’:RETÜRN 
140 REM VON / BIS 
145 AF=VAL!STS) 

150 IF AF<0 THEN EI)=(ABSIAF>>AS*RRX)*'AS*R 
RX+INT(NOT(ABS<AF)>AS*RRX))*AF:AF=1:RE 
TURN 

155 IF RIGHTS(STS,1) = ’'-"THEN ED=AS»RRX:RBT 
URN 

160 PO%=0:FOR JJ=1 TO LEN(ST$):IF MIDS(ST$ 
,JJ.1)="-"THEN POX=JJ 
162 NEXT 

185 IF POX=0 THEN ED=AF:RETURN 

170 ED=VAL(MIDS(STS,P0X+1> >:RETURN 

175 ========== INITIALISIEREN ========== 

100 DIM MS!2.20),ZS(20!,G!38,10>.H!30,10). 


<132> 

<051> 

<063> 

<0S3> 

<136> 

<051> 

<073> 

<196> 

<152> 

a04> 

< 101 > 

<029> 

<165> 

<035> 

<I24> 

<169:> 

<2S0> 

'::49> 

< 121 > 

<103> 

<176> 

<134> 

<253> 

<191> 

•:104'> 

<130> 

<070> 

<192> 

<190> 

•;194> 

<113> 

<054> 

<130> 

<163> 

<208> 

<150> 

<19l> 

<114> 

<077> 

< 020 > 

<.- 020 > 

<150> 


<214> 

<014> 

<041> 

<172> 

<057> 

<017> 

<061> 


D$<3e>.ES<30.10),LI3(1),CS(6> 

185 DIM PP<20).MP(20),PT(20).MT{20>.OH(20> 
.UN(20),VL(20),PL<20> 

106 PL(0)=-1 

190 FOR 1=0 TO 20:ZS(I)=RIGHTS(STRS!I),2): 

' NEXT 

200 FOR 1=1 TO 3:C$(I>=CHRS(8!:FOR J=1 TO 
6:READ A 

201 CS(I)=CS(I)+CHR$(A+128):NEXT:C*!I)=C$( 
I)+CHRS(15):NEXT 

203 RESTORE:FOE 1=4 TO 6:C5(I)=CHRS(0):FOR 

J=1 TO 6:RBAD A 

204 CS(I)=CS(I)+CHE$<A+128)+CHE$!A+128):NE 
XT:CS(I)=CS(I)+CHRS(14):NEXT 

217 OPEN 15,0,15:OPEN 3,0:DE=3:POKE 251.66 
220 SPS="C40SPACE>'':SP$=SP$+SPS 

225 MU$="CD0WN.GREBN>7+TTT7TTVFrrr7TTTT7W 
»» *» ♦» ♦» +'+'+'+'+> '' 

226 1^? PEEK<789)<>194 THEN GOSUB 18500 

S0432tGOTO 230 

220 ============ HAÜPTMENt ============= 

230 PRINT'CCLR,WHITE,3DOWN>":PRINT LIS(0J 
240 PRINT"<DOWN>"MUS:PRINT"C2UP,RVSON3"::Z 
$=" aAUPTMENt ■■:G0SUB 25 
250 PRINT'OWKITEOA) XABELLECllSPACE,GREENO 
£> NEUE .LIGA 

260 PRINT"CDOWN>a> aRGEBNISSE AÜSG.C2SPACE 
.WHITEDfi) £,ATEN L»SCHEN 
270 PRINT"CDOWN>a) RESTLICHE 1PIELEC2SPACE 
,GREEN>Ü) AUSGABEGERfT 
272 IF DR=4 THEN PRINT TAB!24)"ÄILDSCHIRM" 
:GOTO 200 

275 PRINT TAB(24)''aRUCKER' 

200 PRINT'CDOWNOa) ERGEBNISSE EING-CESPACE 
.WHITEOX) ÜHR STELLEN 

290 PRINT ' CDOWNDE) .P.ISKCl 45PACE . GBEEN1 .C.T.R.L. 

£) ENDE 
300 PRINT MUS 
310 GOSUB 15 

315 IF A$=CHRS(I0)THEN 16000 
320 IF A$<"A"OR A$>’'I"THEN 310 
340 ON ASC!A3)-e4 GOTO 3000.5000.9000.7000 
,15000,31000,500,16000,1000 

499 =========== DATEN LOSCHEN ========== 

500 PBINT"'CCLR.WHITE,4DOHN>"LI$(0) :Z$='' E 
ATE NC3SPACE0L * S C H E N " 

510 PKINT"C2D0WN>"MUS:PRINT"C2UP,RVSON)';: 
GOSUB 25 

520 PRINT TAB(12)"CWHITE>1> ALLE" 

530 PRINT TAB(12)"CDOWN.GREEN>2) EPIELTAO" 
540 PRINT TAB(12)"CDOWN.WHrTE)3) EAUPTMEN't 

550 PRINT MUS 
560 GOSUB 15 

570 IF AS<"l"OR A$>"3'THEN 560 
500 IF A$ = "3''THEN 230 

590 INPUT"CCLB.GREEN.0DOWN,SPACE>EICHER "i 
SIS 

600 IF LEFT$!SI$,1)<>"J''THEN 500 

610 IF AS="1"THEN RUN 180 

620 GOSUB 17000:IF AF=1 AND ED=AS«RR%THEN 


<151> 

<027> 

<149> 

<238> 

<254> 

<072> 

<07B> 

<064> 

<084> 

<139> 

<182> 

<216> 

<037> 

< 101 > 

<151> 

<093> 

<230> 

<092> 

<1B0> 

<040> 

■^U6> 

<135> 

<157> 

<215> 

<074> 

<177> 

<023> 

<228> 

;190> 

<170> 

<159> 

t007> 

,:059> 

<058> 

< 211 > 

<070> 

<157> 

<014> 

<170> 

<067; 

<003> 


Llsting 2. Das Hauptprogramm »Liga-Master». Bitte 
mit dem Checksummer (Seite 159) eingeben. 
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670 

<036> 

3500 

FX=0=K=0;FOR 1=1 TO NM:FOR J=1 TO NM 

<066> 

630 PRINT‘'<:2DOHN3" ;TB=14:a0SUB 13 

<172> 

3510 

IF PL(J>tl<>I THEN 3580 

<0g2> 

640 FOE SP=AF TO KD 

<04e> 

3515 

K=Kn 

<236> 

641 FOE ir=l TO = :E®(SP,I 


3516 

POKE 646,l-!K/2=INT(K/2)>»4 

.<011> 

I ) = ":NEXT 

■;093> 

3517 

IF FX=I THEN PRINT'‘C4SPACE>" i :aOTO 35 


650 GOSUB 7280 

<179> 


30 

<015> 

660 NBXTiGOTO 230 

<0S3> 

3520 

F%=I:PRINT ZSd)!". "i 

<134> 

670 FOR 1=1 TO NM:PP(I>=0:MP(I)=0iPT(I>=0: 


3530 

ASS=RIGHTS(STR$(aW(J>+UN(J)+VL<J>).2) 

<n8> 

MT(I>=0:QW<I>=0:UN(I)=0:Vi:.(I)=0:NEXT 

<137> 

3540 

GW$=RIGHT$(STRS(aW(J>),2) 

<171> 

600 FOB 1=1 TO AS»RRX:FOR J=1 TO NM/2:E*(I 


3550 

UNS=RiaHT$(STE$(ÜN(J)),2) 

<149> 

.J) = ''-X-"-NEXT!NEXT!PL(0>=-1 

<172> 

3560 

VLS = RIGHTS(STE$(VL< J >),2) 

<135> 

690 GOTO 230 

<166> 

3565 

PRINT MS{0.J)i 

<200> 

099 ======-==- UHR STEL LEN ==========-== 

<068> 

3570 

PRINT"C2SPACE0"ASS"<3SPACE3"GWS" " UNS 


1000 GOSUB 10500:GOTO 230 

<171> 


" "VLS 

<206> 

2099 iisc========= TABELLE r======ssrrs= 

<009)' 

3560 

NEXTiNEXT 

<025> 

3000 PRINT "CCLR.BHITB.4DOWN5"LISI0) 

<106> 

3590 

PRINT:GOSUB 35 

<228> 

3010 PRINT "C2D0WN>"MU$ 

<077> 

3610 

GOTO 3000 

<010> 

3020 PRINT'C2UP,RVS0N.GREEN> " i:Z*=" 1 A B 


4000 

PRINT"CCLR,3D0WN,GREEN>AC2SPACB>ALLE'' 

<087> 

ELLE"iGOSUB 25 

<037> 

4010 

FOE 1=1 TO NM 

<006> 

3030 PRINT TAB(12)"CWHITE31KSHIFT-SPACE>A 


4020 

POKE e4e,l-(I/2=INT<l/2))*4 

<253> 

USGEBEN" 

<21B> 

4040 

PRINT Z$(I)i". "MS(0,I> 

<111> 

3040 PRINT TAB(12) "CD0WN.GRBEN>2)CSHIFT-SP 


4050 

NEXT 

<250> 

ACEIEINGEBEN" 

c226> 

4060 

PRINT"CHOME,10DOMNO"TAB(22)"ÜANNSCHAF 


30S0 PRINT TAB(12)''^;D0MN,WHITE>3)CSHIFT-SP 



T :" 

<244> 

ACEJÜAUPTHENt" 

<018> 

4070 

PRINT TAB(22!::1NPÜT»3.MS 

<159> 

3060 PRINT MUS 

<179> 

4075 

IF MS="X"THEN 3000 

<180> 

3070 GOSUB 15 

<038> 

4080 

IF Mt="A''AND NMO0 THEN AF=1 = ED=NM:G0 


3080 IF AS<"1'0R A$>'3"THBN 3070 

<158> 


TO 4115 

<026> 

3090 ON VAL(A®)QOTO 3100,4000.230 

< 20 e> 

4090 

M=VAL(MS) 

<209> 

3100 TS=12;G0SUB 13:IF PL(0)<>-1 THEN 3310 

<1S4> 

4100 

IF H<1 OR M>NM THEN PRINT"CUPOGOTO 


3105 FOR 1 = 1 TO NH:PHI> = 0:NEXT 

<138> 


4070 

<023> 

3110 FOE 1=1 TO NM^FOR J=1 TO NM 

<054> 

4110 

AF=M:ED=M 

<071> 

3120 IF PP<I>.rPP(J!THEN 3290 

<108> 

4115 

FOR I=AF TO ED 

<134> 

3130 IF PP!I):-PP<J)THEN 3300 

<099> 

4120 

PRINT"CCLR,4D0WN,YELLOW>"M$(0,I) 

< 02 e> 

3140 IF MP<I).'MP(J)THEN 3290 

<096> 

4125 

PRINT TAB(15)"C3D0WN,GREENI"PP(I> 

<042> 

3150 IF MP<I><MP(J)THEN 3300 

c091> 

4130 

INPUT"CÜP31LUSPUNKTE_"iPP(I> 

<140> 

3160 IF PT(I)-HT(I)<PT<J>-MT(J>THEN 3290 

<191> 

4135 

PRINT TAB(15)MP(I) 

<129> 

3170 IF PT(I)-MT(I)>PT<J)-MT!J>THEN 3300 

■;056> 

4140 

INPUT-CUPJüINUSPÜNKTE. . . " iMPdJ 

<026> 

3180 IF PT(I)-:PT(J)THEN 3290 

<248) 

4145 

PRINT TAB(15) "CDOWN,HHITEO"PTd) 

<061> 

3190 GOTO 3300 

<1465 

4150 

INPUT" CUP02LUSTORE."; PTd > 

<198> 

3290 PL(I)=PL{I)+1 

<232> 

4155 

PRINT TABdS)MTd) 

<153> 

3300 NEXT:NEXT:PL(0)=0 

<068> 

4160 

INPUT " CUP JÖINUSTORE." i MT d) 

<122> 

3310 PR1NT"CCLE.2I)OWN>":F%=0:IF DR=3 THEN 

»■'SB C 

PLÄiai^EINT TAB(15>"CD0WN,GREEN>"QW<I) 

<107> 

3315 

<169> 

4170 

INPUT ■■ CUP3GEH0NNEN." i GH d ) 

<153> 

3311 PBINT»4-PRINT«4,CHE*(14)''TABELLE''CHRS 


4175 

PRINT TAB(15)UNd) 

<171> 

(15):PRINTtt4 

<005> 

4180 

INPUT"CUPOUNENTSCHIEDEN.";UN d) 

<06g> 

3312 PRINT»4, '■PLATZC2SPACE3MANNSCHAFTC5SPA 


4165 

PRINT TAB(15>VLd) 

<052> 

CEOSPIELE GW UN VLC11SPACB3DIFFERENZC 


4190 

INPUT"CUP>VEBLOEEN." iVLd) 

<060> 

9SPACE5PKT" 

<045> 

4200 

PRINT:GOSUB 80 

<170> 

3313 PRINT»4.CHR*(aiOHRS(26)CHR*(210)CHR$( 


4210 

GOSUB 15:IF A$="N"THEN 4120 

<061> 

136)CHE$(26)CHRS(210>CHR$<136)CHR$(15 


4220 

IF AS<>"J"THEN 4210 

<043> 

) 

<106> 

4230 

NEXT:PL(0)=-1:GOTO 3000 

<062> 

3315 K=0:FOE 1=1 TO NM:FOR J=1 TO NM 

<191> 

4998 

END 

<174; 

3320 IF PL(J) + 1-;>I THEN 3480 

.: 02 a> 

4999 

--- ERaEBNISSE AUSGEBEN —= 

<165; 

3325 K=Xtl 

<044> 

5000 

PRINT"CCLR,4D0HN,HHITE>"LIS(0) 

<180; 

3326 POKE 646.1-(K/2=INT(K/'2J )'l'4 

<075> 

5010 

PEINT"C2D0WN>"MUS"CUP.EVSON>";:ZS=" £ 


3330 IF FX=I THEN PRINT"C4SPACE>"i:GOTO 33 



RGEBNISS EC3SPACE0A ü S G . " 


50 

<08S> 


:GOSÜB 25 

<191; 

3340 F%=I;PRINT Z$(I)''. "i^IF DR=4 THEN PR 


5020 

PRINT TAB(9)"CWHITED1) JPIELTAG" 

<043> 

INT#4,I"."; 

<116> 

5030 

PRINT TAB(9)"CD0WN,GEEEN>2) EINZELNE 


3350 PRINT MS(0,J):=IF DR=4 THEN PR1NT»4,C 



ÄANNSCHAFT" 

<019; 

HRS(I6)"07’'Mff(l,J)i 

<003> 

5040 

PRINT TAB(9)’’CDOWN,WHITE33> BESTIMMTE 


3360 DIS=RICHTS(SP*+STRS(ABS(PT<J)-MT(J))) 



S SPIEL" 

<231; 

,5) 

<193> 

5050 

PRINT TAB(9)"CDOHN,GREEN94J ÄAUPTMENt 


3365 VS='' '■ 

•<176; 



<187; 

3370 IP PT(J)-MT(J):'0 THEN VS="*" 

<015> 

5060 

PRINT MUS 

<147; 

3371 IF PT(J)-MT(J)<0 THEN VS="-" 

<200> 

5070 

GOSUB 15 

<006; 

3380 PP$sRIGHT*(STRS(PP(J)J,2) 

<227> 

5060 

IF ASc"l"OE AS>"4"THEN 5070 

<193; 

3390 MPS=HiaHTS(STR$(MP<J)).2) 

<213> • 

5090 

ON VAL(AS)aOTO 5100,5500,6000,230 

<222> 

3395 ASS=RiaHT$(STRS(GW(J)tUN(J)+VL(J)>,2) 

<239; 

5100 

GOSUB 17000:IF ST$="X"THEN 5000 

<201> 

3400 PRINT TAB(17)''c. "ASS" "VSiDI®'' i "P 


5140 

IF AF<1 OR AF>AS*RR%THEN 5100 

<240> 

PS":"MPS 

<1485 

5150 

FOR SP=AF TO ED 

<243> 

3410 IF DR=3 THEN 3480 

<210; 

5160 

PRINT"CCLR,3D0WN,WHITEO"LIS(0) 

<153; 

3420 PRINTtt4,CHR$(ie) ■24"AS$i 

<144> 

5170 

PRINT"CGREEN,2DOHN3"SP"CLEFTO. SPIELT 


3430 GW$=RiaHT$<STRS(GW<J>),2) 

<061> 


AGC2SPACE>" SS ' C4SPACE5 "DS (SP 1" C3I)0WN> 


3440 UNS=RiaHTS(STRS(UN(J>),2) 

<039> 


" 

<216; 

3450 VLS=RiaHTS<STH$(VL(J)>,2) 

<025> 

5180 

F%=0:FOR 1 = 1 TO NM/2:IF E$(SP,I> ='•-£,- 


3455 PT«=RIGHT$ < SPS+STR9 < PT(J)),5) 

<092> 


"THEN FX=F%+1 

<233> 

3456 MTS=RiaHT«(SPStSTRS < MT(J)),5) 

<144> 

5190 

NEXT 

<120; 

3460 PRINT«4,"C3SPACB0"GHS" "UNS" "VL$"C3S 


5200 

IF FX=INT(NM/2)THEN PRINT"CHHITE.5D0W 


PACB>”; 

<150> 


N,2SPACE;)£S LIEGT NOCH KEIN ERGEBNIS 


3470 PRINT#4,PT$":"MT$''C5SPACE>"V$iDIS"C3S 



VOR i!!":a0T0 5240 

<057; 

PACE>''PP$':"MPS 

<252> 

5206 

IF DR=4 THEN PRINTtt4 ,SP", SPIBLTAGCSS 


3480 NBXT:NEXT 

<181> 


PACEO"DS(SP) :PRINTtJ4 

<150> 

3481 PRINT:GOSUB 35 

<117> 

5210 

FOR 1=1 TO NM/2 

<227; 

3482 IF A$="X'THEN 3000 

<255> 

5215 

POKE 646.I-(I/2=INTd/2>)*4 

<178; 

3490 PRINT"CCLR.2D0HN>'' 

<227> 

5220 

PRINT M$(0,H(SP,I))"-"MS(0,G(SP.I))" 



60 
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"E$<SP,I) 

<072> 

6230 

GOSUB 15:IF ASo" "THEN 6230 

<018> 

5225 

IF I)R=4 THEN QOSUB 16100 ; PEINT«4 

<171> 

6240 

IF F2X=1 THEN F2?1=0:GOTO 9000 

<124; 

523C 

NEXT 

<160> 

6250 

GOTO 5002 

<126> 

524C 

PRINT "COHBEN>":QOSUB SSiNEXT^GOTO 500 


6999 

======= ERGEBNISSE BINGEBEN =-===== 

^067> 


0 

<242> 

7000 

PRINT"CCLR,4DOWN.WHITE?"LI$(0) 

<148> 

550^ 

PRINT" CCLE,3DO»N>'' 

<102> 

7010 

PRINT"C2DOWN?"MU8"CUP.RVSON?"i :Z$=' £ 


ssie 

FOR 1=1 TO NM 

<238> 


RGEBNISS EC3SPACE3E ING 

<027> 

5515 

POKE e46,l-(I/2=INT(I/2))»4 

<224> 

7020 

GOSUB 25 

<188; 

5520 

PRINT Z®{I) '. •■MS!0,I! 

<147> 

7030 

PRINT TAB<12) "CWHITE?!) SPIELTAG" 

<053> 

5530 

NEXT 

<206> 

7060 

PRINT TAB(12) "CDOWN,GRBEN?2> EINZELNE 


5540 

PRINT'CHOME. WHITE. aDOWN3''TAB< 22 r'üANN 



S SPIEL" 

<168> 


SCHAFT :" 

<007> 

7070 

PRINT TAB(12)"CDOWN,WHITE?3) ÜAUPTMEN 


5550 

PRINT TAB<22)i:INPüT»3,MS 

<n5> 


t" 

<010> 

5560 

IF M»="X''THEN 5000 

<149> 

7060 

PRINT MUS 

<135> 

5570 

H=VAL(MS):IP M<1 OR M>NM THEN 5540 

<193> 

7090 

GOSUB 15 

<250> 

5575 

IF DR=3 THEN 5580 

<091> 

7100 

IF AS<"l''OR AS> "3"THEN 7090 

<136> 

5576 

PRINT«4:PRINT»4:PRINT«4,"ERaEBNISSECE 


7110 

ON VAL(A$>GOTO 7120,6000,230 

<ia7> 


SPACB>"CHRS(14)MS(2,M)CHR9(15):PRINT» 


7120 

GOSUB 17000:IF ST$="X"THEN 7000 

<197> 


4 

<022> 

7130 

IF AP<1 OR AF>AStRRXTHEN 7120 

<236> 

5580 

K=0:FOR SP=1 TO AS»RR%:IF K<>0 THEN 3 


7150 

FOR SP=AP TO ED 

<209> 


630 

<142> 

7160 

PRINT''CCLR, WHITE, 4DOWN>"LIS(0) 

<202> 

5500 

PRINT''CCLR. WHITE, 4DOWN>'118(0) 

<156> 

7170 

PRINT " CDOHN,GREEN?"SP" SPIELTAG "SST 


5600 

PRINT"CTELLOW.2DOWN.SPACEJSEQEBNISSBC 



AB(29)DS(SP> 

<084> 


SPACE,EVSON> 'MS(0,M) " C2DOWN> " 

<011> 

7180 

PRINT:FOR 1=1 TO NM/2 

<005> 

5630 

FOR 1=1 TO NM/Z 

<137> 

7190 

PRINT M$(0.H(SP,1))"-"M$(0,G(SP.I)>TA 


5635 

POKE 846.l-(K/2=INT(K/2>)*4 

<100> 


B(30)ES(SP,I) 

<112> 

5640 

IF H<SP.I)<>M OR E*(SP,I)='-i,-"THEN 5 


7200 

NEXT 

<033> 


670 

<160> 

7210 

PRINT " CHOME,8D0WN?"TAB ( 30 ) i 

<059> 

5650 

PRINT MS(0.G(SP,I) )" (Ä) ''E$(SP.I)TAB 


7220 

FOR 1=1 TO NM/2 

<205> 


(29)D*(SP>:K=K+1 

<243> 

7230 

GOSUB 90:Eas(I)=ES;PEINT TAB(30); 

<180> 

5660 

IF I)R=3 THEN 5665 

<212> 

7240 

IF LEN(E$)=9 THEN PRINT"CUP?"; 

<154> 

5661 

GOSUB 16100:PRINTH4.CKR8(16) '49"SP" 


7270 

NEXT:TB=12:GOSUB 13:G0SUB 7280:GOTO 7 



SPIELTAa<2SPACE3/<;2SPACE5 "DS(SP) 

<186 


000 

<044> 

5665 

GOTO 5700 

<161 

7280 

FOR 1=1 TO NM/2:IF ES(SP, 1 )="-£-"THEN 


5670 

IF G(SP.I><>M OR E$(SP.I>="-X-"THEN 5 



7350 

<080> 


700 

<115 

7290 

H=VAL(E$(SP,I)) 

<159; 

5660 

PRINT MS(0,H<SP,I))" (A) "E$(SP,I)TAB 


7300 

FOB J=1 TO LEN!E$<SP,I)) 

<091> 


(29)DS(SP):K=K+1 

<246 

7310 

IF MID$(E$(SP,I),J,1)="£"THEN PO=J:J= 


5690 

IF I)R=3 THEN 5700 

<180 


LEN(E$(SP.l)) 

<150; 

5685 

GOSUB 16100:PRINTtt4,CHRS(16>"50"SP" 


7320 

NEXT 

<218; 


SPIELTAGC2SPACE>/C2SPACE>"DS(SP) 

<154 

7330 

a=VAL(MID$tES(SP,I),POtl)) 

<202; 

5700 

IF K=10 THEN K=0:PEINT:GOSUB 35 

<122 

7340 

FH%=-l:GOSUB 16500 

<192: 

5710 

NEXT:NEXT 


7350 

IF EG$(I) = "-i,-''THEN 7420 

■;237> 

5720 

IF K<>0 THEN PR1NT:G0SUB 35 


7AL ( eg* (I)) 

<114. 

5730 

GOTO 5000 

<114: 

7360 

FOR J=1 TO LENtEGSd)) 

•.036; 

6000 

PRINT "CCLR,3DOWN>" 

<094: 

7370 

IP MrDS(EQ$(,I).J,l> = "i,"THEN PO=J:J=LE 


6010 

FOR 1=1 TO NM 

<230: 


N(EG$<I)) 

<221. 

6015 

POKE e46,l-(I/2=INT(I/2))*4 

<216: 

7380 

NEXT 

<022; 

'6020 

PRINT Z$(I)". "MS(0,I> 

<139: 

739ja 

G=VAL<MIDS(EGS(1).PO+l>) 

■•194. 

6030 

NEXT 

<1S8> 

7400 

FM%=l:aOSUB 16500 

•045: 

6040 

PRINT"'CHOME,ttHITE,8DOWNI"TAB(22>"äEIM 


7410 

ES(SP,I)=EC$(I) 

.2I2> 


MANNSCHAFT : 

<140> 

7420 

NEXT:PL(0)=-1:BETURN 

.;248. 

6050 

PRINT TAB(22)::INPUT»3,HM$:IF HM8="X" 


6000 

PEINT"CCLR,3DOWN?" 

••062; 


AND F2X=1 THEN F2%=0:GOTO 9000 

<13S> 

8010 

FOR 1=1 TO NM 

a08 

6051 

IF HM$="X"THEN 5000 

<078> 

8020 

POKE 646.1-(I/2=INT(I/2))<'4 

189' 

6055 

HM=VAL(HM$):IF HM<1 OR HM>NM THEN PRI 


8040 

PRINT ZS(I)" "M$(0,I) 

•--127'. 


NT'CUP?':GOTO 6050 

<209> 

6050 

NEXT 

.186- 

6056 

PRINT"<UP?":PRINT TAB(22)M$(0,HM) 

'.208> 

6060 

PRINT"CWHITE.HOME.7DOWN?"TAB( 22 )"ÜEIM 


6060 

PRINT"C2DOWN>" : PRINT TAB(22) "SASTMANN 



MANNSCHAFT :" 

■ 124;- 


SCHAFT :" 

k145> 

8070 

PRINT TAB(22) i : INPUTÖ3 , IIMS :PRINT 

•-243; 

6070 

PRINT TAB(22)i:INPUT»3,GMS 

•-077' 

8060 

IF HH$="X"THEN 7000 

091; 

6060 

GM=VAL(GM$):IF GM<1 OR GM>NM THEN PRI 


8090 

HM=VAL(HMS):PRINT"CUP>"TAB(22)i 

sl55; 


NT"CUP?'':GOTO 6070 

<066> 

8100 

IF HM;l OR HM>NM THEN 8070 

•:223'. 

6090 

PRINT"CUP>":PRINT TAB( 22)NS(0 ,OM ): TBs 


6110 

PRINT MS(0,HM) 



22:aOSUB 13 

<105> 

6120 

PRINT"C2DOWN?"TAB(22>"aASTMANNSCHAFT 


6100 

FX=0:FOR SP=1 TO AS»RRX 

V047:' 



•■150> 

6110 

FOR 1=1 TO NM/2 

‘•109> 

6130 

PRINT TAB(22);:INPUT»3,GMS:PRINT 

.031 

6120 

IF(H(SP,I)oHM OR G(SP,I!’:>GM)AND(G(S 


8140 

GM=VAL(GM$>:PRINT"CUP?"TAB(22>1 

<072: 


P.DoHM OR H<SP.I)oGM)THEN 6190 

•.-0g6> 

8150 

IF GM<1 OR GM^NM THEN 8070 

•:00e; 

6130 

IF FX=0 THEN FX=1iPRINT'CCLR,WHITE,3D 


8160 

PRINT H$(0.GM):TB=22:G0SÜB 13 

<151.- 


OHN?"LIS<0)"C2I)OWN>" 

<011- 

8170 

SP=0:FOR 1=1 TO AS*RRX 

<123: 

6140 

PRINT "CGREEN,2DOWN>"SP"CLEFT?. APIELT 


8180 

FOR J=1 TO NM/2 

<155: 


AG "SS-CSSPACE?'DS(SP) 

<118> 

6190 

IF H(I,J)=HM AND a(I,J)=GM THEN SPsI: 


6150 

PRINT"CWHITE.DOWN?"H$(0.H(SP.I))"-'MS 



K=J:IsAS«RRX:J=NM/2 

<226. 


(0,a(SP.I))" "ES(SP,I) 

<174: 

8200 

NEXT:NEXT 

<009; 

6160 

IF DB=3 THEN 6190 

<167> 

6210 

IF SP<>0 THEN 8230 

<049; 

6170 

PRINT«4:PRINT»4:PRINTH4,SP". SPIELTAG 


8220 

PRINT " C2DOWN.GREEN?"TAB(22)"CRVSON?SP 



C4SPACE3 "D$(SP> 

<140> 


lEL WIRD NICHT":PRINT TAB(22> "CRVSON? 


6180 

PRrNT«4:GOSUB 1B100:PRINT»4 

<068> 


AUSGETRAGEN ICSSPACE?" 

<016> 

6190 

NEXT:NEXT 

<097> 

8225 

GOSUB 15:aOTO 0000 

<051> 

6200 

IF F%=1 THEN PRINT:aOSUB 35:IF F2X=1 


8230 

PRINT"CCLR.4DOWN,WHITE?"LIS(0) 

<039> 


THEN F2%=0:aOTO 9000 

<060: 

8240 

PRINT"CGREEN,DOHN?"SP"CLEFT?. SPIELTA 


6205 

IF FX=1 THEN 5000 

<106-' 


QC2SPACE?"SSTAB(29)D$(SP) 

cl47> 

6210 

PRINT TAB(22)"C2DOWN,GREEN,RVSONISPIE 


8250 

I=K:IF E$(SP,I) = ''-£-''THBN 8270 

<108> 


L WIRD NICHT" 

<066 

6260 

PRINT''C2DOWN,GREEN>£RGEBNIS IM SPEICH 


6220 

PRINT TAB(22)"CRVSON?AUSaETRAGEN !C3S 






PACE?" 

<076> 

LIstIng 2. »Liga-Master V3<< (Fortsetzung) 
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ER :<2SPACEiRVS0N,SPACE3"iES(SP,I>i" 

0270 PRINT'‘<2DOWN,HHITE3"MS(0.HM)'■ '5' "«9(0 
,GM) 

0200 PRINT:PRINT''<GREEN5" 

8290 IF E*(SP.I)<>"-X-''THEN PRINT"ÄEUES 
0300 PRINT"£RGEBNIS : ": 

0310 GOSUB 90:TB:14;aOSUB 13 
0320 IF E$<SP,I) = "-i,-'THEN 8390 
8330 H=VAL<E9(SP,I)> 

0340 FOR J=1 TO LEN<ES(SP.I)) 

0350 IF MrDS<ES(SP,I),J,l)="i"THEN P 0 :J:J= 
LEN{E9<SP,I>) 

0360 NEXT 

0370 a=VAL(MIDS!E$<SP.I).PO*l)) 

0300 FMX=-l:GOSUB 16500 
0390 IF E9=''-X-"THEN 0450 
0395 H=VAL(E9) 

0400 FOR J=1 TO I.EN(E9> 

0410 IF «IDS<E9,J,1) = ‘’X"THEN POsJ : JsLBNt ES 

> 

8420 NEXT 

0430 G=VAL(HID9(ES,P0+1)) 

0440 FMlJilMJOSUB 16500 

0450 ES(SP,I)=E9:PL(0>=-l:aOTO 7000 

8999 1 ======== FEH LEN DE SPIELE ===r=r=?s 

9000 PRINT"CCLR,«HITE,4DOtfN>''LIS<0) 

9010 PEINT"C2DOWN>"MÜ9:Z9=" R E S T L I C 
H EC3SPACE>1 P I B L E " 

9020 PRINT'’42UP,RVSON3"r!OOSUB 25 
9030 PRINT TAS!12)"CWHITE>1) SPIELTAG" 

9040 PRINT TAB(12)"CI)OWN,GREEN>2> ÄESTPROG 
RAMM" 

9050 PRINT TAB(12)'CD0BN,WHITE>3) ÜACHHOLS 
FIELE" 

9055 PRINT TABa2!''CD0WN.GREEN>4) £ATUM E. 
SPIELS" 

9060 PRINT TAB(12)''<;D0WN,WHITE>5) äAUPTMEN 
t" 

9070 PRINT MÜS 
9060 GOSUB 15 

9090 IF A9':''l"OR A$>''5''TKEN 9080 
9100 ON VAL(A9)GOTO 9120.9500,10000,10500. 
230 

9120 GOSUB t7000;IF ST9=''X''THEN 9000 
9160 IF AF<1 OR AF'AS*RB%THEN 9120 
9180 FOR I=AF TO ED 
9190 PRINT'CCLR,WHITE.3DOWN>"LI$<0> 

9200 PRINT"CGREEN.2DOHN>"I''CLEFT>. SPIELTA 
GC2SPACED'SS"C3SPACE>''D$<I)''C2DOUN>'' 
9210 F%=0:-FOR J = 1 TO NM/2 
9220 IF ES(I,J) = ''-i,-"THEN F%-F%tl 
9230 NEXT 

9240 IF FX<>INT(NM/2)THEN PRINT"CWHITE, 6 DO 
WN.SPACEDÄPIELTAG WURDE BEREITS AUSGE 
TRAGEN !":GOTO 9260 

9241 IF DR=3 THEN 9245 

9242 PRINT»4:PRINTH4:PRINT«4.I''. SPIELTAGC 
4SPACEG"DS(I):PRINT»4 

9245 FOR J=1 TO NM/2 

9246 POKE e4e.l-(J/2=INT(J/2>>*4 

9250 PRINT M$(0,H(I.J!)"C2SPACE>'E’C2SPACED" 
MS(0,a<I,J)) 

9260 IF DR=3 THEN 9275 

9270 PRINTS4,M*(1.H<I,J)>'■C2SPACED&C2SPACE 
>"M$<1.G(I,J)) 

9275 NEXT 

9280 PRINT:GOSUB 35 
9290 NEXT:QOTO 9000 
9500 PBINT"CCLR.2DOWN3":FOR 1=1 TO NM 
9515 POKE 646,l-(I/2=INT(l/2))»4 
9520 PRINT 2S!I>", "MStG.I) 

9530 NEXT 

9540 PRINT"CHOME,8D0tfN,WKITED"TAB( 22 >"ÜANN 
SCHAFT ‘" 

9550 PRINT TAB(22)::INPUT»3,MS 
9560 IF M$="X"THEN 9000 
9570 M=VAL(MSJ 

9580 IF M<1 OR M>NM THEN PRINT“CUPD":GOTO 
9550 

9610 IF DR=3 THEN 9630 

9620 PEINT»4:PEINT«4:PRINTtt4,"RESTPROGRAMM 
"OHES(14)MS(2,M > OHRS115 >:PRINT#4 
9630 PEINT"CCLE.WH1TE.3DOHN>"LIS{0> 

9633 PRINT"C2DOWN.YELLOW,SPACE3ÄESTPEOGRAM 
M :CSPACE,RVSON>"M$< 0,M)"C2DOWN3" 

8635 K=0:FOR SP=1 TO AS»RRX.-IF K<>0 THEN 9 


<159> 

<ia4> 

<172> 

< 120 > 

<091> 

<U4> 

<107> 

<2S3> 

<096> 

< 127 ^ 

<173-. 

••037> 

';040^ 

1023 

■026: 

•109> 

<2363 

<233> 

<224> 

< 124 :' 

<173;- 

■:205.- 

4010 : 

-•,244. 

.1623 

•2213 


<209: 

<238> 


640 

9640 FOR 1=1 TO NM/2 
9652 POKE 646.1-(K/2=INT(K/2))»4 
9672 IF H(SP.I><>M OR E$(SP.I><>"-i- THEN 
9720 

9682 PRINT MS(0,G(SP.I>)" (ö)C3SPACE>"D$<S 
P>iK=K+l 

9692 IF DR=3 THEN 9770 

9700 PRINTK4.H$!1 .HCSP.I! ) ''C2SPACE>£,C2SPAC 
E>"M${l.a(SP.IJ)CHRS<16)"39'': 

9705 PRINT#4.SP". SPIELTAGC2SPACE5/C2SPACE 
3"D$(SP) 

9710 GOTO 9770 

9720 IF G<SP,I><>M OR ES(SP,I><>"-£-"THEN 
9770 

9730 PRINT MS(0.H<SP,I>)’' (A)C3SPACE>"D$<S 
P) :K=Ktl 

9740 IF DR=3 THEN 9770 

9750 PRINT»4,M$(1,H<SP.I>)"C2SPACE>£,<2SPAC 
E3'MS(1.0<SP,I>)CHRS<18)"39"1 
9760 PRINTMiSP". SPlBLTAaG2SPACE>/C2SPACE 
>"D$(SP) 

9770 IF K=10 THEN K=0!PRINT:QOSUB 3S:PEINT 
”CCLR.WHITE.3DOWN>"LI#(0 >:PRINT"C2DOW 
N.YELLOW.SPACEDÄESTPROGRAMM :CSPACE,R 
VSON>"MS(0,N)"C2DOWN3" 

9700 NEXT:NEXT 

9790 IF KO0 THEN PRINT:GOSUB 35 
9000 GOTO 9000 

9999 END 

10000 PBINT"CCLR>" 

10010 IF DE=4 THEN PRINT»4:PRINT«4:PEINT»4 
.CHR#(14)"NACHHOLSPIELE :"CHR*(15):P 
RINT#4 

10015 PRINT"CCLR.WHITE.3DOWND"LIS(2) 

10216 PRINT"C2DOWN.YELLOW,RVSON.SPACEDÄACH 


<2223 

<2323 

<093> 

<20B> 

<219> 

<173,3 

<242: 

<1173 

:2553 

<038.- 

<170- 

< 211 ; 

<0963 


<2223 

■.22S' 


HOLSPIELE : " 

10020 K=0:FOR SP=1 TO AS*RR% 

10030 F%:0:FOR 1=1 TO NM/2 

10040 IF ES!SP,I) = ''-X-"THEN FX=P?4-H 

10050 NEXT 

10060 IF FX=INT(NM/2)THEN 10140 
.lagjäÄ.POE 1 = 1 TO NM/2:IF K<>0 THEN 10080 
'10080 IF ESlSP.I)<-'’-^.-''THEN 10135 
10085 POKE 646.1-<K/2=INT(K/2))*4 
10090 PRINT''<2DOWNJ"SP"CLEFT>. JPIELTAGC2S 
PACE>'f5S 

10100 PRINT"CDOWN>"M$<0,H(SP.IJ)''-"M$(0.G( 
SP.IJ):K=K-t-l 

10110 IF DE=3 THEN 10130 

10120 PEINTfl4, MS(1 , H(SP. I) )"C2SPACE0S.C2SPA 
CE>''M$(1,G<SP,I))CHR#(16>"S0"; 

10125 PRINT»4,SP". SPIELTAG" 

10130 IF K=3 THEN K=0:PBINT:GOSUB 35:PRINT 
"CCLR, WHITE, 3DOWN3"LIS(0) :PRINT’’ C2DO 
WN.YELLOW,RVSON.SPACEOÄACHHOLSPIELE 


<019> 

<206> 

<150> 


10135 NEXT 
10140 NEXT 

1015« IF K</0 THEN PRINT:GOSUB 35:GOTO 900 


<228> 

< 000 > 

<071> 

<141> 

<074> 

<1203 

< 100 > 

<160> 

<083> 

<142> 

<199> 

<051> 

< 101 > 

< 101 > 

<197> 

<0403 

<2373 

<1873 

<1243 


10160 GOTO 9000 
10500 F2?S=l:GOTO 6000 

14999 ============== DISK ============== 

15000 PRINT"CCLR,4DOWN,WHITE>''LI*(0) 

15010 PRINT''CDOWN>"MU#:PEINT''C2UP,RVSON>'' i 

:Z$=" Ä I S K ":OOSUB 25 
15020 PRINT''CD 0 WN,WHITB> 1 ) ÄATEN LADENCaSP 
ACE,GREEN36) ÄATEI L»SCKBN 
15030 PRINT"CDOWN32) £ATEN SPEICHBRNC4SPAC 
E.WHITED7) KOMMENTAR IN 
15035 PRINT TAB(25!"ÄIRECTORY EINF."! 

15040 PBINT"CDOWN53) £IREGTORY lORMAT ICSP 
ACE,GREEN>0) SBFEHLSKANAL 
15050 PEINT"CDOHN54J DIRECTORY £ORHAT 2CSP 
ACE,WHITE>9) £EHLERKANAL 
15055 PEINT"CDOWNDSJ ÄIRBCTORY VALIDATBCSP 
ACE.GEEEN50) ÄAUPTMENt 
15060 PRINT"CDOWND''MUS 

15070 GOSUB 15:IF A$<"0''OR AS3’'9"THBN 1507 
0 

15000 ON VAL(A#)-H GOTO 230,20000,21000,15 
100,22000,22700,22500,20500,15200,15 
080 

15090 GOSUB 55:IF A<2 THEN PRINT"CCLH,GREE 
N, 6 DOWN>":GOSUB 25:aOSUB 35 


<1493 

<0833 

<0493 

<2263 

<2413 

<1463 

<1333 

<0513 

<1403 

<0173 

<0103 

<1983 

<1853 

<0343 


<0663 

<1313 

<1453 

<1523 

<0953 

<0823 


<0963 

<0643 

■'2413 
•147: 
;229: 
<084: 
-;154. 
<149 ••■ 
<1493 
<2373 
<232; 

<0173 

<0723 

<039> 

<0293 

<1713 


<0373 

<2393 

<2443 

<1443 

<0023 

<0743 

<0023 

<0183 

<2483 

<1103 

<1583 

<03,33 

<1043 

<1123 

<1313 

<0533 

<2253 


<0383 

<2463 
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15095 

GOTO 15000 

<151> 


OSUB 25 

<191> 

15100 

PRINT"CCLR.3D0WN.GEEEN>":F0R 1=1 TO 


18520 

PRINT"CWHITE,DOWN,SPACE>ÄATUMC2SPACE 



]5:NEXT:SYS 49152:IF ST064 THEN GOS 



XILAG 1 

<240> 


UB 55:GOTO 15000 

<065> 

10522 

PRINT" £ATUMC2SPACBX£10NAT) 

<151> 

15110 

PBINT TAB(8) 'CDOWN.H7SON>irR .b.e.t.u,rh. v 


18524 

PRINT" MTUMC2SPACEX.JAHE) 

< 12 a> 


®<RVOFF3"1 

<140> 

18530 

PRINT"CGEEEN,DOWN,SPACE>liHRZEITC2SPA 


15120 

GOSUB IS^IP A$<>CHRS(13)THEN 15120 

<135> 


CEXÄHmiäl" 

<117> 

15130 

GOTO 15000 

< 18 a> 

16540 

PRINT''C2D0WN>"HUS 

<U3> 

15200 

POKE e31,34:POKE 198,1 

<174> 

16550 

PRINT"CHOHE,WHITE,10DOWN>"TAB(19);:I 


15210 

PRINT ■' CCLR. 6DOHN, GEBEN. SPACEOSEFEHL 



NPUT«3,TA$:PEINT:PRINT TAB(19): 

<047> 


'■;:INPUT«3.BF$: PRINT 

<057> 

16551 

IF TA9="X''AND PEEK<7e9) = 194 THEN RET 


15250 

IF BF»="XTHEN 15000 

<045> 


URN 

<163> 

15270 

IF LEFTS(BFS,1) = "N''THEN PRINTW15 , "M- 


16552 

IF TA$="X"THEN 16500 

<061> 


W''CHR«(B1)CHES(0)CHRS(1 !CHRS<255) 

<033> 

18555 

INPUTB3,MOS:MO=VAL(MO$ >:PRINT:PRINT 


CD 

PRINT»15.BFS:CLOSE l^GOSUB 55:QOTO 1 



TAB{19>;:INPUT«3.JAS:JA=VAL(JAS):PRI 



5000 

<073> 


NT 

<218> 

15999 

ssssssssssssss: END E ===-========= 

<187> 

18556 

TA=7AL<TA$) 

<171> 

16000 

INPUT" CCLR, 7D0WN, GREEN, SPACEMICHEE 


18360 

IF JA>1900 THEN JA=JA-1900 

<083> 


"iSIS 

< 06 e> 

18570 

IF JA<80 OB JA:’99 THEN 18500 

<0e2> 

16020 

IF LEFT»{SIS,1> = '’J"THEN SYS 64738 

<046> 

18580 

IF M0<1 OR M012 THEN 18500 

<216> 

16040 

GOTO 230 

<020> 

16585 

IF TA<1 OR TA>31 THEN 18500 

<032> 

16499 


<246> 

18590 

IF(M0=4 OR M0=8 OR M0=9 OR M0=11!AND 


16500 

PT<H<SP.I)>=PT(H<SP,I>)+H#FMX 

C013> 


TA=31 THEN 18500 

<ie5> 

16510 

MT<H<SP.I))=MT(H(SP,I)>+G»FMX 

<070> 

18600 

IF H0=2 AND TA-.>29 THEN 18500 

‘;238> 

16520 

PT(a(SP,I))=PT(G<SP.I))+G*FM?i 

<250> 

18610 

IF M0=2 AND TA=29 AND JA/4<>INT(JA/4 


16530 

MT(a(SP,I))=MT<G<SP,I)>+H*FMli 

<059> 


)TKEN 16500 

•:025;- 

16540 

IF H=G THEN Dl=l:D2=1=UN(H(SP.IJ)=UN 


18615 

POKE 252,TA:POKE 253,MO:POKE 254.JA 

^014. 


<H(SP.I)l+FM%:UN(a(SP,I))=UN<G(SP,I) 


18620 

PRINT"CGEEEN,DOWN>"TAB(19);:INPUTÖ3, 



>'»FMX 

<225> 


TMS:PRINT 

<060> 

16550 

IF H>G THEN Dl=2:D2=0:GW(H<SP.I>)=GW 


18630 

SYS 49408,TMS 

<220> 


(H(SP,I))tFMH:VL(0(SP,I>)=VL(G(SP,I) 


18640 

RETURN 

<154> 


)tFM% 

<129> 

18999 

= = -= === GBRST EIGESCHALTET -== — = - 

<191> 

16560 

IF H<G THEN D1=0JD2=2=VL(H<SP.I))=VL 


19000 

OPEN 10,GA,0:CLOSE 10:IF ST>=0 THEN 



(H<SP.I>)+FHX:GW(G<SP.I)>=aW(G(SP,I> 



RETURN 

<16I> 


)+FMX 

<164> 

19010 

IF GA=4 THEN GA9="£BUCKER" 

c016> 

16570 

PP<H(SP,I)!=PP(H(SP.I> >+Dl*FMX 

<102> 

19020 

IF GA=8 THEN GA$=''£LOPPY'' 

<155> 

16560 

MP(H<SP,I))=MP(H(SP,I> >+D2*FMX 

<171> 

19030 

PRINT"CCLR,9D0HN,GREENJ":ZS=GA$+" EI 


16590 

PP(a(SP,I>)=PP(G(SP,I))+D2*FMX 

<095> 


NSCHALTEN !!";GOSUB 25 

<012> 

16600 

MP(G(SP.I>)=HP(G(SP.I)>+Dl*FMX 

<148> 

19040 

PRINT"CDOWN,RVSON>"i:GOSUB 35 

<173> 

16610 

RETURN 

<156> 

19050 

IF A$="X"THEN 230 

<087> 

16999 

—=- DATUM / SPIELTAG =-=====-= 

<175> 

19070 

GOTO 19000 

<126> 

17000 

INPUT"CCLR.GREEN,9DOHN,SPACE>SPIELTA 


19999 

— = —=—= DATEN LADEN ==- ===— = - = 

<022> 


G "iST$ 


20000J’9=" 2 A T E NC3SPACE7L ADEN ":SX 


17010 

IF STa="X"THEN RETURN 


0:aOSUB 23000:CLOSE 5:IF A>1 THEN 1 


17020 

IF LEFTS(STS,2><>''D;''THEN GOSUB 145 = 



5000 

<186? 


RETURN 

<083> 

20010 

IF LEFT$(F2$.1>='.S''THEN 20080 

<230> 

17030 

AF=0:ED=0:FOE 11=1 TO AS*RRX 

<027> 

20020 

PHINT'CDOWN,GREEN,RVSONJ";:Z$=" UNZÜ 


17040 

IF MIDS(ST*.3>=D*(II)THEN AF=II:ED=I 



LSSSIGER £ILETYP !! ":GOSUB 25 

<187> 


I:II=AS*REX 

<191^ 

20030 

GOSUB 15:IF ASO" "THEN 20030 

<03e> 

17050 

NEXT 

<040> 

20040 

GOTO 20000 

.:200,> 

17060 

RETURN 

<090;' 

20060 

OPEN 9,8,2,FIS+".S.E" 

<036: 

17999 

"=— DRUCKER / BILDSCHIRM ====== 

<040! 

20065 

GOSUB 55 

<047> 

18000 

IF DR=4 THEN CLOSE 4:DE=3:POKE 251.6 


20066 

IF A>1 THEN CLOSE 9:G0SUB 81:G0T0 15 



6:0010 230 

<193-, 


000 

<126) 

16010 

PRINT" CCLR. GREEN, 7D0HN5" : Z»= ".LBERSCH 


20070 

INPUTB9.LIS(0).LIS(l),SS,NM,AS 

<235) 


RIFT DRUCKEN (2/11! 7":G0SUB 25 

<230> 

20060 

FOR 1=1 TO NM:FOR J=0 TO 2:rNPUTÖ9,M 


16011 

GOSUB 15:IF A9="X"THEN 230 

<000> 


S{J,1):NEXT=NEXT 

< 2 ie> 

18012 

IF A$<>"J'’AND A»':>''N"THEN 18011 

<006> 

20090 

INPUTB9.RRX 

<035> 

18014 

AAS=A9 

<243> 

20100 

FOR 1=1 TO ASfRRX:FOR J=1 TO NM/2:IN 


18015 

aA=4:GOSUB 19000 

<254> 


PUT#9,H(I,J),a(I,J ) :NEXT:NEXT 

<14g> 

16045 

OPEN 4.4,0:IF AA9="N"THEN 18090 

<I02> 

20110 

FOR 1=1 TO AS*RRX:INPUT«9,DS(I):NBXT 

<126; 

18050 

PRINT#4.TAB(20)CHR$(14>''»> LIGA - M 


20120 

FOR 1=1 TO AS»RRX:FOE J=1 TO NM/2:IN 



ASTER <<<" 

<250> 


PUTÖ9,ES(I,J);NEXT:NEXT 

<151> 

18053 

PRINTU4 

<022> 

20130 

FOR 1=1 TO NM 

<124> 

16060 

FOR 1=1 TO 40:PBINT»4,:NEXT:PRIN 


20140 

1NPÜT#9,PP(I>,MP(I!,PT(I),MT(I>.GW(I 



Tt>4.CKRStl5) 

<114> 


),UN(I),VL(I),PL(I) 

<045> 

16070 

PRINT«4.LI9(1)1:PRINT»4.SPC(5)S9CHR$ 


20150. 

NEXT:INPUT«9,PL(0! 

<116> 


(14! 

<100> 

20160 

CLOSE 9:G0SUB 55:GOTO 230 

<147> 

16060 

FOR 1 = 1 TO 40!PRINTtt4.’'*'’!:NEXT:PRIN 


20499 

====== KOMMENTAR EINF+GEN ======== 

<091> 


T»4:PRINTtt4,CHR9(15! 

<186> 

20500 

SX=0:2S=" &OMMENTA RC3SPACE3E 


16090 

DR=4:P0KE 251,ea:aOTO 230 

<184> 


INF .'':ZU$=" ÄOR":aOSUB 23000:ZUS 


16100 

PRINT»4,Ma(l,H(SP.I)!CHR$(ie)'’ia £. " 



«M (1 

<024> 


M9(l.a(SP,l!!; 

<113> 

20505 

IF A>1 THEN CLOSE SiOOSUB 55:GOTO 15 


18110 

FOR KK=1 TO LEN<ES{SP.I)>:B9=MIDS(E$ 



000 

<093> 


(SP.DiKK.l) 

<037> 

20510 

PRINT "CCLR, WHITE, 4D0WNXLIS( 0!: PRINT 


16120 

IF B9="i,"THEN PO=KK:KK=LEN(E9(SP. 1) ! 

<235> 


"CDOWNJ"MUS : PRINT"C2UP,RVSONJ": : GOSU 


16130 

NEXT 

<104> 


B 25 

<079> 

18140 

PRINTH4,CHRS < 16 1" 38"LEFT9 ( ES ( SP , I !, P 


20520 

PRINT " C4D0WN>"MUS : PRINT " CWHITE.7UP,S 



0-11" : "MID9(E9(SP.I1.P0+:); 

<077> 


PACEJSITTE mT EINGEBEN (MAX. 73 SE 


16150 

RETURN 

<172> 


ICHEN! :" 

<059> 

16490 

===rr===== UHR STEL LEN =========== 

<022> 

20530 

PEINT"TO"LBFTS(SP9, 73) "V5C2UPX' : PRIN 


16500 

Z9="UW .t.IgA - M^5.T.E.H. VI";PRINT''CCLR. 



T TAB(2! ; 

<111; 


WHITEJ"1 : GOSUB 25 

<011> 

20540 

INPUTM , TES :PRINT: TES="£, " t-LEFTS ( TES 


18501 

Z9= "'Ct'fi'Ct'i’d’d'd’t'i'c'c'ti'c't’d'd't"' = GOSUB 25 

<U0> 


+SPS,73) 

<234; 

18502 

PRINT"C2DOHN>"LI${0! 

<114> 

20S50 

NR=0 

<226> 

16510 

PRINT"CDOHNO"MUS;PRINT"C2UP.EVSON3''i 






:Z$=" 2 H EC3SPACE0S T E L L E N '':G 


Llstlng 2. »Liga-Master VS« (Fortsetzung) 
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20560 NR:NRtl: PRINT»15. ■■P"CHRS (3 JCHRS (NR)C 
HRSC0!CHR$ll) 

20561 ÜOSÜB 55=1? A>1 THEN 15000 

20565 GETB5,A$aF AS'.;CHR$(255)THEN 20560 
20567 IF NR:143 THEN PEINT"C4DOHN,WHITE> ": 
Z*="£i;iN 2LAT2 MEHR l";rjOSUB 25:PRIN 
T:aOSUB 35:GOTü 15000 
20570 FOR I=NE-1 TO NRXSTEP-1 
20580 PRINTttl5,"P"CHR*(3)CHRS(I)CHRS(0)CHR 
S<1) 

20590 INPUTBS.AS 

20600 PHINTB15, ''P 'CHR5!3>CHRS!I*1 !C’HR$(0)C 
HRSd) 

20610 PRINTB5,A$:NEXT 

20620 PRINTB15, "P "CHR$t3 JCHR$!NR1{)CHRS(0)C 
HR$(1> 

20630 PRINTB5,TE$CLOSE S^GOSUB SS:GOTO 15 
000 

20999 r5s=ss=T DATEN SPEICHERN =s===-s=- 

21000 Z$r" 2 A T E NC3SPACE3S REICHE 
R N " 

21005 OPEN 6,8.3,"DIRECTORyrCLOSE 6 
21010 ZZS=ZS;GOSÜB 55-ZS-ZZS‘-l? A<2 THEN 2 
1100 

21015 IF A':>62 THEN 15000 
21020 PRINT"CCLE.WHITE,4DOWN>"LISl0):PRINT 
C2DOWN5" MU*: PRINT" C2UP, RVSON}" i 
21030 GOSUB 25 

21040 PKINT'ODOWN.WHITE,SPACE02IES IST KEI 
NE 2IGA - HASTEE 2ISKETTE!" 

21050 PRINT"<r0WN.SPACEJ20LL ES EINE WERDE 
N 7 (J/N>" 

21060 PRINT'‘<;D0WN0"MUS 
21070 GOSUB 15:IF AS=''N"THEN 15000 
21080 IF ASo "J'THEN 21070 
21090 OPEN 6,8,3."DIRECTORY.L,"tCHRS(76) 
21092 PRINTBl5,"P"CHRS< 3 JCHR9(144)CHRS(0)C 
HRS(1):PBINTW6.CHR$(255) 

21095 CLOSE 6 

21096 ZZ9:Z*:GOSUB 55:Z9=ZZSdF A>1 AND A-. 
>50 THEN CLOSE B^GOSUB BdGOTO 15000 

21100 S%=l:GOSUB 23000:CLOSE 5dF A>1 THEN 

15000 

21101 IF LEFTS(F2S,1)<>"£,"THEN 21108 

21102 PRINT"CDOWN,GREEN.RVSON3";:ZS=" UNZÜ 
LSSSIGER 2ILETYP !!CSPACE.EVOFF>"=00 
SUB 25 

21103 GOSUB 15:IF ASO" "THEN 21103 

21104 GOTO 21000 

21108 IF NRS=0 THEN 21120 
21110 PRINTÖ1S,''S:'>FIS 
21120 OPEN 9.8,2,FIS<-''.S.W" 

21130 PRINTttg,LIS(0):PRINT»9,LIS(1):PRINT» 
9,S*;PRINT»9.NM = PRINTH9.AS 
21140 FOR 1=1 TO NM;FOR J=0 TO 2:PRINT»9,H 
$!J.I):NEXT:NEXT 
21150 PRINT»9,RRX 

21160 FOR 1=1 TO AS*RR%=FOR J=1 TO NM/2:PR 
INTB9,H(I,J):PRINTS9,G(I,J):NEXT:NEX 
T 

21170 FOR 1=1 TO AS*RR%:PRINT»9,DS(I)!NEXT 
21180 FOR 1=1 TO AS*RRX;FOR J=1 TO NM/2 
21190 PRINT«9,E*(I,J) 

21200 NEXT:NEXT 
21210 FOR 1=1 TO NM 

21220 PRINT»9,PP!I):PRINT»9,MPtI);PRINTH9, 
PT(I);PRINT»9.MT(I) 

21230 PRINT»9.GW(I):PRINT»9.UN<I):PRINTB9, 
VL(I):PR1NT»9.PL(I) 

21240 NEXT:PRINT»9,PL<0) 

21250 CLOSE 9:G0SUB 55 
21260 IF VAL(FK$)':>0 THEN 15000 
21270 DAS="":FOR 1=0 TO 2 
21280 DAS=DA$>aiGHTS("0''(-MIDS(STRS(PEEK(25 
2+I>),2),2) 

21290 IF I'.>2 THEN DA*=DAä!»", " 

21300 NEXT 

21310 TM$="‘':FOR 1=52286 TO 52293 
21315 IF 1=52288 OR 1=52291 THEN TMS=TM9+" 
••■:NEXT 

21320 TM$=TM9+MID9(STR9(PEEK(I>-48).2,1> 
21330 NEXT 

21335 IF PEEK!52295)=1 THEN 21338 

21336 IF VAL(TM9)=12 THEN 21340 

21337 TM9=MID9(STR9(VAL(TM$)tl2).2>»MID9<T 
MS. 3) 

21336 OPEN 7,8,4,"DIRECTORY" 


'•009;- 

<163' 

. 112 ;- 


■••073.. 

.245> 

<199> 

<188> 


^126' 

<191- 

<1655 

< 065 ^ 

. 153 ;' 

<n8> 

(1405 

<008.' 

<113> 

<082> 

< 220 > 

<034> 

<029> 

<213> 

•;1S6' 

<036-.' 

••073> 


•.155.> 

<062> 


<2295 


<048i, 


<032> 

<231> 

<008> 

<196> 

<128> 

<090> 

<250> 

<04S> 

<159> 


<224> 

<175> 

•:15e> 

<0475 

<U9> 

<188. 

<0485 

< 200 > 

<255> 

<046> 

<168> 

<034/ 

<004> 

■• 211 > 

<2235 

-. 002 > 

<0635 

<•2225 

< 002 > 

<142> 

<231> 

<207> 

C032> 


21340 IF VAL(NRS)=0 THEN 21380 <059> 

21350 PRINTB15,''P"CHR$(4>CHKS(NE%)CHR$(0>C 

HRSd! <141> 

21360 PRINT»?,"5,"MID$(F2$,2.26)DASMID$(F2S 

.3e,32)TM$ <22a> 

21370 CLOSE 7:G0T0 230 <132> 

21380 NR=0 <03e> 

21390 NE:NR+l:PRINT»15."P'CHRS(4)CHRS(NR)C 

HRS(0)CHR$d> <0SS> 

21400 GET»7,AS;IF AS<>CHRS<255)AND 

THEN 21390 <088> 

21410 PRINTH15, ■'P"CHRS(4)CHRS(NR)CHES(0>CH 

RSd) <028> 

21420 PRINT»?."J, "LEFTS(FIS,12>"C3SPACE>''D 
A9''C2SPACE>"DA$;LEFTS(SPS,22)TM$"C28 
PACEJ'TMS <220> 

21430 CLOSE 7'GOTO 230 <192> 

21999 BEM"===== DIRECTORY F2 =========== <181> 

22000 SX=2:ZS=" ÄIRECTOR YC3SPACE5X 

2 ":QOSUB 23000:GOTO 15000 -.OTU 

22499 REM’'===== DATEI L»SCHEN ========== <0S1> 

22500 ZSs" Ä A T B 1C3SPACBDL » S C H E N 

<042> 

22510 SX=0:aOSUB 23000:IF A>1 THEN CLOSE 5 

'GOTO 15000 <092> 

22520 IF LEFT$(F2S,1)<>"&"THEN PRINT«1S,"S 

:''+FIS <139> 

22530 PRINT»15. ''P"CHR$<3)CHRS(NRX)CHR9(0)C 

HRSd) <043> 

22540 PRINTtt5,"£,"+MID$(F2S,2) <022> 

22550 CLOSE S'GOSUB SS'QOTO 15000 <251> 

22699 REM"=== DIRECTORY VALIDATE ======= <242> 

22700 OPEN 6.8.5."DIRECTORY" <004> 

22710 GOSUB 55;IF A>1 THEN CLOSE S'GOTO 15 

000 <177> 

22720 NR=0'DE=0 <134> 

22730 NR=NR+1:PRINT»15."P"CHRS(5)CHR$(NR)C ’ 

HR$(0)CHRSd) <163> 

22735 INPUTfl8.AS'IF A$=CHRSi255)THEN 22760 <159> 

22737 IF(LEFT$(AS,1>="Ä"0E LEFTS(AS.1>="£," 

)AND DE=0 THEN 22730 <09B> 

22738 IF LEFTS(A$,l) = "Ii,"THEN DB=DE+1:G0T0 

,OS-,22730 <077> 

•2274lfl PR1NTS15. 'P"CHRS(5)CHRS<NR-DE)CHRS(0 

)CHRS(1) <175> 

22750 PRINTHa.AS'GOTO 22730 <104> 

22760 FOR 1=NR-DE TO NR'PRINT»15,"P"CHRS(5 

)CHRS(I)CHRS(0)CHRS d) < 087 > 

22770 PRINT»8,CHR$(255>:NEXT <222> 

22780 CLOSE S'GOTO 15000 <249> 

22999 REM"== DIRECTORY F2 LESEN ======== <218> 

23000 OPEN 5.6.3,"DIRECTORY" <02S> 

23010 ZZS=Z$:GOSUB 55'ZS=ZZ$ <207> 

23020 IF A<>62 THEN 23030 <126> 

23021 PR1NT"CCLR,HHITE.4DOWN>"LIS<0)'PRINT 
"CDOWND■■ MUS: PRINT" C2UP , RVSOND" i ' GOSU 

B 25 <04e> 

23022 PRINT"CWHITE>'':Z$=’'^INE i,IGA - ÜAST 

ER filSKETTE !":GOSUB 25iPRINT <093> 

23023 PRINT"C2DOWND'’MUS'PRINT"C4UP>" i 'GOSU 

B 35'CLOSE S'GOTO 15000 <207> 

23030 IF A>1 THEN CLOSE 5'RETURN <061> 

23040 NR=0'EN=0 <0e3> 

23050 PRINT"CCLE.WHITE.4D0WN>"LIS(0):PRINT 
"CDOWN>’'MUS:PRINT'’<2UP,RVSOND" i 'GOSU 
B 25 <079> 

23052 PRINT"C12D0WND"MUSi <025> 

23053 PRINT"CHOME.eDOWND” <171> 

23056 NR=NRtl :PEINT»15. ''P''CHES(3)CHRS(NR)C 

HE$(0)CHRSd) <221> 

23057 POKE 646,l-{NR/2=INT(NR/2>)'*4 <130> 

23060 INPUT»5,FIS:IF FI$<>CHES(255>THEN 23 

068 <092> 

23065 NR=NR-1'EN=NR:PRINT"CGREEN.DOWN,RVSO 

N,SPACE>£NDE " <ia6> 

23067 GOTO 23060 <229> 

23068 IF DR=3 OR SX<>2 THEN 23070 <0S1> 

23069 PRINT»4."CD0WN>"MIDS(STRS(NE),2)"."C 

HRS d 6)"05"LEFTS(FIS.35)'PRINTB4,"CD 
0WN>"MID$(F1S,36) <195> 

23070 PRINT HID$(STRS(NR),2)"."TAB(4>Fl$iI 

F NR/5<>INT(NR/5)THEN 23056 <045> 

23080 IF SX<>2 THEN 23007 <178> 

23082 GOSUB IS'IF AS="X"THEN CLOSE S'GOTO 

15000 <0S1> 

23083 IF A$="+"THEN 23050 <083> 

23084 IF AS<>"'"THEN 23082 <077> 
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23065 NH:NR-10:IF NR<0 THEN NR=0 <052> 

23086 GOTO 23050 <05S> 

23087 PRINT'’CWHITB.DOWN>''ZU®" ÄUMMER "i^IF 

SXrl THEN PRINT'tBZW. £ILENAME) ”; <117^ 

23083 PRINT"; ";;INPUT«3,NRS;PRINT <060> 

23089 IF NRS="'X''THEN A:2:RETURN <n7> 

23090 IF NRS="+"THEN 23050 <040> 

23100 IF NR$<> "-"THEN 23107 <09B> 

23105 NR:NR-10:IF NR<0 THEN NRr0 <072> 

23106 GOTO 23050 <075> 

23107 IF(ASC(NR4)<4B OR ASC<NRS)>57)AND SX 

= 1 THEN FI* = LjEFT*(NRS*SP$,12) + "£iÄi," 
:RETUEN <087> 

23110 NRX=VAL(NR®) <189> 

23120 IF NEX'il OR NRX>143 OR(NRX>EN AND EN 

<>0)THEN PRINT"'C2UP>"1 :GOTO 23007 <196> 

23125 PRINTN15, "’P"'CHRS<3)CHR$<NRX)CHR*<0)C 

HRS(l) <130> 

23126 INPUTB5,F2S;IF F2$<>CHRS(255)THEN 23 

130 <250> 

23127 ZS="' UNZUL»SSIOE HUMMER ! ■■;PRINT"CD 

OWN,GREEN,RVSON>"i:GOSÜB 25:G0SUB 15 <068> 

23128 IF AS- "" "THEN 23127 <113> 

23129 CLOSE S:A=2iRETURN <031> 

23130 FIS=MIDS(F2$,3,ia) + "iil!li"";RETÜRN <032> 

29999 REH"ss==== NEUE LIGA ============= <007> 

31000 PRINT"CCLE,WHITE.4DOWN3"LI$(0> <166> 

31010 PEINT"'C2DOHN>"MU$ <137> 

31020 2$="" NEU EC3SPACE>i, I 0 A "";PRINT" 

C2UP,RVSON>":;OOSUB 25 <173> 

31030 PRINT TABt5>'"CWHITE>BINGEBEN VON ; "" <171> 

31040 PRINT TAB(7>"CD0HN,GREEN>1) - HAME / 

HAISON"" <218> 

31050 PRINT TAB(7)"CWHITE>2) - llANNSCHAFTS 

NAMEN" <045> 

31060 PRINT TAB(7>"’CGEEEN>3) - SPIELTAG" <120> 
31070 PRINT TAB17)"'CWHITE04) - HATUM'" <144> 

31080 PRINT TAB<7)'"CDOHN,GREEN>5> HAUPTMEN 

t" <023> 

31090 PRINT MUS <013> 

31100 COSOB 15 <128> 

31110 IF A$<"l""OR AS>"5"THEN 31100 <081> 

31120 ON VAL(AS)GOTQ 31130,31350.31570,319 
00,230 

31130 PRINT"<;CLE,6DOWN,GREEN>"TAB(10)LIS<0 

) < 100 > 

31140 INPUT"C2UP,SPACE>SIGAC3SPACE>'" ;LS <081> 
31150 IF LS="'X"THEN 31000 <087> 

31160 LIS(0)=LBFT$(LStSP$<-SPS,39> <132> 

31170 LGS="";FOR J=1 TO 39:B$=MIDS(LIS<0), 

J,l) <249> 

31180 IF B$="S""OR B$=""Ä"THEN LGS=LG$ + C$( 1) 

;QOTO 31235 <001> 

31190 IF BS=-»"OR BS='"H"THEN LGS=LG$vCS{2) 

:GOTO 31235 <146> 

31200 IF B$='’t'"OR B$ = '"A"THEN LG$=LGS+CS(3) 

:GOTO 31235 <149> 

31210 IF B$=""<-"THEN LGS=LG$t"SS'" :GOTO 3123 

5 <19e> 

31220 IF ASC(BSJ>192 AND ASC(BS><229 THEN 

LGS=LG$+CHRS(ASC<B$)-128);GOTO 31235 <011> 
31230 LGS=LG$*B$ <076> 

31235 IF LEN(LG$)>247 THEN J=40 <012> 

31240 NEXT;LIS(1)=LG$ <13e> 

31250 PRINT"'<:2DO«N.WHITE>"TAB<10)SS <201> 

31260 INPUT"CUP,SPACE>HAISON "’iSS;S$=LEFTS 

<SS+SPS,9) <205> 

31270 PRINT"C2DOWN,GREENO"TAB(22)NM <001> 

31280 INPUT"CUP,SPACE>ÄNZAHL MANNSCHAFTEN 

";NM • <140> 

31290 IF NM<3 OR NM>20 THEN 31280 <056> 

31300 ASsNM+(NM/2sINTCNM/2)) <183> 

31302 PRINT""C2DOWN,WHITE,SPACEGStCKRUNDE ( 

?" <242> 

31303 GOSUB 15 <077> 

31304 IF A$=""J"TKEN ERX=2;aOTO 31310 <ie7> 

31305 IF AS=""N"THEN RRX=l;GOTO 31310 <126> 

31306 GOTO 31303 <027> 

31310 PRINT;PRINT;PRINT;GOSÜB 00 <153> 

31320 GOSUB 15;IF AS="'N'"THEN 31130 <123> 

31330 IF AS<>"J'"THEN 31320 <16S> 

31340 GOTO 31000 <0g2> 

31350 PEINT"CCLR,2I)0WN,WHITE0" <036> 

31360 FOR 1=1 TO NM <178> 

31370 POKE 646,l-(I/2=INT<l/2)>*4 <169> 

31380 PRINT TAB(17)MS10,I)TAB!31)'',:," <222> 

31390 PRINT"CUP>'"Z$!I!: ;INPUT'". MANNSCHAFT 


";MS; IF LEFTS(MS, 4> = ''X<3SPACE>"THEN 


31000 <023> 

31400 MS<0.I)=LEFTS(MStSP$,14) <255> 

31420 . . . ..FOR J=1 TO 14 = 

B1S=MIDS(M$(0,I),J,l);B2S=B1$ <133> 

31430 IF B1S = '"@"0R B1$="Ä"’THBN B1S=CS(1>:B 

2S=C$(4):QOTO 31430 <130> 

31440 IF Bl$='"t"OR B1S="H""THEN B1$=CS(21;B 

2$=C$(5);aOTO 31480 <144> 

31450 IF Bl$ = "t"’OR B1$="’1,"THEN B1$=CS(3):B 

2$=CS(6)!aOTO 31480 <033> 

31460 IF B1$="*-"’TKEN B1S="SS" ;GOTO 31480 <097> 

31470 IF ASC(B1S)<193 OR ASC(B1$)>228 THEN 

31480 <026> 

31475 BlS=CHRS(ASC(BlSi-128):B2S=B1S <190> 

31480 MStl,I)=MStl,I)tBl$;M$t2.I)=MS(2.I>+ 

B2S <223> 

31490 NEXT!NEXT:a0SUB 80 <241> 

31530 GOSUB 15 <050> 

31540 IF AS="J""THEN 31000 <130> 

31550 IF AS-"N""THEN 31350 <094> 

31560 GOTO 31530 <154> 

31570 GOSUB 17000;1F STS='"X'"THEN 31000 <011> 

31580 IF AF<1 OE AF>AS THEN 31570 <140> 

31590 ED=ED/RRX <215> 

31690 FOR I=AF TO ED <019> 

31700 PRINT-CCLR, DOWN ,OR£EN>"" <052> 

31710 FOR J=1 TO NM/2;PRINT Z$(J)". ";MS{0 

.J);NEXT <149> 

31720 PRINT"CHOME,2DOWN>"’:!FOR J=INT(NM/2) 
tl TO NM;PRINT TABt 20 )ZS( J >. "'MS(0, 
J);NEXT <251> 

31730 PRINT"CHOME,13DOWN,RVSON,YELLOW>"LEF 
TS(STRS11)t, SPIELTAGC8SPACE}"+SS+S 
PS,39)"CWHITE,RVOFFO" <123> 

31740 FOR K=1 TO NM/2 <099> 

31750 INPUT H$:IF H$:"X'"THEN K=NM/2;I=ED:N 

EXT;NEXT;GOTO 31000 <017> 

31760 H(1,K)=VALCHS1 :IF Hd.KXl OR H(I.K) 

>NM THEN PRINT"<:UPO''i ;GOTO 31750 <070> 

31770 PRINT"CUP>"MS(0,H<I.K) >; :miNT TAB(2 

0):"'E' "i <158> 

31780 INPUT G$:G(I,K)=VAL(GS);IF Gd.KXl 
3ni.ini^*i.i Gd.K)>NM THEN PRINT"CUP0"TAB(22) 

;rGOTO 31780 <072> 

31790 PRINT"CUP>‘";TAB(22);MS(0,ad,K>) <211> 

31800 NEXT;PRINT'" CHOME. 13DOWN. YELLOW.RVSON 
>"TAB<20)"'C3SPACE>ÄORREKT (,2/H)7C3SP 
ACE,RVOFF>'" <143> 

31810 GOSUB 15» <076> 

31820 IF AS = "J''THEN 31850 <18a> 

31830 IF A$ = "N""THEN 31700 <024> 

31840 GOTO 31810 <149> 

31050 IF ERX=1 THEN 31890 <090> 

31860 FOR K=1 TO NM/2 <221> 

31870 Kd<-AS,K)=ad.KJ:Gd+AS,K>=H<I,K) <179> 

31880 NEXT <138> 

31890 NEXT;GOTO 31000 <087> 

31900 PRINT"'CCLR,3DOWN,WHITE,SPACE>£INGABE 

SATUM ;";PRINT <193> 

31910 FOR 1=1 TO AS;PRINT <053> 

31920 POKE 646,l-d/2 = INTd/2J)»4 <211: 

31940 PRINT TAB<29>D$dJ <215> 

31950 PRINT"CUP>""I:dNPUT"CLEPT>. SPIELTAG 
(11INRUNDE)C2SPACE> ' ;DSd);DSd)=LEF 
T$(DSd),10) <150> 

31960 IF RRX=1 THEN 32000 <252> 

31970 PRINT TAB(29!D$d»AS) <201> 

31980 PEINT""CUP>"I+AS; !INPUT"’<:LEFT>. SPIEL 

TAG (ItCKRUNDE) "iD$d+AS) <164> 

31990 DSd+AS>=LEFT$(D$d+AS), 10) <210> 

32000 NEXT <004> 

32010 PRINT;PRINT;PHINT;GOSUB 00 <091> 

32020 GOSUB 15 <032> 

32030 IF A$="N"THEN 31900 <002> 

32040 IF AS<>""J"THEN 32020 <033> 

32050 GOTO 31000 <040: 

63000 »♦*»*«»»*»»j»**»*»***'i.*»»»*i,»*»**» <167> 

63001 **** <002> 

63002 »»♦* LIGA - MASTER V3 V ON ; »*** <172> 

63003 *»** »»♦* <004> 

63004 ***■*****■***■******</*****»**:****»** <171> 

63005 ******* »»*»*»» <253> 


LIsting 2. »Liga-Master V3<< (Fortsetzung) 


65 




SONDERHEFT 23 















SPORT 


C64 


63006 

*»»«*»» FRANK TO ELKE 

»»****» 

<230> 

63007 

*«««««« tEÜ TO NENSTR. 82 


<064> 

6300a 

5880 LUEDENSCHEID 


<187 

63009 

**** 

***» 

<0I0.-- 

63010 

**»* TEL.: 0 23 51 / 2 00 

90 **** 

<076> 

63011 


«»»« 

<012> 

63012 

),IHl1,i,^,it■|,i,ttl|l^*****t:***•*•<^******•$** 

<179> 

Listing 2. (Schiuß) 

9 

64'er 


LIstIng 5. 
Die IRQ-Routine 
sorgt für die Zeit. 
Bitte mit dem MSE 
(Seite 159) 
eingeben / 
Bei Listing 3, 4 
und 5 ist das 


Name i 2 dir cOOO cOSO 


cOOO . 

I 89 

01 

a 2 

5f 

aO 

eO 

20 

bd 

ca 

cooe 

r ff 

a9 

01 

a 2 

08 

aO 

00 

20 

36 

oOlO : 

: ba 

ft 

20 

cO 

ff 

a 2 

01 

20 

43 

ooie . 

1 cd 

ff 

20 

cf 

ft 

20 

cf 

ff 

20 

a020 : 

: 20 

cf 

ff 

20 

cf 

ff 

20 

cf 

49 

c02e : 

1 ff 

aa 

20 

cf 

ff 

a4 

90 

dO 

67 

c030 1 

: 21 

20 

cd 

bd 

a9 

20 

20 

d2 

4e 

C038 : 

1 ff 

20 

of 

ff 

20 

d2 

ff 

c9 

67 

cOdO : 

: 00 

dO 

fd 

a9 

Od 

20 

d2 

ft 

bs 

e04a 1 

1 aS 

Cb 

c9 

3c 

fO 

d2 

c9 

17 

cS 

cOSO 1 

: do 

f6 

20 

cc 

ff 

a9 

01 

20 

ca 

cose 1 

: C3 

ff 

a9 

00 

es 

C6 

60 

24 

de 


Listing 3. Mit der DiR-Routine ein 
schnelles Directory. Bitte mit dem 
MSE (Seite 159) eingeben. 


Name > 3 nml cSOO c5Sl 


csoo 

: a9 

Ob 

aO 

c5 

6d 

le 

03 

8c 

ca 

cSOS 

■ 19 

03 

60 

48 

Ba 

46 

98 

48 

e2 

c510 

: a9 

7f 

ed 

Od 

dd 

20 

bc 

f6 

3e 

c516 

1 20 

el 

ff 

20 

15 

fd 

20 

a3 

36 

c52C 

: fd 

20 

18 

eS 

20 

00 

c5 

20 

49 

cS2S 

; 2d 

c5 

6c 

•02 

aO 

73 

a9 

Ic 

40 

cS30 . 

: aO 

c 2 

8d 

14 

03 

8c 

15 

03 

06 

c53e 

; 58 

a9 

00 

8d 

20 

dO 

8d 

21 

18 

c540 : 

: dO 

a9 

84 

ad 

00 

dd 

a9 

36 

be 

c54e : 

: ad 

18 

dO 

a9 

cc 

ed 

88 

02 

aa 

c550 : 

: ad 

Oe 

de 

09 

80 

Sd 

Oe 

de 

c3 

cSSe ; 

: aO 

OS 

98 

20 

C3 

ff 

ca 

cO 

86 

C560 : 

: Ob 

dO 

f7 

aS 

Cb 

c9 

3f 

fO 

70 

C568 : 

: fa 

aO 

00 

b9 

7a 

c5 

99 

77 

15 

c570 : 

: 02 

cB 

oO 

08 

dO 

fS 

88 

64 

ef 

c57a : 

c6 

60 

90 

47 

cf 

32 

33 

30 

37 

csao ; 

: Od 

00 

ff 

fe 

ff 

00 

ff 

00 

6d 


Listing 4. Schneiler Programmstart 
mit der NMi-Routine. Bitte mit dem 
MSE (Seite 159) eingeben 


erste Zeichen des 
Namens ein 
<SPACE> 


Name 

1 

Irq 




clOO 0452 

olOO 

s 20 

fd 

ae 

20 

9e 

ad 

20 

a3 

ea 

cloe 

1 b6 

86 

14 

84 

15 

c9 

06 

dO 

fO 

cllO 

: 20 

aO 

ff 

cS 

bl 

14 

38 

e9 

Oa 

die 

1 30 

90 

16 

99 

46 

e4 

cO 

05 

al 

cl 20 

1 dO 

fl 

aO 

ff 

c8 

bl 

14 

c9 

Of 

el 28 

! 3a 

bO 

06 

eO 

05 

dO 

f5 

fO 

aS 

el30 

1 15 

de 

ba 

18 

a 2 

Od 

aO 

00 

fS 

cise 

! 20 

Oo 

es 

a9 

bc 

a 2 

48 

65 

la 

Cl40 

1 14 

86 

15 

4c 

a3 

a8 

aO 

ff 

66 

0148 . 

: a2 

DO 

cB 

b9 

46 

c4 

Oa 

Oa 

la 

cl50 

: Oa 

Oa 

Bd 

4c 

c4 

c8 

b9 

46 

52 

ClSS : 

: c4 

Od 

4c 

c4 

9d 

4f 

c4 

es 

SB 

cl60 

: aO 

03 

dO 

e6 

a2 

00 

aO 

Ob 

95 

Cl6S : 

; f8 

bd 

4f 

c4 

c9 

24 

bO 

cl 

af 

Cl70 : 

: C9 

12 

90 

04 

e9 

12 

09 

eo 

3b 

cl76 : 

: C9 

00 

dO 

06 

a9 

12 

09 

80 

87 

Cl80 : 

1 dO 

06 

c9 

80 

dO 

02 

a9 

12 

ba 

Cl88 : 

: 99 

00 

de 

e8 

88 

bd 

4f 

c4 

b3 

cl90 : 

: C9 

60 

bO 

9d 

99 

00 

de 

e6 

48 

0198 : 

: 88 

bd 

4f 

e4 

c9 

60 

bO 

91 

fl 

ClaO : 

: 99 

00 

de 

da 

a9 

00 

8d 

08 

6c 

cla8 : 

: de 

ad 

Oe 

de 

09 

80 

Sd 

Oe 

61 

ClbO : 

: de 

ad 

4f 

C4 

29 

80 

8d 

h7 

Ob 

clbS i 

: C3 

78 

a9 

Ic 

aO 

c2 

ed 

14 

24 

elcO 1 

: 03 

ec 

15 

03 

58 

60 

ad 

Ob 

04 

clc8 : 

de 

ae 

08 

de 

29 

80 

8d 

b8 

d7 

cldO 1 

C3 

ad 

Ob 

de 

ae 

08 

de 

29 

b9 

cldS : 

10 

4a 

4a 

4a 

4b 

20 

40 

c3 

17 

cleO : 

ad 

Ob 

de 

ae 

OB 

de 

29 

Of 

4a 

cleS ! 


29 

16 

ClfO ! 

fO 

4a 

4a 

4a 

4a 

20 

40 

c3 

Of 

clf8 ! 

ad 

Oa 

de 

aa 

08 

de 

29 

Of 

al 

C200 ; 

20 

40 

c3 

60 

ad 

09 

de 

29 

26 

C20e : 

fO 

4a 

4a 

4a 

4a 

20 

40 

o3 

27 

C210 : 

ad 

09 

de 

ae 

08 

de 

29 

Of 

79 

c218 : 

20 

40 

c3 

60 

a5 

fc 

c9 

le 

fb 

C220 : 

90 

07 

69 

11 

aa 

a9 

33 

dO 

17 

C228 I 

la 

C9 

14 

90 

07 

69 

Ib 

aa 

bb 

0230 : 

a9 

32 

dO 

Of 

c9 

Oa 

90 

07 

46 

C238 ; 

69 

25 

aa 

a9 

31 

dO 

04 

69 

90 

C240 I 

30 

a 2 

20 

aO 

16 

20 

43 

C3 

d4 

c24e ; 

aa 

20 

43 

c3 

b9 

2e 

20 

43 

3f 

c2S0 ! 

a3 

aS 

20 

20 

43 

c3 

ad 

fd 

dd 

c2S8 : 

20 

aa 

e3 

bd 

ba 

c3 

20 

43 

47 


c 260 

1 c3 

eB 

bd 

ba 

c3 

c9 

40 

90 

Ob 

c268 

! 07 

e9 

40 

20 

43 

o3 

dO 

fl 

fl 

c270 

: a9 

20 

20 

43 

c3 

a9 

31 

20 

28 

c278 

I 43 

c3 

a9 

39 

20 

43 

c3 

a5 

aS 

c 2 eo 

: fe 

c9 

5a 

90 

08 

38 

e9 

2b 

4a 

0288 

1 aa 

a9 

39 

dO 

06 

38 

a9 

20 

79 

c290 

I aa 

a9 

38 

20 

43 

c3 

ea 

20 

de 

c293 

1 43 

c3 

a9 

20 

oO 

28 

fO 

05 

46 

c2aO 

I 20 

43 

c3 

dO 

f7 

aO 

3e 

20 

2 a 

c2a8 

: c6 

cl 

ad 

be 

c3 

cd 

b7 

e3- 

e2 

c2b0 

1 fO 

03 

20 

4d 

C3 

a9 

2d 

20 

52 

c2be 

: 43 

c3 

20 

ec 

Cl 

a9 

2d 

20 

al 

c2c0 

: 43 

03 

20 

04 

c 2 

a9 

20 

20 

ae 

c 2 ce : 

: 43 

es 

ad 

b7 

e3 

fO 

07 

a9 

82 

e 2 d 0 

1 10 

20 

43 

C3 

dO 

OS 

a9 

01 

17 

c2de : 

: 20 

43 

c3 

a9 

Od 

20 

43 

c3 

26 

c2e0 

; a9 

20 

20 

43 

e3 

co 

SO 

dO 

2f 

c2aB : 

1 f9 

aO 

01 

b9 

30 

c4 

20 

43 

d9 

c 2 f 0 . 

1 C3 

eO 

16 

dO 

f6 

aO 

28 

a9 

Ib 

C2f8 : 

r 20 

20 

43 

c3 

20 

43 

c3 

a9 

fO 

c300 . 

1 7c 

20 

43 

c3 

cO 

3d 

dO 

f9 

03 

c30S : 

1 b9 

20 

20 

43 

c3 

a5 

fb 

8d 

36 

0310 : 

r 00 

cc 

aO 

00 

a9 

03 

20 

48 

62 

0316 : 

r C3 

a9 

01 

20 

48 

c3 

eO 

15 

c4 

O320 ; 

: dO 

19 

a9 

Oa 

20 

48 

c3 

CO 

ea 

c32e : 

: 28 

dO 

f9 

a9 

01 

20 

48 

c3 

26 

o330 : 

: cO 

3d 

dO 

f9 

a9 

Oa 

20 

48 

le 

C338 : 

1 c3 

co 

4f 

dO 

f9 

4c 

31 

ea 

e6 

C340 : 

> 18 

69 

30 

99 

00 

cc 

cS 

60 

96 

c348 1 

: 99 

00 

de 

cB 

60 

ad 

Ob 

de 

8a 

C350 : 

1 29 

80 

8d 

b7 

o3 

ae 

08 

de 

9f 

c350 1 

: ad 

be 

c3 

fO 

01 

60 

a6 

fd 

la 

c360 : 

: eO 

02 

dO 

03 

20 

ec 

c3 

20 

8c 

c36e 1 

: aa 

c3 

bd 

b9 

c3 

ae 

88 

c4 

c7 

c370 : 

; fc 

90 

03 

e6 

fc 

60 

aS 

fd 

b7 

c370 i 

: C9 

Oc 

bO 

07 

e6 

fd 

a2 

01 

3f 

C380 : 

: 86 

fc 

60 

a 2 

01 

86 

fc 

86 

36 

C388 : 

: fd 

e6 

fe 

60 

aS 

f e 

38 

e9 

Cb 

c390 1 

: 4c 

38 

e9 

04 

fO 

04 

30 

Oa 

f7 

c39e : 

. 10 

f7 

a9 

Id 

8d 

c3 

c3 

a6 

05 

c3a0 1 

: fd 

60 

a9 

Ic 

8d 

c3 

c3 

a6 

Of 

c3ae : 

fd 

60 

ca 

fO 

09 

a9 

00 

18 

b4 

c3bO 1 

: 69 

Oa 

ca 

dO. fa 

aa 

60 

00 

71 

C3b8 : 

. 00 

If 

4a 

41 

4e 

55 

41 

52 

3c 

c3c0 ! 

: 20 

20 

20 

Ic 

46 

45 

42 

52 

bB 

c3c8 ! 

55 

41 

52 

20 

20 

If 

4d 

40 

07 

c3d0 ! 

. 52 

5a 

20 

20 

20 

20 

20 

le 

Ib 

c3d8 : 

41 

50 

52 

49 

4c 

20 

20 

20 

86 

c3e0 : 

i 20 

If 

4d 

41 

49 

20 

20 

20 

62 

c3e8 : 

20 

20 

20 

le 

4a 

55 

4a 

49 

ff 

C3f0 ; 

20 

20 

20 

20 

20 

If 

4a 

55 

fb 

c3f8 : 

4c 

49 

20 

20 

20 

20 

20 

If 

b7 

c400 ! 

41 

55 

47 

55 

53 

54 

20 

20 

01 

C40e : 

20 

le 

53 

45 

50 

54 

45 

4d 

Oc 

C410 1 

42 

45 

52 

If 

4f 

4b 

54 

4f 

ad 

C418 ; 

42 

45 

32 

20 

20 

le 

4e 

4f 

60 

e420 : 

56 

45 

4d 

42 

45 

52 

20 

If 

5a 

c428 ; 

44 

45 

Sa 

45 

4d 

42 

45 

52 

ef 

c430 : 

20 

20 

6a 

67 

20 

4c 

49 

47 

00 

c43e : 

41 

20 

2d 

20 

4d 

41 

53 

54 

ae 

c440 : 

45 

52 

20 

7e 

7f 

20 

00 

00 

7f 

0448 : 

00 

00 

00 

00 

00 

00 

00 

00 

49 

C450 1 

00 

QO 

00 

8d 

21 

c5 

ca 

dO 

Of 


5 DIM Z(127.7) 

<2S4> 

270 PRINT»2,CHR»<2lI,J)); 

053 .• 


10 POKE 56334,PEEK(56334)AND 254 

<165' 

280 NEXT;NEXT 

029; 


20 POKE 1,PEEK(1)AND 251 

'.195.- 

290 FOR 1=0 TO 127;POKE 1024,1*128 

132. 


30 REAB A:FOR 1=55296 TO 55296*1023 STEP 8 

<250> 

300 FOR J:0 TO 7 

123; 


32 ZE=!I-55296)/8:P0KE 1024,2E 

:119. 

310 PRINTB2,CHRS(25S-3(I.J))i 

105. 


36 IF I=A- TUEN GOSUB 200:REAI) A:QOTO 65 

<003; 

320 NEXT:NEXT 

069; 


40 FOR J=0 TO 7 

<117> 

340 CLOSE 2 

105: 


50 Z(2E,J>=PEEK!I+J> 

■-066 ■ 

32000 DATA 55296.36,00,3C,06,3E,66,3E,00 

174 


60 NEXT 

<070> 

32030 DATA 55536,00,86.00,66,66,66.SE,00 

204-' 


65 NEXT 

<075. 

32031 DATA 55544.IC,36,66,6C.66,66,6G.60 

023: 


68 POKE 1,PEEK(1)0R 4:P0KE 56334,PEEK(Se33 
4)0R 1 

<219> 

32042 DATA 55632.00,66.00,3C.66,66,3C,00 
32064 DATA 55808,06,3C‘, 66,66.68,66,3C‘, 00 

051. 

01S> 


70 GOTO 230 

<054% 

32094 DATA 56046.66,00,66,66.66,66,30,00 

171> 


80 : 

<056> 

32095 DATA 56056,00,68,3C,FF,3C,66,00,00 

206; 


90 : 

<066; 

32103 DATA 56120,00.F0,FC,FE,FC.F0,00,00 

091; 


200 FOR J=0 TO 7;READ AS 

<132> 

32105 DATA 56136.00.00.18,00,00.18,00,00 

0C6.- 


205 A=ASC(A$)-48:IF A>9 THEN A=A-7 

<25S> 

32106 DATA 56144,00,7F, 1F, 0F, IF. 7F, 00 ,'00 

023> 


206 B=ASC(RIGHTS(A*,l)!-4a:IF B’9 THEN B:B 
-7 

<181;- 

32109 DATA 56168,07,00,I9,IB,IB.19,0C, 

32122 DATA 56272,C3,18.3C,66,7E,66,«6,00 - 

060> 

V5,3' 


210 Z<2E,J>=A*'16*B 

•.149; 

32124 DATA 56288,00,00,00■FF,FF,00,00.00 

074;' 


220 NEXT:RETURN 

<159; 

32125 DATA 56296,E0,30.D8,10,18,D6,30,E0 

1W0;- 


221 ! 

<197; 

32126 DATA 56304,00,IF,3?.7F.3F,1F,00,00 

ogs.- 


222 : 

<198; 

32127 DATA 56312,00,FE.FS.F0,F8,FE,00.00 

202; 


223 : 

<199; 

32128 DATA -1 

004; 


230 OPEN 2,8,2,"ZEICHEN,P,W" 

240 PRINTÖ2.CHRS(0)CHRS<224)i 

150> 

:056> 

Listing 6. »ZEiCHEN AENDERN« impiementiert Umiaute 

U 

Q) 

250 FOR 1=0 TO 127:POKE 1024,1 

<253. 

und Sonderzeichen In den Zeichensatz des C64. 


(0 

260 FOR J=0 TO 7 

<083; 

Bitte mit dem Checksummer (Seite 159) eingeben. 


Q 
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STATIK 


Statik 64 -1^ C 64 
als Baumeister 


Komplizierte statische Berechnungen gehören 
mit Statik 64 endgültig der Vergangenheit an. 
Überlassen Sie ab sofort diese aufwendige Aibeit 
dem Computer. 

Das Programm »Statik 64« (Listlng 1), hat es sich zur Auf¬ 
gabe gemacht, die Stahlbewehrung einer Stahlbetonstütze 
zu bemessen, soweit es sich um ein unverschiebbares sta¬ 
tisches System handelt und die Schlankheit der Stütze klei¬ 
ner 70 Ist. Das Programm berücksichtigt die Im Stahlbau 
verwendete DIN (Deutsche Industrie Norm) 1045. 


Um die Stahlelnlage bemessen zu können, muß die 
Beanspruchung durch Kräfte, hervorgerufen durch Lasten 
(Eigengewicht, Deckenlasten, etc.) und Momente, ermittelt 
werden. Man nennt diese Größen im Bauwesen auch 
Schnittkräfte. 

Da Beton eine sehr hohe Druckfestigkeit besitzt, aber nur 
sehr geringe Zugkräfte aufnehmen kann, wird der Beton in 
Verbund mit Stahl eingebaut. Der Stahl hat die Aufgabe, die 
angreifenden Zugkrähe aufzunehmen. 

Bedienungsanleitung 


Obergeschoß 



Stahlbetondecke 
Schnitt A-A 



Abmeasungen b x d (cm) 

I-1 

•o 

_L I_ I 

untere Elnepannung 


Nachdem Statik 64 geladen und mit RUN gestartet ist, wird 
die Basic-Erweiterung »Erw. 1« (Listlng 2) nachgeladen. 
Dann erscheint die Titelseite am Bildschirm. Hier erhält 
man eine Zusammenfassung der Berechnungskriterien. 
Nach wenigen Sekunden verschwindet die Titelseite und 
man gelangt zum ersten Eingabemenü. Zuerst werden die 
Baustoffe der Stahlbetonstütze eingegeben: 

Beton: Folgende Betone stehen zur Auswahl: BIS, B25, 
B35, B45, B55 (üblich 625). Nachdem man die zweistellige 
Größe der Betonsorte eingegeben hat, kommt man zur 
Stahleingabe. 

Stahleingabe: Hier stehen drei Stahlsorten zur Auswahl: 

1. BSt 220/340 

2. BSt 420/500 

3. BSt 500/550 




Bild 1. Die zur Berechnung der Knicklänge notwendigen 
Daten auf einen Bück 

Es wird, wenn erwünscht, die Knicklänge der zu bearbei¬ 
tenden Stütze ermittelt und gegebenenfalls ein Knlck- 
sicherheits-Nachweis (nach Euler) durchgeführt (Bild 1). 


Grundlagen: 


Um die Betonstahlsorte festzulegen, gibt man eine der 
drei Kennziffern ein. 

Danach muß der Querschnitt der Stütze festgelegt wer¬ 
den. DerQuerschnitt umfaßt folgende Angaben: Breite »b«, 
Dicke »d« und die Betondeckung »c«. Es ist darauf zu ach¬ 
ten, daß die Eingaben in den richtigen Maßeinheiten (hier 
cm) eingegeben werden, da es sonst zu falschen Ergeb¬ 
nissen kommt. 

Beantwortet man die Fragen nach Breite und Dicke mit 
Null, so errechnet das Programm selbständig die Stützen¬ 
abmessungen. 


Um die Arbeit des Programmes verstehen zu können,, muß. 
zuerst der Aufbau einer Stahlbetonstütze geklärt werden. 

Eine Stahlbetonstütze besteht, wie der Name scihon 
sagt, aus Beton und Stahl. 

Übersicht der Baustoffe: 

Betonbezeichnungen: B15, B25, B35, B45, B55 

Je größer die Zahl, desto höher die Festigkeit des Betons 
(üblich B25). 

Baustahlbezelchnungen : Bst 220/340(1), Bst 420/500 
(III), Bst-500/550(IV) 

Die Zahlen geben auch hier die Festigkeit des Baustoffes 
an (üblich Bst 420/500). 

Wenn man eine fertige Stütze auf der Baustelle sieht, so 
fallen einem sofort die Abmessungen der Stütze auf: Breite 
»b« mal Dicke »d« (Bild 2). 

Wie aus Bild 2 hervorgeht, bestimmt die Größe »c« die 
Betondeckung der Stahleinlage. Diese Größe ist sehr wich¬ 
tig, da der Baustahl vor Korrosion geschützt werden muß. 

Die eigentliche Stahlbewehrung besteht aus Stabstahl, 
der in genormten Größen im Handel vorhanden ist. 


Stabstahl 

809«! 



Bogelabstand sbo 


Schnitt A-A 


sba 


sbo 


Bagel 

>=6mm 



12mm 


Bild 2. Aufbau einer fertigen Stahlbetonstütze 
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Sollen die Abmessungen ermittelt werden, so muß man 
zwei Kriterien beachten. 

1, Zuerst wird nach dem Bewehrungsanteil der Stütze. In 
Prozent, gefragt. Dies ist das Verhältnis Stützenquer- 
schnittfiäche zur Stabstahlfläche. 

Übersicht der Prozentangaben: 

0,8% ■ 1,5 % a wirtschaftlich 

1,5% ■ 3,0 % = stärker bewehrt 

3,0% - 6,0 % = stark bewehrt 

2. Eine Stützenabmessung muß vorgegeben werden, 
wenn die Stütze einen Oeckenunterzug abfangen soll. In 
diesem Fall wird mit »j« geantwortet. Bel der Eingabe von 
»n« erhält die Stütze eine quadratische Abmessung. 

Nachdem der Querschnitt eingegeben wurde, gelangt 
man zur Schnitlkrafteingabe. Hier ist zu beachten, daß alle 
Eingaben vorzeichengerecht eingesetzt werden, das heißt 
Normalkraft »N«. Falls sie als Druckkraft eingesetzt wird, ist 
ein negatives Vorzeichen voranzustellen. 

Eine Stütze Ist meistens an beiden Stützenenden einge¬ 
spannt, da sie zwischen zwei Ebenen (Etagen) die Lasten 
übertragen soll (Bild 1). 

Aus der Statik geht der Momentenverlauf der Stütze her¬ 
vor. Dieser ist auch für die Berechnungen der Stütze erfor¬ 
derlich und muß eingegeben werden. Die Eingabe lautet 
hierfür »M2« und »M1«. Bei der Eingabe ist zu beachten, daß 
für»M2« immer das betragsmäßig größte Moment einzuset- 
zen ist. Auch hier ist die Vorzeichenregelung zu beachten. 

Handelt es sich bei der zu bearbeitenden Stütze um eine 
innenliegende (Bild 3), so greifen keine Momente an, also 
sind »M2« und »Ml« Null. Nachdem alle Eingaben vollstän¬ 
dig sind, werden sie auf ihre Richtigkeit überprüft. 

Der nächste Programmpunkt ist der Knicksicherheits¬ 
nachweis nach »Euler«. Wie bereits erwähnt, ist eine Stütze 
fast immer beidseitig eingespannt. Man unterscheidet zwK- 
schen starr und gelenkig gelagerten Stützen (Bild 4). 

Hat man die Frage nach dem Knicksicherheitsnachweis 
mit »j« beantwortet, so gelangt man zur Übersicht der Stüt¬ 
zensysteme. 

Man hat drei Systeme zur Auswahl: 

System 1: beidseitig gelenkig 

System 2: beidseitig starr 

System 3: starr und gelenkig 

Nun kann es Vorkommen, daß ein Stützensystem direkt 


innenliegende 


oueaenllegende 

Stotze 


Stotze 










zwischen zwei Systemen liegt. Dieses Problem löst das 
Programm. Man sieht auf der Bildschirmseite unten das 
Eingabefeld »Wahl des Systems«. 

Ist das System eindeutig bestimmbar, so wird als erste 
Eingabe die Ziffer (1,2 oder 3) des Systems eingegeben und 
als zweite eine Null. Liegt das System zwischen zwei Stüt¬ 
zensystemen, so werden die entsprechenden Stützen- 
System-Ziffern eingegeben. 

Die Frage nach dem Knicksicherheitsnachweis ist erfor¬ 
derlich, um ein Ausknicken der Stützen zu vermeiden. 


Obersicht der Systeme: 



beidseitig 

gelenkig 



gelenkig 

Storr 



beidseitig 

starr 


1.0 


0,7 


0,5 


Beiwerte ß 


Bild 3. Unterschied zwischen innen- und außenliegender 
Stütze 


Bild 4. Für den Knicksicherheitsnachweis werden Angaben 
über die Lagerung der Stütze benötigt 

Dazu müssen die Knicklänge, der Beiwert »Beta« und die 
Schlankheit »Lambda« ermittelt werden. Dies ist erforder¬ 
lich, da eine lange dünnbemessene Stütze mehr zum Aus¬ 
knicken neigt als eine kurze dickbemessene. 

Die Knicklänge »Sk« läßt sich aus der Länge (Höhe) der 
Stütze und dem Beiwert »Beta« berechnen. Den Beiwert 
haben wir eben durch die Wahl des Stützensystems 
bestimmt. 

Formel; Sk = h x B 

Als nächstes wird die Schlankheit der Stütze berechnet. 
Das Programm bearbeitet Stützen bis zu einer Schlankheit 
»Lambda« kleiner 70. Die Schlankheit einer Stütze Ist das 
Verhältnis zu der Knicklänge »Sk«, zum Ttägheitsradlus »I«. 
Die Erklärung zu allen im Programm verwendeten Formeln 
würde den Rahmen der Ausführungen sprengen. 

Berechnung der Stützen 


Es sei darauf hingewiesen, daß alle verwendeten Formeln 
in Handbüchern, die sich auf den Fachbereich des Stahlbe¬ 
tonbaues beziehen, nachgeschlagen werden können. 
Ermittlung der Bewehrung: 

Sind alle Eingaben abgeschlossen, erfolgt die eigentli¬ 
che Berechnung. Man unterscheidet zwischen Regelbe¬ 
messung Teil 1 und Teil 2. 

Übersicht der Bemessung bei der Regelbemessung Teil 
1 : 

— gebundene Bemessung 

— statisch erforderlicher Querschnitt 

— freie Bemessung 
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Die Regelbemessung Teil 2 tritt in Kraft, wenn bei der zu 
bearbeitenden Stahlbetonstütze außer Normalkräften 
auch noch Momente angreifen. Bei dieser Art der Regelbe¬ 
messung muß zusätzlich noch eine Eingabe erfolgen. 
Hierzu ist jedoch noch ein Diagramm erforderlich, das 
Momenten-Normalkraft-Diagramm (Bild 5). 

Es würde den Rahmen der Ausführungen sprengen, 
wenn alle Diagramme aufgeführt werden, sie sind aus der 
einschlägigen Literatur zu entnehmen. 



Bild 5. Das Momentan-Normalkraft-Diagramm zur Regel¬ 
bemessung 


Das Programm berechnet die Eingangswerte »m« und 
»n«, um den Wert W01a:W02 ablesen zu können. Falls die 
Werte »m« und »n« für ein Abgreifen aus dem Diagramm 
unbrauchbar sind, werden sie automatisch mit einem Fak¬ 
tor der bei fünf und zehn liegt, erhöht. Es muß anstelle von 
»W01=W02«, der statisch erforderliche Querschnitt ermit¬ 
telt werden. Hierzu ist die Eingabe »n« nötig. Damit wäredi'e 
Regelbemessung abgeschlossen. Aus den nun erstellten 
Werten läßt sich die erforderliche Bewehrung errechnen. 

Die erforderliche Bewehrung (»As«) setzt sich aus der 
Größe (Durchmesser) des Stabstahls, der Anzahl der Stäbe 
und der Größe (Durchmesser) der Bügel zusammen. 
Zusätzlich werden die Abstände »sbü« und »sbü'« der 
Bügel beziehungsweise der Zwischenbügel berechnet. 

Damit sind alle Ergebnisse ermittelt. Nachdem die 
Lösungen auf dem Bildschirm angezeigt wurden, erfolgt 
die Ausgabe nach Wunsch auf Drucker, Ist dieser nicht 
angeschlossen, wird akustisch darauf hingewiesen. 


Als Drucker wurde in diesem Programm der MPS 801 
gewählt. Da im Programmausdruck Sonderzeichen ver¬ 
wendet werden, müssen diese erst auf den jeweiligen 
Drucker angepaßt werden (Näheres siehe Programmbe¬ 
schreibung), 

Programmbesfhreibung 


Beschreibung der Baslc-Erwelterung »Erw.1« 

Das Programm »Erw. 1« liegt im Speicher ab Adresse 
COOO-C3AO und benötigt so keinen Basic-Speicherplatz. 

Aufschlüsselung der einzelnen Teilprogramme : 

COOO - C14E (49152-49486) Cursor-Darstellung 
C150 - C254 (49488-49748) Ein-/Ausgaberoutine 
C258 • C3A0 (49752-50080) Formatierte Ausgabe 

Gerätekonfiguration 

Das Programm Ist lauffähig auf dem C64 mit Floppy 
1541. Da das Programm die Erweiterung »Erw.1« nachlädt, 
muß man. wenn mit Datasette gearbeitet wird, die Geräte¬ 
adresse von acht auf eins ändern. 

14 IF 1=1 THEN LOAD "ERW.1" ,8,1 (Disketten-Version) 

14 IF 1=1 THEN LOAD "ERW.1",1,1 (Datasetten-Verslon) 

Oruckeranpassung 

Für die Datenausgabe wird der Drucker MPS 801 benötigt. 
Die Ausgabe auf den Drucker verwendet Sonderzeichen 
(siehe Programmlisting, Zeile 4065-4115). 

Um diese Routine auch an andere Drucker anzupassen, 
sind diese für die vom Drucker verwendete Matrix umzu¬ 
schreiben, Der MPS 801 arbeitet mit einer 6 x 
7-Punktma1rix (siehe Handbuch MPS 801, Seite 26). Ist der 
verwefiJjte Drucker nicht in der Lage, die Sonderzeichen 
darzustellen, so kann man auch auf diese notfalls verzich¬ 
ten, (Ingo Tack/rf) 


Aufschlüsselung des Programms 

Zeile 

Funktion 

0001.2-00014 

Nachladen der Basic-Erweiterung 
»Erw.l« 

00100-00130 

Titelbild 

00152-00194 

Eingabemenü (Aufrufen der einzel¬ 
nen Unterprogramme) 

00195-00290 

Berechnung der Knicklänge »Sk« 

00291-00326 

Berechnung der Schlankheit der 

Stütze 

00327-00365 

Berechnung des Momentes »Mo« 

00370-00395 

Berechnung der Zusatzausmitte 

00396-00495 

Berechnung Max »M« 

00496-00690 

Regelbemessung Teil 1 

00691-00850 

Regelbemessung Teil 2 

01991-02990 

Berechnung der Bewehrung der 

Stütze 

02991-03990 

Ausgabe auf Bildschirm 

03991-04500 

Ausgabe auf Drucker MPS 801 

04990-05510 

Eingabemenü 

09951-10130 

Unterprogrammbibliothek 

10591-10699 

Alarmton 

10700-10713 

Literaturverzeichnis 
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1 REM- 

<152> 

229 L-B/2 

<033> 

2 REM - 8TADI VI.1 

<1BB> 

230 GOSUB 10000 

<210> 

3 REM - 

<124> 

235 SYS AUS,5,5, "KR JLDRREKTURWERT KTA FU 


4 REM - (C) BY INGO TACK 

<114> 

ER DAS" 

<246> 

S REM - 4&30 BOCHUM b 

<233> 

240 SYS AUS,S,7,"SYSTEM LAUTET i<WHITE>"p9 


b REM - 

<157> 

PRINT L 

<155> 

7 1 

<239> 

241 PRINT"<YELLOW>" 

<149> 

12 l-I+l 

<251> 

245 SYS AUS,5,10,"HIE LAUTET DIE INICKLAEN 


14 IF I»1 THEN LOAD"ERW.l'',S,l 

<050> 

GE Ht2BPACE>i:M] " 

<221> 

90 I 

<066> 
j 4 

250 SYS AUS,15,12, "£K - "piSYS EIN,S,E2*,A 
«9SK-VAL(A4) 

2SS 8K-8K«L 


/ 1 (iL.1 1 

92 REM - TITELBILD 

\ ^ 
<104> 

\ 1 

<175> 

260 SYS AUS,5,15,"SIE JINICKLAENQE BEZOGEN 
AUF DAG" 

99 » 

S 1 OT / 

<075> 

<227> 

IBO PQKE 53200,0 tPOKE 53201,0 iPRINT CHR* 


265 SYS AU8,S,17,"SYSTEM BETRAEGT iCWHITEI 


(14 )CHR*<147>| 

<003> 

"piPRINT BKp"M" 

<156> 

101 PRINT" <VELLDW>r'uFaR Z-I TQ SGiPRINT" 


290 1 

<012> 

&"iiNEXT 

<026> 

291 REM - 

<159> 

102 PRINT"f£<RVS0N,3SPACE>aTAHLGET0NBEME8S 


292 REM - BERECHNUNG DER SCHLANKHEIT - 

<21G> 

UNO VON £TUETZEN4:38PACE,RVaFF}c:"t 

<066> 

293 REM - 

<161> 

103 PRINT"={RVSON,5BPACE>t1IT EINER SCHLANK 


294 I 

<016> 

HEIT <- 70I68PACE,RVOFF>="| 

<000> 

300 Ll-SK/(0.2B9*(B/100)> 

<051> 

104 PRINT"P"jiFaR Z-1 TO 3B«PRINT"i"p i NEXT 

<032> 

305 L2-8K/(0.2e9*<D/100)> 

<066> 

105 PRINT"ü={3aPACE,GREEN>aAB ERQBRAMM BER 


306 IF L1>L2 THEN L-Li 

<1B3> 

ECHNET FOLGENDE t48PACE,YELLOW>="p 

<1877 

307 IF L2>-Ll THEN L-L2 

<064> 

106 PRINT"="8PC (12) " {QREENiaRUCKQLIEDERs"8 


309 IF AB8(M2)-B AND AGS<Ml)-0 THEN GL-4Sg 


PC(13>"{YELL0W>a"p 

<230> 

GOTO 315 

<14B> 

107 PRINT"S"piFOR Z-1 TO SBjPRINT"*" p « NEXT 

<055> 

309 IF L> 70 THEN 5500 

<135> 

108 PRINT"fct3SPACE,GREEN>- ZENTRISCH BELA 


310 GL-45-25*Ml/M2 

<11B> 

STETE aTUETEZEN<4SPACE,YELLDW>="p 

<223> 

315 IF L1>GL THEN L-Ll9D2-BiGOT0 340 

<043> 

109 PRINT'’="SPC(ll)''{QREEN)OHNE JSNICKQEFAH 


320 IF L2>BL THEN L-L29D2-DiGOTO 340 

<0e4> 

R"BPC (11)" <YELLOW>=" ; 

<11B> 

321 IF Fl-1 THEN 2000 

<254> 

110 PRINT"=<36PACE,GREEN>-<2GPACE>BEI KAN 


325 GOTO S00IREM REGELBEMEG8UNG 

<072> 

ePRUCHUNG DURCH 2IEGE-{2SPACE,YELLOM>s 


326 : 

<048> 

•• ; 

<0B3> 

327 REM - 

<19S> 

111 PRINT"="8PC<7)"<BREEN}M0MENTE MIT liORM 


328 REM - BERECHNUNG VON MO 

<063> 

ALKRAFT"SPC(B)"{YELLOW>="p 

<174> 

329 REM - 

<197> 

112 PRINT”="SPC(30)"=<2aPACE,SREEN>aiE 


330 E 

<052> 

ICKSICHERHEIT WIRD NACH DEN{3SPACE,YEL 


340 IF ABS(M2)-0 AND ABS(Ml)-0 THEN M0=0:G 


Law>="p 

<147> 

OTO 355 

<02B> 

113 PRINT"3<7SPACE,GREEN,SPACE>SJL£R EAELL 


345 IF ABS(M2)<>0 AND ABS(Ml>-0 THEN M0-0. 


EN{2SPACE>ERMITTELT"SPC<6) " <YELLOW>="; 

<053> 

6*ABS(M2)tG0T0 355 

<193> 

114 PRINT"=<3SPACE>(BEI UNVERSCHIEBLICHEN 

i. 

• 350F»i *0 . 65*M2+0 . 35*M1 

<097> 

SYSTEMEN){3SPACEJ="? 

<241> 

355 E0=M0/ABB(N)9VG-E0/(D2/1O0> 

<045> 

115 PRINT"="SPC(38)"=a<4EPACE}aiE KRECHNU 


360 IF VG>-3.S THEN 5600 

<141> 

N6EN ERFOLGEN NACH{4SPACE>="; 

<187> 

361 IF Fl-1 AND K8N -0 THEN 2000 

<065> 

116 PRINT"="SPC(15)"aLH 1045"SPC<15)"="s 

<092> 

362 IF KSN =0 THEN 500 

<00B> 

117 PRINT"'5";;F0R Z-1 TO 3a!PRINT"i" ; s NEXT 

<065> 

365 1 

<0B7> 

110 PRINT"n'="SPC<Il>"<CYAN>(C) BY INGO lAC 


370 REM - 

<23B> 

K"SPC(11)"{YELLOW>=“p 

<164> 

371 REM - BERECHNUNG ZUSATZAUSMITTE - 

<070> 

119 PR1NT"=”SPC(14)"CCYAN>2ULI 19B6''SPC(I5 


372 REM - 

<240> 

>" <YELLOW>=;"f 

<19B> 

373 I 

<095> 

120 PRINT"5"|sF0R 2-1 TO 3BlPRINT"S"psNEXT 

<100> 

380 IF VB<»0 OR VB<0.3 THEN F- D2*((L-20)/ 


121 PRINT"5r"l 

<221> 

1O0)*SQR(0.10+VB>tGOTO 400 

<207> 

130 FOR W-1 TO 500B:NEXT M 

<137> 

385 IF VB<=0.3 OR VB<2.5 THEN F- D2*((L-20 


ISO GOSUB 9960 

<250> 

l/lBOliGOTO 400 

<024> 

151 1 

<127> 

390 IF VB<-2.5 OR VB<3.5 THEN F- D2*((L-20 


152 REM - 

<0ie> 

)/160)*(3.5-VG) 

<126> 

153 REM - EINQABEMENUE 

<12B> 

<020> 

395 1 

TO« DCM 

<U7> 

/nrmn> 

rtcn 

4 W 144-1 • 


ISS t 

<131> 

397 REM - BERECHNUNG MAX M 

<0B3> 

156 GOSUB 10000 

<136> 

398 REM - 

<01O> 

160 GOSUB 5000 9 REM BAUSTOFFEINGABE 

<093> 

399 1 

<121> 

163 GOSUB 10000 

<143> 

400 M-M0+ABS<N)*(F/100) 

<137> 

165 GOaUB 5100 iREM QUERSCHNITT 

<204> 

495 9 

<217> 

170 GOSUB 10000 

<1SB> 

496 REM - 

<108> 

175 GOSUB 5200 iREM SCHNITTKRAEFTE 

<013> 

497 REM - REQELBEMESSUNB TEIL 1 

<1B7> 

181 GOTO 5400 iREM EINQABEFEHLER 

<101> 

498 REM - 

<110> 

182 GOSUB 10000 

<162> 

499 9 

<221> 

185 G08UB 5300 iREN FRAGE AUF K8N 

<025> 

500 IF M0O0 OR M1O0 DR M2O0 OR MO0 


190 IF K8N-0 THEN M0-ABS(M2)tD2-D9GOTO 355 

<047> 

THEN 700 9REM REGELBEMEBBUNG TEIL 2 

<B33> 

194 i 

<170> 

501 1 

505 REM •«* GEBUNDENE BEMEGSUNQ «*• 

506 1 

<Z23> 

<131> 

<228> 

L liUM 

200 REM - BERECHNUNG SK 

<153> 

510 NB-B*D*(<BR/10)/2.1) 

SIS Na-AB8(N>-NB 

<236> 

<215> 

«ul ncn — 

202 : 

<06/> 

<178> 

205 IF A2O0 THEN 225 

<15B> 

520 IF NS<0 THEN 540 

<147> 

210 IF Al-1 THEN L-SliGDTD 230 

<066> 

525 EA-NS/((BS/10>/2.1) 

<t09> 

215 IF Al-2 THEN L-S29GOTO 230 

<143> 

530 A1-EA/2IGOTO 2000 

<81S> 

220 IF Al-3 THEN L-BSiQOTO 230 

<220> 

531 9 

<2SS> 

225 1F(A1-1 AND A2-2) OR (Al-2 AND A2-l> T 


535 REM *** ETAT. ERF. QUERSCHNITT *** 

<071> 

HEN S-Sl+S2i6DT0 229 

<124> 

536 : 

<B04> 

226 IF(Al-2 AND A2-3) OR (Al-3 AND A2-2> T 


540 IF BS-220 THEN GR- ( (BR/10)/2.1)/.00G+1 


HEN S-S2-fB3iG0Ta 229 

<0B9> 

0.59GOTD 550 

<23Z> 

227 IF(A1=1 AND A2»3> DR (Al-3 AND A2-1) T 


545 BR-((BR/10)/2.t)/.00B+20 

<179> 

HEN S-Sl+G3tG0TQ 229 

<152> 

550 EA-ABS(N)/BR 

<174> 
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STATIK 


55S Al=EA/2iFl»liQ0TD ZBBa <116> 

557 I <0Z5> 

SSB REM FREIE BEMESSUNG •** <aS6> 

559 t <027> 

560 BOSUB 10000 <032> 

565 SYS AU5,5,6,"^WEHRUNG8ANTE1L i" <025> 

570 SYS AUS .5,7," Y ’ r ' r ' T ' nrf 11 T t f V V t " <175> 

574 SYS AUS,5,9 ,'‘0,8 X - 1,5 X<2SPACE}WIR 

TSCHAFTLICH" <177> 

576 SYS AUS,5,11,"1,5 X - 3,0 X<28PACE>BTA 

ERKER BEWEHRT" <1Z0> 

57B SYS AU5,5,13,''3,0 X - 6,0 X<28PACE>STA 

RK GEWEHRT" <074> 

590 SYS AU8,S,17,"£EWEHRUNQ8ANTEIL MUE ->" 

I <0B6> 

595 SYS EIN,3,E2*,A«tP-VAL(A»)/100 <t93> 

600 BI-(<BR/10)/2.1>+P*((BS/I0>/2.1> <003> 

605 A6>ABS(N)/QI <149> 

610 GUSUB 10000 <BBZ> 

615 SYS AUB,S,7,"A0LL EIN IJASS DES AUERSEH 

ITTES" <001> 

620 SYS AU8,G,9,"VORGESEBEN WERDEN (J/N>? 


<153> 


B16 SYS AUS,20,15,”N X 1 >"iiPRINT USRINl) 

,6,3 <163> 

817 SYS AUS, 5,16,"M X 5 -"|!PRINT USR<M2> 

,6,3 <235> 

GIB SYS AUS,20,16,"N X 5 -"|iPRINT U8R(N2> 

,6,3 <179> 

819 SYS AUS, 5,17,"M X10 -"laPRINT U8R(M3» 

,6,3 <179> 

820 SYS AUS,20,17,"N X10 >"|iPRINT U8R(N31 

.6,3 <065> 

025 SYS AUB,S,19,"ilUB DIAGRAMM N« - .<123> 

830 SYS EIN,5,E2*,A« <124> 

B32 Nl-VAL(A*)aNl-AGG(Nl> <227> 

B3S W-.004*<(B8/10>/1.7S> <B97> 

S40 Bl«(ABe(N)».001>/(Nl»<D/100)*BR> <19B> 

B4S Al>i.004*D»Bl»100 <149> 

847 EA-2*A1 <22S> 

850 GOTO 2000 <036> 

990 I <Z04> 

1991 REM- <245> 

1992 REM - BERECHNUNG BEWEHRUNG - <076> 

1993 REM- <247> 

1994 I <192> 


625 SYS AUS,5,13,"liIRD<28PACE}EIN - N ' EI 
NGEGEBEN, BQ" 

630 SYS AUS,S,1S,"WIRD DIE SBMESSUNG DER £ 
TUETZE" 

635 SYS AU8,12,17,"<2BPACE>QUADRATISCH !!" 
640 GET A«alF A«->’'"THEN 640 
645 IF A»»"N"THEN 670 
650 IF A*<>''J"THEN 640 

655 SYS AUB,5,20,"fiEITENLAENBE CCMJ B = 

660 SYS EIN,5,E2«,A« 

665 G°VAL(A«) 

667 D-AB/B 

669 GOTO 675 

670 G-8QR(AB)iD=B 

675 B=INT<B4-.5) jD-INT<D+.5) 

676 CR=<(GR/1B>/2.1)/.008+20 

6S0 EA°^P*AB:A1°'EA/2;F1'>2980T0 1B2 

690 s 

691 REM - 

692 REH - REBELBEMESSUNQ TEIL 2 

693 REM - 

694 1 

695 REM «•* BESTIMMUNG VOM MAX M 

700 IF ABS(M2)>M THEN MX-ABS(M2>sGOTO 710 
705 MX»AB9<M) 

710 D2>(D1*2>/D 
715 GOSUB 10000 

720 SYS AUB,7,5,"aiEQUNG MIT ilORMALKRAFT U 
ND " 

722 SYS AUS,12,6,"KLEINER flUSMITTE" 

723 SYS AUS,5,8,"ES IST DAS JJOMENTEN-hPRMA 
UKRAFT" 

725 SYS AUS,10,9,"aiAQRAMM Dl/D -t5PACE,WH 
iTE>"r 

727 PRINT UBR(D2),S,2 

730 SYS AUS,15,10,"{YELLOW}ZU BENUTZEN." 
735 N1«-<N *.001>/(<B*D*.0e0n'»BR) 

740 M1-(MX*.0B1>/<(B*O<D*.000001)*BR) 

745 IF ABS<M1)<0.045 THEN S00 
750 IF ABB(N1)<0.1 THEN 800 
755 SYS AUS,5,12,"M -<8PACE,WHITE>"jiPRINT 
U8R<M1),6,3«PRINT"{YELLOW!" 

760 SYS AUS,5,14,"N -<BPACE,WHITE>"jiPRINT 
USR<N1>,6,3iPRINT"{YELLOW)" 

765 SYS AUS,5,16,"SITTE ENTNEHMEN £IE AUS 
DEM" 

770 SYS AUB,B,lB,"aiAGRAMM il01»JiB2 - "j 
775 SYS EIN,5,E2*,A* 

777 W=VAL(A*) 

779 MUE-W/((BS/IB)/1.7S) 

780 Al-MUE»B*DcEA-2*Al 
785 GOTO 2000 

790 I 

791 REM *** STAT. ERF. QUERSCHNITT ##* 

792 I 

G00 BVG AU8,S,12,"jlIE ÜERTE M UND N SIND U 
NQUENST-" 

802 SYS AUS,5,13,"IQ. «>>{WHITE,SPACE}8TAT. 

ERF. ÄUERGCHNITT"sPRINT" 

Bi0 M2-Ml*5tN2-Nl*5tM3-Ml*10!N3-NI*10 
815 BYS AUS, 5,15,"M X 1 -"jiPRINT USR(Ml) 
,6,3 


<195> 

<066> 

<14Z> 

<166> 

<013> 

<033> 

<19a> 

< 2 Ba> 

<039) 

<045> 

<143> 

< 200 > 

<062> 

<054> 

<124> 

<15a> 

<192> 
<051> 
<162> 
<057> 
<229> 
<150> 
<170> 
<1B7> 

<140> 
<0Z5> 

<1B6> 

<103> 
<255> 
<025> 
<16S> 
<141> 
<I65> 
<249> 

<ilB> 

<227> 

<23B> 
<219> 
<069> 
<237> 
<24B> 
<124> 
<227> 
<e04> 
<073> 
<006> 

<12S> 

<087> 
<207> 

<226> 


2000 IF 8<-40 AND O<>40 THEN ZA-4iGOTQ 204 
5 

2001 IF 8<«40 THEN Zl-2 iGOTO 2018 

2002 IF D<°40 THEN Z2-Z iGOTO 2005 

2003 i 
2005 Z«1 
2010 Z>Z+1 

2015 IF<B/ZK-30 THEN Zl-Z+liQDTO 2017 

2016 GOTO 2010 

2017 IF Z2O0 THEN 2030 

2018 Z-l 

2019 Z-Z+1 

2020 IFCD/ZX^SO THEN Z2>iZ+l9G0T0 2030 
2025 BOTO 2019 

2030 ZA‘><Zl+Z2)*2iZA«ZA-4 
2035 i 

2042 REM «•« BEST. ERF. AS 

2043 : 

2045 FOR DS=1.2 TO 1.6 STEP.2 
C>.'2050vHu.-UB 2S00sAT=ZA*8A 
2055 IF AT>»EA THEN 2600 
2060 NEXT 

2065 DB»2.0:8OSUB 2500: AT=ZA*&As IF AT>’>EA 
THEN 2600 

2070 D8.>2.5:GDSUB 2500: AT°.ZA*SAt IF AT>>EA 
THEN 2600 

2075 D8..2.S:C05UB 2500: AT=ZA*8A: IF AT>>EA 
THEN 2600 

2080 ZA=ZA+2:Q0Ta 2045 

2490 : 

2491 REM •*« BER. KREISFLAECHE **• 

2492 t 

2500 8A>(l«08*DB>/4iRETURN 

2590 I 

2591 REM--- 


BEMESSUNG BUEGEL 


2592 REM - 

2593 REM - 

2594 : 

2600 IF D8>1.2 GR DS-1.4 OR D8-16 THEN BU- 
6:GOTO 2620 

2605 IF D8-2.0 OR DS-2.5 THEN BU- BiGOTO 2 
620 

2610 BU-10 

2620 Cl-12«DBiOINT(Cl)lC2-2*Cl 
2700 GOTO 3000 

2990 : 

2991 REM - 

2992 REM - AUSGABE AUF BILDSCHIRM 

2993 REM - 

2994 1 

3000 GOBUB 10000 

3005 BYS AU8,S,4,"£INBABEWERTE i" 

3006 SYS Aua,5,5,"rrrrmTTrnTr" 

3010 BYB AU8,5,6,"^UST0FFE i" 

3011 BYB AUS,5,7,"-" 

3015 IF BS»220 THEN Bl»-"a£T 220/340"iS»-" 

n i' 

3016 IF 88=420 THEN Bl*-"a&T 420/500":8#-" 
J-tl " 


<077> 

<224> 

<231> 

< 201 > 

•:244> 

<044> 

<043> 

< 210 > 

<11S> 

< 001 > 

<053> 

<13B> 

<037> 

<096> 

<233> 

<069> 

<241> 

<013> 

<253> 

<042> 

<038> 

<106> 

<241> 

< 120 > 

< 101 > 

<1S0> 

<072> 

<182> 

<166> 

<026> 

<0B3> 

<169> 

<0a5> 

<030> 

<194> 

<069> 

<0B6> 

<062> 

<116> 

<172> 

<229> 

<03G> 

<231> 

<176> 

<ia6> 

<BS0> 

<232> 

<203> 

<235> 

<136> 

<104> 


LIstIng 1. Statische Berechnungen sind für Stadl 1.1 kein 
Problem. Verwenden Sie zur Eingabe bitte den Check¬ 
summer (Seite 159). 
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3017 IF B5=500 THEN 500/550"sS*=" 

ü" 

3020 SYS ÄUS.S.B, "aETDN a"|:PRINT BE 
3025 SYS ftUB,5,9 ."STflHU ";sPRINT Bl* 

3030 SYS AUS,5,ll."aUERSCHNITT i" 

3031 SYS AUS,5,12,"-'• 

3035 B2»*'" CCM3"iB3*-" tKM3"iB4#=" CKllMJ"t 
B7*»" tCM23":B0*-"CMH3" 

3040 SYS AUS,5,13,"B<2SPACEJ» "jiPRINT UBR 
<B) ,S,2 mPRINT B2* 

3041 SYS AUS,5,14,"D<25PACE>- "jjPRINT UBR 
(D>,S,2)iPRINT B2S 

3042 SYS AUS,S,1S,"C{2SPAC:E>x "(iPRINT UBR 
(Dl),e,2|iPRINT B2« 

3050 SYS AUS,5,17,"a:HNITTKRAEFTE i" 

3051 SYS AUS,5,18,"-“ 

3052 SYS AUS,5,19,"Ü<2SPACE>- "|«PRINT U8R 
<N),8,2|iPRINT B3« 

3058 SYS AUS,5,20,"02 - "mPRINT USRCED.B 
,2jlPRINT B4* 

3056 SYS AUS,5,21,"01 - "iiPRINT UBR(E2>,0 
,2 mPRINT B4* 

3057 SYS AUS,12,23,"<WHITE>< WEITER MIT £- 

>" 

3058 WAIT 653,2 

3060 IF KSNOl THEN 3500 

3061 QOeUB 10000 

3065 SYS AUS,12,4,"HJO ERFORDERLICH <!" 

3066 SYS AUS,5,6,"GRENZ £AMDAC4SPACE>‘’ "|| 
PRINT U8R(BL>,2,0 

3067 SYS AUS,5,7,"<6SPACE>iAMDA<4SPACE>- " 
JiPRINT USR( L),2,0 

3072 B6»-" IMl" 

3075 SYS AUS,5,ll,''0NICKLAENBE OK ■" "jlPRI 
NT USR(SK),6,2 (iPRINT B6» 

3000 SYS AUS,5,14,"ODIISSPACE)";SPRINT USR 
(M0),6,2;iPRINT B4« 

3081 SYS AUS,5,17,"aJSATZAUSMITTEI3SPRCE>" 
jiPRINT USR<F ),6,2jiPRINT B2* 

3085 SYS AUS,5,20,"MAX n<10SPACE>- ";iPRIN 
T USR<M) ,6,2;iPRINT G4* 

3007 SYS AUS,12,23,"tWHITE>< WEITER MIT £- 
>" 

3090 WAIT 653,2 
3500 QOSUB 10000 

3505 SYS AUS,S,4,"0AHL DER OEMEHRUNG :” 
3510 SYS AUS,5,5,"TTT7TTTT7T7777TrrTTT" 
3520 SYS AUS,5,7,"ERF.<7SPACE>flB = "jiPRIN 
T UBR(EA>,6,2jB7* 

3525 SYS AUS,5,9,"GEW. BEWEHRUNG i" 

3526 SYS AUS,5,10,"-" 

3530 SYS AUS,3,ll,”<WHITE,3BPACE>"iZA;S*i" 
DS"";DS*10|BS*iPRINT"lYELLDWl" 

3535 SYS AUB,5,13,"V0RH.<6SPACE}flS - "||PR 
INT U8R(AT>,6,2|B7* 

3545 SYS AUB,S,17,"SJEQELGEME5UN6 i" 

3550 SYS AUS,5,18,"-" 

3552 SYS AUS,5,19,"1|UEGEL DSBUt3SPACE)- "j 
BUiBO« 

3553 SYS AUS,5,21,"6BU - "jiPRlNT U8R<C1), 
2,0;B2«;"<2SPACE>SBU' ■ 

3555 PRINT USR(C2),2,0;B2* 

3560 SYS AUa,12,23,"<WHITE}< WEITER MIT fi- 
>" 

3565 WAIT 653,2 
3570 AS-AT 

3500 IF FlOl THEN 35B5 
3SB1 ZN-A8»0R 
3582 GOTO 3605 
3585 IF 102 THEN 3600 

3556 ZN-AB*QR+(BB/2.1>/10*A8 
3587 GOTO 3605 

3600 ZN-D*B*((BR/10)/2. I)+Aa*( (B3/10>/2.1> 
3605 MUE-IAS/(B«D)>*100 
3610 GOSUB 10000 

3615 8Y8 AU8,5,S,"2ULAE88I0E KLASTUNG i" 

3620 SYS AUE,5,6,"TTTTTrr?TTnTTTnTmT" 

3621 SYS AUB,5,9,"ZUL. O- "jiPRlNT USRCZN 
),a,2|B3« 

3625 SYS AUS,5,12,”0EWEHRUN08GEHALT i" 

3630 SYS AU5.5,13." m ' ffririrr - fTTTTYT ' r " 

3635 SYS AU8,5,16,"flUE<45PACE>» "jiPRINT U 
SR<MUE),B,2|" 1X1" 

3640 SYS AUS,12,23,"tWHlTEX WEITER MIT £= 
>" 

3645 WAIT 653,2 


<aBS> 

<243> 

<245> 

<235> 

<063> 

<1SS> 

<05l> 

<1S4> 

<033> 

<Z52> 

< 022 > 

<2S3> 

<BS6> 

<126> 

<092> 

<224> 

<BS2> 

<247> 

<0S2> 

<0B9> 

<0B7> 

<046> 

<21l> 

<249> 

<209> 

<133> 

<124> 
<002 > 
<170> 
<027> 
<144> 

<114> 

<I42> 

<213> 

< 012 > 

<130> 

<035> 

<013> 

<032> 

<154> 

<132> 

<0a7> 

<223> 

<Z19> 

<240> 

<090> 

<141> 

<132> 

<242> 

<14B> 

<106> 

<067> 

<034> 

<095> 

<0a2> 

<229> 

<ISl> 

<116> 

<21S> 

< 169> 
<049> 


3650 

3655 

3660 

3665 

3670 

3675 

3660 

3990 

3991 

3992 

3993 

3994 
4000 

4005 

4010 

4015 

4020 

4050 

4055 

4056 

4064 

4065 

4066 
406B 
4075 
407B 
40B0 
4062 
4065 
4095 
4100 
4105 
4110 
4115 
4120 
4122 

412/ 

4130 

4132 

4134 

4135 

4136 
4140 

4142 

4144 

4145 
4147 


4150 

4152 

4156 

4160 

4166 


4167 

416B 

4170 

4175 

4176 

4160 

41B2 

41B3 

41B4 

4185 


4186 

4137 

4190 


GOSUB 10000 

SYS AUS,5,10,"SOLLEN DIE £RGEBNIS8E A 
UF EINEM" 

SYS AUS,6,12,"£RUCKER<28PACE>AU8BEGEB 
EN<2SPACE>WERDEN 7" 

QET A*iIF A*-""THEN 3665 
IF A*“"J"THEN 4000 
IF A*<>"N"THEN 3665 
iCLRiGOTO 150 

t 

REM- 

REM - DRUCKERAUSGABE MP8 801 
REM- 

OPEN 4,4iPOKE 768,185iPRINT#4iCLOSE 4 
iPOKE 768,139 
IF STO-12B THEN 4050 
GOSUB 10600 

SYS AUS,7,17,"<RED>aBUCKER BITTE EINS 
CHALTEN ’!tYELLOW>" 

FOR W-1 TO lOOBiNEXTiGOTO 4000 
OPEN 1,4,7 

PRINT41,CHR*(14)CHR*(16>"0BäTAHLBETON 
8EM8E8SUNG : STUETZEN" 

PRINT#1,CHR* <15)CHR*(16)"23(BEI UNVER 
BCHIEBLICHEN SYSTEMEN)" 

REM *•« SONDERZEICHEN •*• 

I 

REM LAMDA 

DATA 225,154,132,136,240,126 

REM DURCHMESSER 
DATA 156,162,255,162,156,128 
1 

FOR I-l TD 6 

READ XiSl*~Sl*+CHR*{X)iNEXT I 
FDR I-l TO 6 

READ Xi62*=S2*->-CHR«(X)!NEXT I 
GOSUB 10000 

SYS AUS,5,5, "fOSITIDNS-ilR. I ”j 
SYS EIN,4,E2«,A*tPO-VAL(A*) 

-"YS AUS,5,7,"£0SITI0N{65PACE>t "j 
aYS EIN,20,E3#,P# 
PRINT*1,CHR*(10]CHR*(10)CHR*<10) 
PRINT(H,"{3SPACE>£DSITIDNS-aR. i ";P0 
;"<7BPACE >£DSITIDN C3SPACE > i "j P* 
PRINT(H,CHR#(10) 

PRINT#1, " <3SPACEJ^UST0FFE i" 

PRINT#1 /' <3SPACE>£ETaN I<2SPACE>i";BE 
i"I6SPACEI£TAHL i "jBl* 

PRINT#1 

PRINT«1,"C3SPAC£>£UERSCHNITT i" 
PRINT#! ," C3SPACE>TrrnTTTTnTT" 
PRINT#!,"<3SPACE>B - ";UBR(B) ,8,2; B2» 
I"<5SPACE>"j"D<2SPACE>- "jUSR(D),B,2j 
B2«;"<SBPACE}"| 

PRINT#I," C<2SPACE>- "jUSR(Dl),B,2|B2 
* 

PR1NT#1 

PR1NT#1,"C3BPACE>fiCHNITTKRAEFTE i" 
PR1NT#1," t3SPACE> VtmfTnTntfft " 
PRINT#l,"{3SPACE>li - "; USR (N) ,6,2; B3* 
j"<5SPACE>"|"132 - "jUSR(El),e,2;B4*j" 
<58PACE>"; 

PRINT#l,"m - "lUSRiEZ),B,2tB4» 
PR1NT#1,CHR»(10> 

IF KSNOl THEN 4300 

PR I NT# 1. CHR* (16) " 1SJINICK81CHERHEIT8NA 
CHWEIS IST ERFORDERLICH !•" 
PRINT#l,CHR*(lö) " IS TTTITT T TT fl TV ft IV V 

PRINT*1,"{3SPACE>£RENZ - "; 
PRINT#l,CHR*(8)ai*| 

PRINT#1,CHR*(15);UBR(QL),2,0;"tSSPACE 
>dUl>{3SPACE>V0RH. "CHR*(e)Sl«| 

PRINT#!,CHR*(15)" • "|U8R(L),2,0 
PRINT«! ,CHR* (10) " <3SPACE>jg4ICKLAENBE< 
2SPACE}£K - "|UGR(SK>,6,2;B6*}CHR*(10 
) 

PRINT#!,"<3SPACE>flD - "|UBR(M0>,6,2;B 
4*;"<3BPACE>'’| 

PRINT#1,"ZUSATZAUSMITTE F - "jUSRlF), 

6,2|82*i 

PRINT#l,"t2SPACE>MAX fl - "jUSR(M),6,2 


<074> 

<250> 

<091> 

<231> 

<1B6> 

<033> 

<0S0> 

<1S6> 

<Z13> 

< 201 > 

<215> 

<160> 

< 022 > 

<231> 

<116> 

<047> 

<00B> 

<229> 

<103> 

<143> 

<230> 

<240> 

<232> 

<016> 

<116> 

<244> 

<093> 

< 011 > 

<251> 

<00Z> 

<117> 

<014> 

<19S> 

<B31> 

<0S1> 

<O60> 

<056> 

<135> 

<B68> 

<243> 

<01S> 

< 010 > 

<213> 

<131> 

<0S7> 

< 200 > 

<I28> 


<216> 

<218> 

<067> 

<162> 

<209> 


<223> 

<206> 

<049> 

<166> 

<064> 

< 102 > 

<059> 

<16e> 

<239> 

<232> 


<190> 

<077> 

<B0B> 
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STATIK 


iB4» <I97> 

4195 PRINT#1 <11B> 

4300 PRINTHt,CHR«<14)CHR*<l&)''17HAHL DER £ 

EWEHRUNQ i" <B43> 

4305 PRINT41,CHR*(16>"17TTTrTTriTT!TrnTTT 

TT''CHR*<15>CHR*(10) <B41> 

4310 PRINT#l,"t3SPRCE>ERF.{7SPACE>flS ■ "|U 

SR<EA),6,2|B7* <204> 

4320 PRINTttl <235> 

4325 PRINT*!,"{3SPACEM3EM. BEWEHRUNG i" <170> 

4S2A PRINT»! . " <33PACE> T ' f r f1f Tt 'I'I Y T Iirft " <119> 

4330 PRINTttl,CHR*<14)"<12SPACE}"]ZAi" "|8« 

I"<2SPACE>"CHR«(8>S2*t <234> 

4331 PRINT*1,CHR«(14)" D8«10|6a*CHR*(1S> 

CHR*<10) <054> 

4335 PRINT#l,"t3SPACE>V0RH.<6BPACE>aS - "| 

UBRCAT).6,2jB7* <249> 

4340 PRINT*I,CHR»(10> <221> 

4345 PRINT#l."<'3BPACE>aUEQELBEMEBBUNQ i" <il4> 

4346 PR1NT*1,'' C3BPACE? T T T T TT ' ITrV ^'T Ty^ ^ tT ’ <252> 

4350 PRINTH1,"<36PACE>£UEGEL "CHR*(G>SZ«| <094> 

4351 PRINT»! ,CHR» <151 " <101> 

4360 PRINT#!,"{3SPACE>8BU<4SPACE>- ''}USR(C 

1),2,0|G2Cs"<58PACE>SBU‘<4SPACE)- "|U 
SR<C2>,2,0|B2« 

4365 PRINT»! 

4570 PRINT*1,"{3BPACE>JULAESSIGE JELABTUNQ 

I " ^ 

TT" 

4375 PRINT»! <3BPACE>ZUL, IJ = •'|USR<ZN),B 
,2:B34CHR»<!B) 

43B0 PRINT»!,"<3SPACE>KWEHRUNGSBEHALT j" 

43fl2 PRINT»!,"<3SPACE>MUE<4SPACE>= "|UBR<M 
UE},B,2|" CXI" 

4500 FOR W=1 TD 2000:NEXTiCLR:GOTO 150 

4990 REM - 

4991 REM - EINGABEMENUE 

4992 REM - 

3000 SYB AUS,5,7,"»^USTaFFE 


"TTTtTTTTtTT" 

"KT0N<6SPAC;E}: 


£" !;SYS E 


5040 

3040 

5040 

5040 


“> M.T 220/340" 

-> £ST 420/500" 

■> ^T 500/330" 

I "iiBYS EIN ,2,E2« 


5010 SYS AUS,S,B, 

5020 SYS AUS,5,9, 

IN,2,E2«,A« 

5025 BE=VAL<A4) 

5030 IF BE=-15 DR BE=25 DR BE=35 ÜR BE=45 D 
R BE=55 THEN 5032 

5031 GOTO 5020 

5032 IF BE=15 THEN BRoI0.5:GOTO 

5033 IF BE=Z5 THEN Bn=17.5lGaTD 

5034 IF BE=35 THEN BR=23 tGDTO 

5035 IF BE=45 THEN BR=Z7 :BOTÜ 

5036 IF BE-SS THEN BR=30 
5040 SYS AUS,5,11,"KT0NSTABSTAHL 
5030 SYS AUS,5,12,•" 

5055 SYS AUB,5,13,"<!> 

5060 SYS AUS,S,14,"<2> 

5070 GVS AUB,5,15,"<3> 

S0B0 SYS AU8,5,17,"2BT 

.A* 

50SS B6-VAL<A*) 

3006 IF BS-1 THEN BB^ZZO;RETURN 
5090 IF BS"Z THEN B0-420IRETURN 

5095 IF BS-3 THEN BB-S00:RETURN 

5096 GOTO S0B0 

5100 BY8 AUB,5,7."BJERSCHNITTEINGABE i" 
5110 SYS AUS.5,a," n n T' t ' n 'T Tt ' nTi ' n ' t ' f T" 
5120 SYS AUS,5,9,"fflEITE CCMllZBPACEIB > " 
liSYB EIN,5,E2S,A* 

5125 B"VAL(A*) 

5130 SYS AUS,S,i0,"£ICKE(2SPACE>CCM3{2SPAC 
EID •• "llBYB EIN,S,E2*,AC 
5135 D>VAL(A«) 

5140 BVS AUB,5,12,"£ETaND£CKUNG i" 

5154 SYS AUS, S. 13." T T'T'T'T TI T' T T f T T T" 

5155 SYS AUS,S,14,"£TA8DURCHME8SER <•■ 12MM 

->C-1,0CM" 

5156 SYS AUa,5,lS,"fiTABDURCHMES8ER M-ISMM 

->C-1,SCM" 

5157 SYB AUS.S,16,"£TABDURCHME8SER 20-22MM 

->C-2,0CM" 

5156 SYS AUS,S,17,"£TABDURCHMESSER 25-2BMM 
->C-2,5CM" 

5159 SYS AUS,5,1B,"£TABDURCHMESSER >= 2BMM 

=>C=3,0CM" 

5160 SYS AUS,5,20,"KTONDECKUNB<4SPACE>C 


<253> 

<026> 

<216> 

<142> 

<I70> 

<150> 

<003> 

<229> 

<0Z9> 

<196> 

<132> 

<19a> 

<163> 

<160>. 

<03B> 

<253> 

<060> 

<241> 

<208> 

<241> 

<Z34> 

<I72> 

<229> 

<143> 

<2ZI> 

<053> 

<17B> 

<1B0> 

<07B> 
< 169> 
<047> 
<131> 
<176> 
<243> 
<07B> 
<226> 

<226> 

<ia3> 

<246> 

< 201 > 

<0B2> 

<193> 

<1S4> 

<152> 

<031> 

< 212 > 

<14S> 


CM3<2SPACE>= "si 
5165 SYS EIN,5,E2«,A$ 

5170 D1‘>VAL(A«) 

5175 RETURN 

5200 SYS AUB,5,6,"äCHNITTKRAEFTE :" 

5210 BVS AUS,5.7,’' TttHTtt<nnVYr ' 

5215 SYS AUB,5,0,"H IST ALS DRUCKKRAFTtSPA 
CE,RED>NEBAT1V"1PRINT"fVELLDWT" 

5217 SYS AUS,12,9."EINZUSETZEN 1!" 

3220 SYS AU9,5,ll,"tlDRMALKRAFT K CKÜJ - "j 
■SYS EIN,7,E2»,A« 

S22S N>UAL<A») 

5230 SYS AUS.S,13,"EINGABE DER gNDMGMENTE 

I " 

5231 BVS AUS ,5,14," TtTTtTtlt TT fYT f t! f H Y ' y T T 
T" 

5232 SYS AUS,S,l5,"aDMENTE VDRZEICHENGEREC 
HT EINGEBEN!" 

5235 SYS AUB,10,l7,"<RED>=U2a > süls !!<VE 
LLOW>" 

3240 SYB AUS,5,19,"a2{2BPACE>CKlSMI - "mSY 
S EIN,7,E2*,A* 

5245 M2-VAL(A*»«E1«MZ 

5250 SYS AUB,5,2l,"ai<ZBPACE>CKliMl - •'j i SY 
8 EIN,7,EZ*,A« 

5255 Ml-VAL(A*)iE2«Ml 
5260 RETURN 

5300 SYS AUS,3,11,"£DLL EIN JSNICK8ICHERHEI 
TSNACHWEIS" 

5310 8YS AUS,6,13,"DURCHGEFUEHRT WERDEN (J 
/N> ?" 

5320 GET A»«1F A*-""THEN 5320 
5325 IF A*="J’'THEN KSN=liG08UB 10050:RETUR 
N 

5330 IF A*»"N"THEN KSN=0|RETURN 
5340 QDTD 5320 

5400 IF BO0 AND DO0 THEN 182 
5405 GOTO 560 iREM FREIE BEMESSUNG 
5500 6DSUB 106001GDSUB 10000 
5502 SYS AUS,5,12,"^RECHNUNG WURDE WEGEN 
FEHLER-" 

,33B5^'’INT"TDDWN,6SPACE>HAFTE EINGABEN ABG 
' 't^^RDCHEN I I " 

5510 FOR W=1 TD 3000:NEXT:RUN 150 
5600 GDSUB 1B000:GOSUB 10600 
5610 SYS AUS,6,11,"^RECHNUNGEN MUESSEN MI 
T DEM" 

5612 SYS AUS,9,13,"KH-ÜERFAHREN ERMITTELT" 
5614 SYS AUS,15,15,"WERDEN !!" 

5616 GDTD 5510 

9950 t 

9951 REM - 

9952 REM - 

9953 REM - 

: 


UNTERPRDGRAMMBIBLIOTHEK 


PRDGRAMMVORBEREITUNG 




«*• 


9954 

9955 REM »** 

9956 : 

9960 REM CURSOR NEU SETZTEN 

9961 SYS 49152,100 
9963 REM *** PRINT-AT / INPUT 
9965 EIN ■=494BB : AUS- 49712 

9967 REM PRINT-USING *•« 

9969 a*49752lPDKE 78S,a-2S6*INT(B/256> iPOK 
E 766,8/256 

9970 I 

99B0 El»-"ABCDEFBHIJKLMNaPDRSTUVWXYZ" 

9981 E2»»''+-1234567890." 

9982 E3«-F14.i-E2«.»"naDJEFaKlJjajUiaj>JlX8TUVHX 
ü" 

9983 E4*-"0123'' 

9990 S-0:RETURN 

9992 REM - 

9993 REM - BlLDaCHlRMBEITENAUFBAU 

9994 REM - 

9995 : 

10000 PRINT CHR«(14 )CHR*(147)| 

10002 PRINT"{YELLaW}K"liFDR Z-1 TO 38:PRIN 
T"i"|:NEXT 

1000A PRINT‘'?'={4SPACE>STAHLBETQNBEMESSUNQ 
: äTUETZENt4BPACE>="j 

10006 PRINT"s<48PACE>BEI UNVERSCHIEBLICHEN 
SYSTEMENI4SPACE>="j 


Listing 1. »Stadl 1.1» (Fortsetzung) 


<255> 

<141> 

<247> 

<153> 

<203> 

<223> 

<224> 

<239> 

<156> 

<07S> 

<233> 

<152> 

< 221 > 

<216> 

< 002 > 

<0BS> 

<174> 

<230> 

<23a> 

<136> 

<096> 

<226> 

<171> 

<162> 

<BBe> 

<143> 

<094> 

<O01> 

<224> 

< 121 > 

<226> 

<B0S> 

<104> 

<24a> 

<140> 

< 110 > 

<01B> 

<075> 

<107> 

<077> 

< 022 > 

<2S1> 

<024> 

<137> 

<062> 

<236> 

<233> 

<0a9> 

<18Z> 

<038> 

< 0 ai> 

<162> 

<191> 

<171> 

<035> 

<118> 

<14S> 

< 120 > 

<B65> 

<04S> 

<024> 

<Z13> 

<026> 
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STATIK 


C64 


100QB PRINT'-y'MFOR Z“1 TO 3esPRINT”Ä'‘| tNE 
XTlPRINT"7" 

10032 iRETURN 

10040 I 

10041 REM - 

10042 REH - KNICKSICHERHEIT8NACHME15 - 

10043 REM - SCHflUBILD 

10044 REM - 

10045 I 

10050 PRINT CHR*<147>s 

10052 PRINT" lYELLOWIB-'iiFOR 2-1 TO SBiPRIN 
T"ft"|iNEXT 

1O0S4 PRINT''?c:<46PACE>ATAHLBET0NBEMES8UNQ 
« aTUETZEN{4SPACE>s"| 

10056 PRINT"s{48PACE>BEl UNVERSCHIEBLICHEN 
ay8TEMEN<4SPACE>="» 

1B0SB PRINT"?"jiFOR 2-1 TO 38iPRINT"Ä"|iNE 
XT 

10060 PRINT"7?IiaÄäUtttÄ*ir"|iPDR Z-1 TO 21lPR 
INT"i"!«NEXT 

10062 PRrNT'' ¥»tt.»<nt*Jig -"HPr IH> auSWAHL DE 
8 ÄYSTEM8 j="8PC<7)"="| 

10064 PRINT"="SPC(8)"7"|iF0R 2-1 TO 21iPRl 
NT"i"|iNEXT 

10066 PRINT"5r"8PC(7) "="88018)" {WHITE>*"BP 
c (9) "iira"BPc<9) "*"apc (7>" <yellow>="i 

10068 PRINT"a"SPC(e> " tWHITE>=;"BPC(10> "="SP 
C(10> "i;"aPC<7) " IYELLOW>="| 

10070 PRINT"="5PC(0)"<WHITE>s"SPC< 10)"»"BP 
C<10)"="SPC(7)"{yELLDW>="s 
10072 PRINT"="8PC <B)"{WHITE>="8PC<10)"="SP 
C<10 )"b"SPC17)"<YELLOW>=“| 

10074 PRINT"="Ö»C(8)"{WHITE>s"8PC<10)"a"BP 
C <10)"="BPC17 )"{YELLOW>s"| 

10076 PRINT"="SPC18>"<WHITE>="SPC(10)"="SP 
C (10 > " =;"aPC 17 ) " <YELLDW>=" ! 

10078 PRINT"s"BPC(B>"<WHITE>a"SPC(10>"="8P 
C <10)BPC17)"{YELLOW >="j 
10080 PRINT"="SPC(B>"{WHITE>*"SPC19)"SfÄ"S 
PC 18)"ifS"aPC(6)"{YELLOW>=" ! 

10082 PRINT"a"SPC{7)"{WHITE>CI3"BPC(B)“C2I 
"SPC(8>"C33"SPC16)"{YELLOW}^"j 
10BB4 PRINT"c;"SPC<38) "={3SPACE,WHITEIBEID 
E ^KEN{2BPACE}STARR EIN-{2SPACE>STA 
RR{5BPACE,YELLOW>a"g 


<213> 

<21B> 

< 110 > 

< 122 > 

<231> 

< 200 > 

<125> 

<11S> 

<035> 

<07l> 

<223> 

<196> 

<132> 

<170> 

<104> 

<06S> 

<0O7> 

<0a7> 

<Be9> 

<091> 

<093> 

<095> 

<097> 

<204> 

<161> 

6''*SF» 

<196> 


10OS6 PRINT"={4SPACE,WHITE>BELENKIB{5SPACE 
>BE8PANNT <2SPACE >BELENK16{38PACE,YEL 
LQW>="| 

PRINT"a"8PC(3B> " 


10090 

10092 

10094 

10099 

10100 
10101 
10105 
10110 
10115 
10120 
10125 
10130 

10590 

10591 

10592 

10593 

10594 
10600 
10605 
10610 

10615 

10620 

10700 

10701 

10702 

10703 

10704 

10705 

10706 

10707 

10708 

10709 

10710 

10711 


PRINT"a» ÜAHL DES aYSTEt1Sa2WISCHEN{3 
SPACE>UND{3SPACE)» =" j 
PR I NT ” 

♦■»»■♦A».».«.« ?"; a PR I NT " {3UP > " | 

PRINT"{RED>" 

8VS AUS,28,21," "ga 
SYS EIN,2,E4«,A* 

A1-VAL(A«) 

SYS AUS,34,21," "gi 
SYS EIN,2,E4«,A« 

A2-VAL1A*) 

81-liB2-.5aS3-.7 

RETURN 


ALARMTON 


REM- 

REM - 

REM- 

I 

POKE 54296,13iP0KE 54277,25 
POKE 54278,68 

POKE 54273,99iP0KE 54272,100aPOKE 54 
276,33 

FOR T-1 TD 220:NEXT 
POKE 54276,OaRETURN 


REM — 
REM - 
REM — 
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\l 


REM "aOMHELSDORF 

REM "STAHLBETONBAU lEIL 2 

REM "MERNER INGENIEUR lEXTE H£X16 

REM " 4.QUFLAGE 1986 

REM "HENDEHDRST/ÜUTH 
REM "^UTECHNISCHE ZAHLENTAFELN 
REM "5.g.ZEUBNER ÜERLAB 
:«EM "21.AUFLAGE 


<154> 

<127> 

<iBa> 

<217> 

<B61> 

<lll> 

<130> 

< 0 aa> 

<245> 

<144> 

<lll> 

<255> 

<026> 

<152> 

<164> 

<229> 

<166> 

<156> 

<092> 

<176> 

<Z43> 

<146> 

<046> 

<006> 

<01B> 

<059> 

<02a> 

<0i0> 

<236> 

<137> 

<i9a> 

<206> 

<015> 

<131> 

<045> 

<090> 

< 102 > 


Listing 1. »Stadi 1.1« (Schluß) 


Nana 

erw. 1 





oOOO c 

3a0 

olZO 

ed 

3d 

03 

98 

48 

20 

fl 

b7 

do 

o260 

ae 

20 

de 

b7 

66 

58 

20 

fd 

84 











0128 

: 66 

aB 

Sa 

99 

3e 

03 

06 

oO 

6b 

0268 

ae 

20 

de 

b7 

86 

67 

68 

66 

da 











oiao 

06 

dO 

fO 

ad 

3e 

86 

fB 

ad 

6d 

o270 

aZ 

ff 

aO 

00 

eS 

bd 

00 

01 

b8 











0136 

. 03 

66 

fa 

60 

48 

ad 

01 

86 

89 

c278 

fO 

76 

od 

46 

fO 

08 

09 

2e 

11 

cOOO 

20 

eO 

oO 

20 

Od 

oO 

20 

4a 

bO 

ol40 

02 

a9 

00 

86 

01 

68 

60 

48 

2d 

c280 

dO 

f2 

6a 

a8 

dO 

ee 

ad 

02 

cd 

cOOB 

. cO 

20 

94 

oO 

60 

78 

a9 

03 

Be 

0148 

• a5 

02 

86 

01 

88 

60 

03 

03 

Ob 

c268 

01 

od 

2e 

dO 

Oo 

ca 

aO 

01 

af 

oOlO 

8E 

01 

a9 

dO 

66 

ff 

ae 

00 

99 

Ol60 

20 

fd 

ae 

20 

de 

b7 

eO 

00 

4a 

o290 

cB 

b9 

01 

01 

99 

00 

01 

dO 

d6 

coie 

86 

ie 

86 

fo 

ae 

ad 

d4 

86 

63 

ciee 

fO 

12 

86 

fo 

20 

fd 

ae 

20 

7f 

0296 

f7 

bd 

02 

01 

29 

Of 

Oa 

85 

4d 

e020 

fd 

a2 

04 

20 

39 

oO 

ae 

da 

86 

oieo 

Be 

ad 

20 

ef 

ad 

20 

a6 

be 

b3 

o2a0 

02 

Oa 

Oa 

86 

02 

7d 

03 

01 

fl 

a028 

86 

tt 

ad 

do 

86 

fd 

aZ 

04 

Be 

0186 

09 

00 

dO 

03 

4o 

48 

b2 

66 

aS 

o2aB 

ae 

Zf 

bo 

01 

01 

oO 

2d 

fO 

26 

o030 

20 

36 

oO 

aO 

07 

86 

01 

68 

a3 

ol70 

a7 

a6 

22 

86 

aa 

ad 

23 

65 

72 

o2b0 

17 

89 

03 

86 

02 

ed 

02 

aS 

b6 

oose 

60 

bl 

fe 

91 

fa 

91 

fo 

o8 

86 

0178 

a9 

a9 

00 

85 

46 

20 

fd 

ae 

61 

o2bB 

ad 

30 

9d 

00 

01 

eB 

88 

dO 

fa 

a040 

dO 

f7 

e6 

fd 

e6 

ff 

oa 

dO 

oO 

oieo 

20 

8b 

bO 

20 

8t 

ad 

ae 

00 

a3 

a2o0 

f9 

a9 

00 

9d 

00 

öl 

fo 

a6 

6f 

o046 

fO 

80 

76 

a9 

03 

86 

01 

a2 

61 

0168 

86 

aa 

86 

fd 

86 

fb 

86 

00 

6b 

oZcB 

86 

02 

ae 

00 

9d 

00 

01 

Ba 

ao 

a060 

04 

a9 

d4 

66 

ff 

20 

73 

oO 

Bf 

Oieo 

a9 

60 

86 

fa 

a5 

«8 

fO 

fo 

fB 

oZdO 

18 

86 

02 

a8 

bd 

00 

01 

to 

f2 

oose 

aB 

do 

86 

ff 

2o 

3d 

03 

30 

aa 

0198 

20 

b4 

e6 

09 

14 

fO 

33 

o9 

ee 

o2dS 

08 

09 

30 

bO 

04 

ae 

30 

dO 

d7 

oOBO 

07 

16 

a9 

08 

65 

fa 

86 

fa 

19 

olaO 

Od 

fO 

61 

aO 

00 

dl 

aS 

fO 

al 

o2eO 

01 

oa 

99 

00 

01 

88 

dO 

eo 

la 

0068 

a2 

04 

20 

73 

oO 

a9 

07 

86 

03 

olaB 

07 

oB 

o4 

b7 

dO 

fT 

fO 

e4 

94 

o2e8 

a8 

2e 

8d 

01 

01 

dO 

81 

98 

fa 

ooro 

01 

66 

60 

20 

So 

ol 

bl 

fe 

60 

olbO 

a4 

fb 

91 

fd 

85 

ab 

20 

d2 

62 

o2fO 

fO 

IZ 

ad 

67 

dO 

07 

96 

aa 

3b 

o076 

20 

47 

Ol 

11 

f9 

91 

fe 

00 

88 

olbB 

ff 

ae 

aa 

ae 

fb 

ad 

fb 

q6 

la 

a2f8 

bd 

01 

01 

dO 

77 

a9 

2a 

99 

39 

ooao 

oO 

08 

dO 

af 

98 

aO 

00 

18 

36 

oleO 

fo 

dO 

dt 

o€ 

fb 

ad 

fo 

86 

6d 

o300 

00 

01 

dO 

Oo 

q4 

67 

fO 

26 

62 

cose 

66 

fa 

86 

fe 

»0 

o5 

e6 

ff 

81 

cloS 

aa 

ae 

Bd 

20 

d2 

ff 

a8 

00 

86 

0306 

ad 

2o 

9d 

00 

01 

a8 

dO 

10 

ed 

c080 

oa 

dO 

eO 

60 

2o 

88 

02 

30 

78 

oldO 

fO 

o2 

a6 

fb 

fO 

be 

06 

aa 

oO 

o310 

64 

02 

38 

6a 

ed 

02 

36 

ed 

10 

0098 

OB 

aS 

o4 

ed 

88 

02 

20 

be 

de 

olde 

a8 

aa 

aB 

e4 

fo 

fO 

07 

20 

de 

0316 

01 

od 

67 

fO 

13 

bO 

46 

a6 

19 

oOaO 

oO 

ad 

00 

dd 

29 

fo 

8d 

00 

a3 

olaO 

d2 

ff 

c6 

fb 

10 

ae 

ad 

20 

40 

o320 

b9 

30 

9d 

00 

01 

e8 

06 

o4 

4d 

o0b6 

dd 

aS 

de 

76 

ed 

18 

03 

aB 

17 

oleS 

20 

d2 

ff 

ad 

9d 

20 

d2 

ff 

00 

0326 

87 

dO 

f7 

a9 

00 

Bd 

00 

01 

09 

oObO 

cO 

ed 

19 

03 

68 

80 

a2 

04 

f9 

olfO 

ad 

00 

fO 

aO 

ae 

fb 

fO 

So 

31 

oSSO 

ad 

01 

01 

c9 

30 

bO 

11 

e8 

78 

oObS 

b9 

04 

86 

fd 

a9 

o4 

86 

ff 

6b 

olfS 

a9 

01 

es 

00 

a& 

aa 

od 

fo 

dd 
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aa 

a8 

be 

ff 

00 

99 

00 

01 

63 

oOoO 

bS 

00 

66 

fo 

86 

fe 

aS 

bl 

Ol 
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fO 

OB 

ad 

20 

20 

d2 

ff 

a9 

of 
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88 

dO 

f7 

a9 

30 

Bd 

01 

01 

dB 

o0o6 

fe 

91 

fe 

ce 

dO 

f9 

e6 

fd 

da 

o206 

00 

fO 

06 

a5 

ab 

20 

dZ 

ff 

Td 

c348 

e4 

68 

bO 

14 

a4 

68 

bd 

00 

Ob 

oOdO 

a6 

ff 

oa 

dO 

f2 

60 

40 

bB 

29 

q210 

aO 

00 

a5 

aa 

91 

47 

20 

f4 

2d 

o3B0 

01 

99 

00 

01 

68 

ca 

10 

fe 

4b 

oOdS 

04 

8d 

66 

02 

68 

4c 

47 

fe 

09 

0218 

b4 

98 

48 

ea 

aO 

01 

91 

47 

83 

0358 

a9 

20 

99 

00 

01 

88 

10 

fa 

02 

oOeO : 

20 

fl 

b7 

6e 

3<3 

03 

ad 

00 

3b 

0220 

oS 

68 

91 

47 

aO 

00 

bl 

fd 

36 

o360 

a9 

00 

aO 

01 

4a 

87 

b4 

3B 

99 

oOaB 

66 

f9 

66 

fa 

6d 

3d 

03 

ea 

Oa 

0226 

91 

33 

08 

a4 

aa 

dO 

f7 

60 

ef 

0368 

ed 

67 

65 

02 

Sa 

38 

e& 

02 

aO 

oOfO : 

IS 

Za 

26 

fa 

2a 

26 

fa 

2a 

ia 

o2S0 

20 

fd 

ae 

20 

de 

b7 

eO 

28 

7a 

o370 

aa 

bd 

00 

01 

cd 

36 

90 

bS 

09 

oOfB : 

26 

fa 

86 

fe 

a9 

dO 

16 

86 

es 

0238 

90 

03 

4o 

46 

b2 

Sa 

48 

20 

47 

0376 

ea 

aB 

66 

fO 

18 

b9 

00 

01 

«8 

ClOO ! 

fa 

66 

fa 

aS 

11 

Bd 

Tb 

oO 

de 

oZ40 

fd 

ae 

20 

9e 

bT 

eO 

19 

bO 

be 

o380 

od 

30 

90 

fe 

18 

69 

01 

09 

09 

cl08 : 

20 

06 

a2 

20 

fl 

b7 

a9 

11 

8e 

0246 

fl 

68 

a8 

18 

20 

fO 

ff 

20 

64 

0388 

3a 

99 

00 

01 

dO 

9d 

ad 

30 

bO 

ollO : 

aO 

00 

dO 

02 

a9 

61 

6d 

7b 

b7 

o260 

fd 

ae 

4o 

b4 

aa 

00 

00 

00 

fT 

c390 

99 

00 

01 

dO 

ed 

6a 

a8 

b9 

4o 

olie : 

oO 

aO 

00 

20 

08 

e2 

ad 

60 

4o 

o25B 

20 

Bd 

ad 

20 

dd 

bd 

20 

fd 

f6 

0398 

00 

01 

99 

01 

01 

BB 

dO 

f7 

27 


Listlng 2. Die Basic-Erwelterung zu »ERW.1« wird automatisch nachgeladen. Bitte mit dem MSE (Seite 159) eingeben. 
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düdcsiffter 

an der Quelle des Geldes 


Das Geld vom Bett aus verdienen. Ein Traum, den 
auch Sie wahr machen linnen. Alles, was Sie 
benötigen, ist ein wenig Organisationstalent, 
einen C64, unser Programm »Börse Plus» und 
natürlich ein wenig Kleingeld. 

Z ahlreiche Filme wurden über sie gedreht, wer schon 
einmal dort war, hat ihre Faszination nicht vergessen 
— die Börse, Ein scheinbar wahlloses Durcheinander 
von Menschen, Telefonen, Papier und Zahlen. Ständig 
geschieht irgend etwas. Man muß schon einen kühlen Kopf 
behalten, das Durcheinander zu überschauen. Ab heute 
für Sie kein Problem. »Börse Plus« hilft Ihnen beim Verwal¬ 
ten, Editieren und Diskutieren von Aktienkursen, stellt 
diese grafisch dar und berechnet Börsengeschäfte. 

Spekulieren vor dem Mittagessen 


Das Programm arbeitet mit einer grafischen Auflösung von 
320 X 200 Punkten, Sprites am unteren Bildschirmrand 
bieten zusätzliche, wichtige Informationen, Eine Übersicht 
der Speicherbelegung von »Börse Plus« liefert Tabelle 1, Elf 
verschiedene grafische Darstellungsmöglichkelten veran¬ 
schaulichen die Börsenkurse, Die Programmservice- 
Diskette enthält Dateien mit aktuellen Börsenkursen des 
gesamten bisherigen Jahres 1987 der wichtigsten Aktien¬ 
gesellschaften In der Bundesrepublik. 


Bevor man mit Aktien spekuliert, sollte man wissen, was 
an der Börse vorgeht. Das wollen wir Ihnen kurz schildern: 

Die Börse Ist der Ort, an dem sich zugelassene Makler, 
Händler und Kaufleute treffen, um Wertpapiergeschäfte zu 
tätigen. Die Börse ist montags bis freitags von 11.30 bis 
13.30 Uhr geöffnet. In dieser Zeit werden die Geschäfte zu 
den Kursen abgewickelt, die im Moment gelten. Die Kurse 
ändern sich ständig, je nach Angebot und Nachfrage und 
werden so festgesetzt, daß möglichst viele Kauf- und Ver¬ 
kaufsaufträge abgewickelt werden. Ist die Nachfrage grö¬ 
ßer als das Angebot, so steigt der Kurs, bei umgekehrten 
Verhältnissen fällt er. Die Kursfestsetzung obliegt dem Vor¬ 
stand der Börse, der diese Aufgaben den Kursmaklern 
übertragen kann. Die amtlichen Makler vermerken in ihren 
Auftragsbüchern (Skontren) alle von den Banken für ihre 
Kunden aufgegebenen Aufträge und setzen danach den 
Kurs für jedes Wertpapier amtlich fest. Genau um 12.30 Uhr 


Inhalt 

Adresse 

Basic 

$0801 - $6000 

Assembler 

$91C0 - $9FFF 

Sprite-Daten 

$0500 -$C7FF 

Variablenberelch 

$6000-$91BF 

Bitmap 

$E00O-$FFFF 

Video-RAM 

$0000 -$C3FF 


Tabelle 1. Die Speicherbelegung von »Börse Plus« 
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RnFRSrNPRAGRAMH (D 1SB7 BV T.l . A R 

AKTIE: 

EINTRAEGE: 0 

-1- 

KURSE 

LADEN U8 

-z- 

KURSE 

SPEICHERN UB 

-3- 

KURSE 

EINGEBEN 

-4- 

KURSE 

AUSGEBEN 

-5- 

KURSE 

DISKUTIEREN 

-e- 

KURSE 

EDITIEREN 

-7- 

KURSE 

SORTIEREN 

-8- 

AKTIENNAHEN AENDERN 

-9- 

DISK MODE 

-0- 

PROGRAMM BEENDEN 


Bild 1. Das HauptmenU des Programms »Börse Plus» 


wird der Kassakurs festgesetzt. Die Kurse davor und 
danach werden Vor- und Nachbörse genannt. Zum Kassa¬ 
kurs werden nur die Aufträge gehandelt, deren Stückzahl 
an Aktien unter 50 ist, oder die Aufträge, deren Aktien nur 
für den Kassamarkt zugelassen sind. 

Alle anderen Aufträge, mit Stückzahlen über 50, werden 
variabel in der Vor- oder Nachbörse gehandelt. 

Wenn Sie nun bei Ihrer Bank Aufträge für den Kauf oder 
Verkauf von Aktien vergeben, so übergibt die Bank Ihren 
Auftrag ihrem Makler, und der tätigt in Ihrem Sinne das 
Geschäft. Dafür müssen Sie natürlich Gebüren zahlen, die 
Sie mit dem Programm »Börse Plus« schon vorher berech¬ 
nen können. 

Geschäffssiitn und eine gute Nase 


Beim Spekulieren müssen Sie die Aktie preiswert ein- und 
teuer verkaufen, nur so machen Sie Gewinn. Um die Tage 
herauszufinden, an denen man Aktien kaufen oder verkau¬ 
fen will, hilft Ihnen das Programm »Börse Plus«. Man kann 
in der Regel davon ausgehen, daß sich bestimmte Kursver¬ 
läufe immer wiederholen. So pendelt zum Beispiel die 
Hoechst-Aktie oft zwischen 240 und 300 Mark. Bevor man 
einen Kauf tätigt, ist es hilfreich, über die wirtschaftliche 
Lage generell und über diese Firma speziell informiert zu 
sein. Sie sollen auch noch daran denken, welche Faktoren 
den Kurs der Aktie beeinflussen und wie sich dieser Faktor 
entwickelt. Ein solcher Faktor ist der Dollar-Kurs; manche 
Aktien (beispielsweise Autokonzerne) sind von Ihm extrem 
abhängig. Aber auch andere Ereignisse beeinflussen die 
Kurse. So sind nach Tschernobyl alle Chemie- und Kraft¬ 
werksaktien gefallen. Und noch eins; Wenn Sie mit Aktien 


AKTIENKURSE AUSGEBEN 

AUSGABE AUF BILDSCHIRM ODER DRUCKER 
<B/D) ? 


EINTRAECE: 1S5 


Bild 2. Formatiert ausgegebene Kurse In Punkt 4 


spekulieren, dann dürfen Sie das angelegte Geld nicht 
kurzfristig benötigen, denn Sie müssen sonst eventuell mit 
Verlust verkaufen. Es ist möglich, daß Ihr Geld für einige 
Jahre festgelegt ist, bis Sie mit Gewinn verkaufen. 

Aber lassen Sie sich nicht einschüchtern, man kann ja 
einen kleinen Verlust einstecken, wenn man dafür einen 
noch größeren Gewinn macht. Sie können die Aktienspe¬ 
kulation ja in den nächsten Monaten mit Hilfe von »Börse 
Plus« trainieren. Die auf der Programmservice-Diskette 
vorhandenen Kurse unterstützen Sie dabei. 


Begriffserkläning 


Aktie: 

Eine Aktie ist eine Urkunde über einen Besitzanteil am 
Grundkapital einer Aktiengesellschaft. Die einzelne Aktie 
hat in der Regel einen Nennwert von 50 Mark. 

Kurs: 

Im engeren Sinn ist der Kurs der amtlich notierte (festge¬ 
setzte) Preis einer an der Börse eingeführten Aktie. Er wird 
in Mark pro Aktie ausgedrückt. 

Einheltskurs/Kassakurs; 

Für die Mehrzahl der Wertpapiere werden an den Börsen 
die Kurse während der Börsenzeit nur einmal festgelegt 
und nicht fortlaufend. Zu diesem Einheitskurs, auch Kassa¬ 
kurs genannt, werden alle Geschäfte (Käufe und Verkäufe) 
abgewickelt. 


KORSE DISKUTIEREN 
-1-L GRAFIK 

-2-^USDRUCK MIT DIFFERENZANGABE 

-3- BILANZ 

-4- MONATS-BILANZ 

-5- BILANZ UON BEST. ZEITRAUM 

-B- HAUPTMENUE 

-7- DATEN SORTIEREN 

-8- BERECHNUNGEN 


Bild 3. Das Untermenü für den Punkt »Kurse diskutieren« 


Einheitskurse werden berechnet: 

a) für Wertpapiere, die nicht zur variablen Notierung 
zugelassen sind, 

b) bei variabler Notierung von zugelassenen Wertpapie¬ 
ren solcher Aufträge, die die vorgeschriebene Mindest¬ 
stückzahl (gewöhnlich 50 Stück) nicht erreichen. 
Dividende: 

Hat eine Aktiengesellschaft mit Gewinn gearbeitet, so 
schüttet sie einen Teil dieses Jahresüberschusses an die 
Aktionäre aus. Der auf die einzelne Aktie entfallende 
Betrag wird Dividende genannt. An dem Tag, an dem die 
Dividende ausbezahlt wird, fällt meistens der Kurs dieser 
Aktie um den Betrag der Dividende. 

Bezahlt; 

Bezahlt, kurz »b«, kann als Zusatz im Kursblatt einer 
Börse stehen. Erscheint hinter dem amtlich notierten Kurs 
der Zusatz »b« oder »bz«, so bedeutet es, daß die Kauf- und 
Verkaufsaufträge für dieses Wertpapier sich in der Waage 
hielten und erfüllt werden konnten. 

Der Zusatz »bG« (bezahlt Geld) heißt: Alle auf der Kursba¬ 
sis liegenden Verkaufsaufträge konnten ausgeführt wer- 
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DRAFIK 

'1- MONATS-GRAFIK 

-2- JAHRCS-CRAFIK <ALLE KURSE) 

-3- JAHRES-GRAFIK <MO.-OURCHSCHNUT) 

-•4- GRAFIK yON BEST. ZEITRAUM 

-5- GRAFIK DER LETZTEN 15/30 KURSE 

-6- CHARTS-GRAFIK 

-7- KURSE DISKUTIEREN <MENUE) 

-8- GRAFIKTVP : KURVE 


Bild 4. Das Untermenü für den Punkt »Qraflk» 

den, es bestand aber noch weitere Nachfrage (Geld) nach 
diesem Wertpapier, 

Der Zusatz »bB« (bezahlt Brief) besagt das Gegenteii: 
Alle Kaufwünsche konnten befriedigt werden, es iagen 
aber noch Verkaufsangebote (Brief) vor. 

Thxe: 

Liegen für ein bestimmtes Wertpapier weder Kauf- noch 
Verkaufsaufträge vor, so daß sich kein Kurs nach Angebot 
und Nachfrage biiden iäßt, so wird für dieses Wertpapier 
der Kurs geschätzt taxiert, im Kursblatt steht hinter dem 
geschätzten Kurs ein »T« (Taxe/Taxkurs). 

Limitieren: 

Limitieren ist das Festsetzen einer Preisgrenze (Limit) 
nach oben oder unten bei Börsenaufträgen. Überschreitet 
der Kurs das Limit, entweder nach oben oder unten, so wer¬ 
den die limitierten Aufträge nicht ausgeführt. 

Chart: 

Ein Chart ist die grafische Darstellung der Kurse in 
Abhängigkeit der Zeit. Für Charts wird meist ein größerer 
Zeitraum abgebildet. 

Sollte Ihnen noch etwas über Börsengeschäfte unklar 
sein, so können Sie sich bei Ihrer Bank informieren, 


Bedienungsanleifung 


Geben Sie Listing 1, Listing 2 und Listing 3 der Reihe nach 
ein. Listing 2 muß unter dem Namen »BG.OBJ« und Listing 
3 unter »BG.SPR« gespeichert werden. 

»Börse Plus« wird folgendermaßen gestartet: 

- Diskette elnlegen 

- LOAD "BOERSE PLUS^8 
-RUN 

- warten, bis das Programm nachgeladen hat und das 
Menü erscheint. 

- nun sollte man die Daten-Diskette elnlegen 

Das HauptmenU sehen Sie in Bild 1. Das Programm 
erwartet nun einen Tastendruck von <0> bis <9>, 
andere Tasten werden ignoriert. Danach wird in das jewei¬ 
lige Unterprogramm verzweigt. 

1. Kurse laden Unit 8 

Nach dem Tastendruck <1 > zeigt das Programm alle 
Aktiennamen an, deren Daten auf der eingelegten Diskette 
sind. Befinden sich mehr als 24 Dateien auf dem Bild¬ 
schirm, so kann man mit < Space> weiterblättern und den 
nächsten Teil ansehen. Auf jeder Seite steht in der 10. 
Spalte das Zeichen »>«. Diesen Pfeil kann man mit 
<CURSOR aufwärts> oder <CURSOR abwärts> steu¬ 
ern. Hat man einen bestimmten Aktiennamen ausgesucht, 
drückt man <RETURN> und die Daten werden geladen. 
Wichtige Hinweise, wie etwa Diskstatus oder Anzahl der 
Einträge, werden angezeigt. Soll der Menüpunkt verlassen 


werden, drückt man so oft auf < Space >, bis nach der letz¬ 
ten Seite das Hauptmenü wieder erscheint. 

2. Kurse speichern Unit 8 

Das Programm speichert die Daten seibständig mit dem 
Anhang »Aktienname.DAT«. Der Aktienname ist frei wähl¬ 
bar und der Filename immer 16 Zeichen lang. 

3. Kurse eingeben 

Man wird jetzt vor die Wahl gestellt, ob man zu der Aktie, 
die gerade im Speicher ist, Daten eingeben will oder zu 
einem bestimmtem Datum bei allen Aktien einen Eintrag 
machen will. 

Zur Wahl betätigt man die Tasten <E>, <A> oder 
<M>, 

<E>: Eingabe von Daten zu derjenigen Aktie, die gerade 
im Speicher steht: 

Man gibt zunächst Tag, Monat und dann Kurs ein. Ist eine 
Eingabe unsinnig, wie etwa Monat « 14 , dann muß diese 
Eingabe sofort wiederholt werden, Nach den drei Eingaben 
bestätigt man die Richtigkeit der eingegebenen Daten. 
Dies geschieht mit den Tasten < J > oder < N >. Bei < N > 
wird die Prozedur wiederholt. Sind die Daten einmal kor¬ 
rekt, kann man wieder mit <J> oder <N> entscheiden, 
ob man noch einen weiteren Eintrag machen will. Falls 
nicht, antwortet man mit < N >, es erfolgt ein Rücksprung 
ins Menü. 

<A>: Eingabe eines Eintrages zu allen Aktien. 
Serien-Eingabe: Achtungl Bei diesem Programmpunkt 
werden alle Aktienkurse im Speicher gelöscht. Nach Ein¬ 
gabe des Datums wird das erste Aktienfile geladen und 
deren Aktienname angezeigt. Nun gibt man den Kurs der 
Aktie ein oder <0> oder nur <Return> für keinen Ein¬ 
trag, Das Aktienfile wird mit dem neuen Eintrag zurückge¬ 
schrieben. Anschließend wird das zweite Aktienfile gela¬ 
den un'i>iian gibt erneut ein. Dies geht so weiter, bis keine 
Aktienfiies mehrauf der Diskette sind. Mit der Kurseingabe 
<9999> kann man diesen Programmteil vorzeitig abbre¬ 
chen. 

<M>: Rücksprung ins Menü. 



Bild 5. Eine Monatsgrefik der Aktiengesellschaft »AEG« 


4. Kurse ausgeben 

Aktienkurse, dlederzeitim Speicher sind, werden ausge¬ 
geben. Zuvor steht man vor der Entscheidung, ob die Aus¬ 
gabe auf Bildschirm oder Drucker erfolgen soll. Dies 
geschieht durch Tastendruck von <B> oder <D>. Bei 
<D> werden alle Daten auf Drucker ausgedruckt. Bei 
<B> erscheinen die Daten auf dem Bildschirm, wobei 
man hier wieder mit <SPACE> blättern kann. Mit <Q> 
erfolgt ein Rücksprung ins Menü. Selbstverständlich wer¬ 
den die Zahlen formatiert ausgegeben. Ein Beispiel ist in 
Bild 2 zu sehen. 
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5. Kurse diskutieren. 

Auf diesen Punkt baut sich ein weiteres Menü auf (Bild 
3). Geben Sie nun eine Zahl zwischen 1 und 8 ein. Die 
Unterpunkte dieses Menüs sind: 

5.1. Grafik 

Hier gibt es wieder mehrere Möglichkeiten in Menüform 
(Bild 4). Während des Grafikmodus bewirkt <H> eine 



Bild 6. Eine Jahresgrafik mit Durchschnittswerten 


Hires-Hardcopy auf Epson-(kompatlblen) Druckern in dop¬ 
pelter Punktdichte. Qeräteadresse = 4, Sekundäradresse 
= 1. Bei der Hardcopy könnte es bei manchen Druckern zu 
Problemen mit der Sekundäradresse kommen. Die Grafik- 
Hardcopy ist nur für Epson und kompatible Drucker geeig¬ 
net. Daher muß die Sekundäradresse den Linearkanal 
anwählen. Benötigen Sie andere Werte, so müssen Sie fol¬ 
gende Programmzeilen bei Listing 1 hinzufügen: 

1900 POKE 38157,X :REM X=Selc\mdäradresse für 
Grafik-Hardcopy ($9500) 

1910 POKE 40691,X :REM X=SekundäradreaQe für Text- 
Hardcopy ($9EF3) 

Der Druck auf <G> vergrößert beziehungsweise ver¬ 
kleinert die Sprites am Rand in der Y-Rlchtung. Jeder 
andere Tastendruck verläßt den Hiresmodus und springt in 
das Grafikmenü zurück. 

Es können höchstens 30 Kurse gleichzeitig auf dem Gra¬ 
fikbildschirm dargestellt werden. Sind es weniger als 16, so 
stellt sich automatisch der doppelte Abstand zwischen den 
Kursen ein. Eine Ausnahme bildet der Punkt 5.1.8, die 
Chartsgrafik. Hier können bis zu 128 Kurse auf dem Bild¬ 
schirm dargestellt werden. 

5.1.1. Monatsgrafik 

Nach der Eingabe des Monats wird die Grafik dieses Zeit¬ 
raumes gezeichnet. Ein Beispiel einer Monatsgrafik sehen 
Sie in Bild 5. Werden zu diesem Monat keine Eintröge 
gefunden, so erfolgt ein Sprung ins Grafikmenü. 

5.1.2. Jahresgrafik, alle Kurse 

Zuerst entscheidet man sich, ob man maximal 15 oder 30 
Kurse pro Grafikbildschirm haben möchte. Dann befindet 
man sich in einem Dialog zwischen Grafik und Textbild¬ 
schirm. Folgende Eingaben sind im Textbildschirm mög¬ 
lich: 

<+ >; nächsten Grafikbildschirm zeigen 
<—>: vorderen Grafikbildschirm zeigen 
<= >; aktuellen Grafikbildschirm zeigen 
<H>: Hardcopy 

<M>: es erfolgt ein Rücksprung ins Grafikmenü 

5.1.3. Jahresgrafik, Monatsdurchschnitte 

Nach Berechnung der Durchschnittswerte der einzelnen 
Monate folgt ihre grafische Darstellung. Ein Beispiel sehen 
Sie in Bild 6. 


5.1.4. Grafik eines bestimmten Zeitraumes 

Alle Datumseinträge mit Nummern werden gezeigt. Man 
gibt zwei Nummern ein und beachtet, daß der Zeitraum 
keine 30 Einträge überschreitet. Unsinnige Eingaben, wie 
etwa Nr. 41 bis Nr. 54, werden ignoriert und eine Neuein¬ 
gabe ist erforderlich. 

5.1.5. Grafik der letzten 15 beziehungsweise 30 Einträge 
Hier muß lediglich eingegeben werden, ob man die 

Kurse der letzten 15 (ca. 3 Wochen) oder der letzten 30 (ca. 
6 Wochen) Einträge sehen will. Danach wird die Grafik die¬ 
ses Zeitraums gezeichnet. 

5.1.6. Charts-Grafik 

Eine Grafik mit bis zu 128 Kursen wird auf einer Seite 
erstellt. Bei mehr als 128 Kursen muß man sich für eine 
bestimmte Seite zur Ansicht entscheiden. Eine Charts- 
Grafik ist in Bild 7 zu sehen. Bei weniger als elf Kursen ist 
eine Chartsgrafik nicht möglich. 

5.1.7. Kurse diskutieren 

Man gelangt hier in das Untermenü «Kurse diskutieren«, 
das folgende Punkte bereitstellt: 

5.1.8. Grafiktyp 

Man kann die Kurse In zwei Grafiktypen darstellen: in 
Form einer Kurve oder in Form von Säulengrafik, Blockgra¬ 
fik genannt (Bild 8). Beide Formen werden im hochauflö¬ 
senden Grafikmodus dargestellt. 

Durch den Tastendruck <8> ändert sich nur der Grafik¬ 
typ im Menü unter Punkt 8. Dort steht entweder »KURVE« 
oder »BLOCK«. Das gilt nicht für den Punkt 5.1.6. Charts- 
Grafik. 



Bild 7. Eine Chartsgrafik mit 128 Kursen 


5.2 Ausdruck mit Differenzangabe 
Hier gelten dieselben Bedienungshinweise wie in Punkt 
4. Jedoch steht hinter dem Aktienkurs noch die Differenz 
zum vorherigen Kurs. Bei 0 wird nichts ausgegeben. 

5.3. Bilanz 

Man wählt hier wieder wie unter Punkt 4, ob man die Aus¬ 
gabe auf dem Drucker oder Bildschirm haben möchte. Es 
wird nun eine Bilanz wie In Bild 9 berechnet. 

EW/LW heißt erster / letzter Wert. 

TW/HW heißt Tiefstwert / Höchstwert. 

Bei der Differenz und dem Prozentsatz des TW/HW wird 
immer vom früheren Datum ausgegangen, denn nur so hat 
die Berechnung einen Sinn. 

5.4. Monats-Bilanz 

Eine Bilanz über die Aktienkurse des eingegebenen 
Monats. 

5.5. Bilanz eines bestimmten Zeitraums 

Hier wählt man wie bei 5.1.4. zwei Datumseinträge aus. 
Eine Einschränkung auf 30 Kurse ist nicht vorhanden. Die 
Bilanz wird wie in 5.3. gebildet. 
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Bild 8. Eine Blockgrafik von Aktienkursen 


5.6. Hauptmenü 

Mit dem Tastendruck <6> gelangt man wieder ins 
Hauptmenü. 

5.7. Kurse sortieren 

Da für Grafik, Bilanz und Ausdruck mit Differenzangabe 
die Kurse dem Datum nach sortiert sein müssen, um rich¬ 
tige Werte zu erhalten, können sie hier sortiert werden, falls 
sie es nicht schon sind. 

5.8. Berechnungen 

Hier eröffnet sich ein neues Menü, Bei sämtlichen Be¬ 
rechnungen werden Börsenumsatzsteuer, Courtage, Provi¬ 
sion, Abwicklungsgebühr und Kapitalertragsteuer automa¬ 
tisch berücksichtigt und angezeigt. 

5.7.1 Effektiver Kaufkurs 

Hier werden zusätzlich zum Kassakurs alle Nebenkosten 
berücksichtigt. Nach der Eingabe des Börsenkurses und 
der Anzahl der gekauften Aktien erhält man detailliert den 
effektiven Kaufkurs aufgeschlüsselt. 

5.7.2. Effektiver Verkaufskurs 

Hier geschieht im Prinzip dasselbe wie in 5.7.1, nur mit 
dem Verkaufskurs, 

5.7.3. Effektiver Gewinn 

Es werden hier 5.7.1. und 5.7.2. kombiniert und das 
Ergebnis berechnet. Ein Beispiel sehen Sie In Bild 10. 

5.7.4. Effektive Dividende 

Die effektive Dividende, die man erhält, wird berechnet. 
Nur die Kapitalertragsteuer wird abgezogen. 

5.7.5. Zu erwartender Verkaufskurs 

Dies ist ein sehr interessanter Punkt; man gibt den Bör¬ 
senkurs, zu dem man die Aktie kauft und die Anzahl ein. 
Dann fragt das Programm nach dem effektiven Gewinn, 
den man netto haben möchte und gibt anschließend den 
Kurs aus, zu dem man die Aktie verkaufen muß. 


BILANZ 





AUSGABE AUF 

BILDSCHIRM ODER DRUCKER 

(B/D) ? 





AKTIE 

AEG 




EINTRAECE 

1 - 

155 



ERSTER KURS 

: 2 . 

1 . 

DM 

325,00 

LETZTER KURS 

: : 24. 

8. 

DM 

352,00 

DURCHSCHNITTSWERT : 


DM 

313,70 

TIEFSTWERT 

S. 

2. 

DM 

277,00 

HOECHSTWERT 

12 . 

8. 

DH 

361,00 

DIFFERENZ 

(EW,LW) 


DM 

27,00 

PROZENTSATZ 

<EM.LW) 


Z 

8,30 

DIFFERENZ 

<TW,HW> 


DM 

84, 00 

PROZENTSATZ 

<TW,HW> 


Z 

30,30 


Bild 9. Die Bilanz einer Aktie 


5.7.6. Kurse diskutieren 

Man springt wieder ins Menü zur Diskussion von Kursen 
zurück. 

6. Kurse editieren 

Hier eröffnen sich wieder viele Möglichkeiten; 

<-!->; Man blättert einen Eintrag weiter vor. Nach dem letz¬ 
ten Eintrag erscheint wieder der erste. 

<—>; Einen Eintrag zurückblättern 

<C>: Löscht alle Daten Im Speicher 

<S>: Springt zu beliebigen Eintrag 

< E >: Fügt einen Eintrag datumsgerecht ein 

<A>; Verbesserung eines Eintrages, Wird aber das 

Datum geändert, so wird dieser Eintrag verbessert und 

dann richtigt eingefügt, 

<M>: Es erfolgt ein Rücksprung ins Hauptmenü. 

Solange der Computer rechnet, erscheint links unten ein 
reverses Leerzeichen. Sobald dieses Zeichen erlischt, kön¬ 
nen Sie wieder einen der vorhin beschriebenen Befehle 
eingeben. 

7. Kurse sortieren 

Auch hier kann man die Kurse dem Datum nach sortie¬ 
ren. 

8. Aktiennamen ändern 

Aktiennamen ändern, entweder um ihn zu berichtigen 
oder um neue Aktieneinträge zu kreieren. Bei letzterem 
sollte man aber zuvor noch restlich vorhandene Daten 
unter Punkt 7 löschen. Der Aktienname ist immer 12 Zei- 


GEWINN 

ER AKTIE ; 340 
S DER AKTIE : 420 
AKTIEN ; 45 


HL : 

PREIS : 
AUFPREIS : 
KAUFPREIS : 
UERKAUFPREIS 


KAUFPREIS ÖESAMT : 
VERKAUFPREIS OLSAMT 


EFF. CEMINN GESAMT : 
EFF. GEWINN / AKTIE : 
PROZENTSATZ ZU - 


^pIes gn 

EFF. KAUFP, X 


BOERSENUhSATZSTEUER : 0. 
COURTAGE : 0. 
PROVISION : l, 
ABWICKLUNGSGEBUEHR : OM 3 


45,00 

340,00 

420,00 

344,53 

414,35 

15S0S,43 

18645.63 

3133,14 

63,78 

20,20 


Bild 10. Die effektive Qewinnberechnung für Aktien 


Chen lang und wird gegebenenfalls mit Leerzeichen aufge¬ 
füllt. 

9. Disk Mode 

Eingabe von piskettenbefehlen, <@> für den Disksta¬ 
tus oder <C>'fürdas Direktory. Mit <M> gelangt man 
wieder ins Menü zurück. 

10. Programm beenden 

Mit < 0> wird das Programm beendet. Man kann es aber 
mit »GOTO 2000« ohne Datenverlust wieder starten, unter 
der Voraussetzung, daß nichts am Programm geändert 
wurde, 

Hardcopy: 

In folgenden Menüpunkten wird eine Hardcopy durch 
Drücken von <H> ermöglicht: 5.7.1. bis 5.7.5., 5.3. bis 5.5., 
5.1.4. Zwei mit »Börse Plus« erstellte Hardcopies sehen Sie 
in Bild 11. 

Wir wünschen Ihnen nun viel Spaß und vor allem viel 
Erfolg bei der Anwendung unseres Programms »Börse 
Plus« 


(Thomas Lipp/Armin Bub/ad) 
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1250- 

xaze- 

ii3o: 

llBOl 

xisel 

iiool 

i07O. 

J.0-40: 

xeie- 

9QaI 

B3P 






ftKTii:. 


..I 


lllalla 



X 2 sa- 

X 22 a' 

xxael 

IXBOI 

xxbbI 

xxea 

1070 

xe-48 

xexo 

900 

9sa 


jJ^i§?ISi?^g3ae78liÄ4ÄM!ISIIIi 


m 


AKTIE: 







T7-> 


Bild 11. Zwei mit der Hardcopy-Funktion von »Börse Plus» erstellte Ausdrucke als Linien- und Blockgrafik 


2SB PQKE 53,167 l POKE 56,145 J REM BPEICH 

1500 FB-BA+36 % REM FILL BOX 

<051 > 

ER SRENZEN BEI «91A7 


<004> 

1510 JN-BA+39 g REM A*“"J"/"N’‘ 

<039> 

500 IF PEEK (37312)076 THEN LOAD 

"BB.OBJ' 


1520 HE-BA+42 g REM A*""H"/ELBE, H ->'HARD 


.8,1 


<039> 

COPY 

<152> 

750 IF PEEK (30430) i: >30 THEN LOAD 

"BB SPRI 

1530 BA-BA+4S : REM BET A* 

<058 > 

TEB'',8,1 


<00I> 

1540 Pa'==00000 i REM«Pfl 198,0 

<037> 

1000 REM ***#*****»***•***#****•**•*»•* 

<036> 

1550 WA-00000 g REM*PD 19B.0gWAIT 19B.1 

<159> 

1010 REM *«**»•«**»*«*«•••••<«»•»»«*•** 

<046> 

1560 TA-BA+4B g'REM Pfl I9B.0gWAIT l9B.lgPn 

1020 REM *** 


<065> 

198,0 

<223> 

1030 REM «»» BOERSENPROBRAMM 

«** 

<086> 

1570 BD-BA+51 : REM A»“"B"/"D" 

<063> 

1040 REM *** CC) 1907 BY TH. LIPP *** 

<155> 

1580 FA”BA+54 g REM FORMATIERTE AUSBABE 

<193> 

1030 REM »*« UND A. BUB 

«*» 

<010> 

1590 FD-BA+57 g REM FORMATIERTE AUSBABE MI 


1055 REM **» 

*«« 

<102> 

T DIFFERENZANQABE 

<156> 

1060 REM •***••«••'•**»**•***'«•««•»#*••• 

<098> 

1600 IP=BA+60 ! REM INPUT 

<116> 

1070 REM 

< 10 a> 

1610 LO-BA+63 g REM LOAD DATEIFILE.DAT 

<07B> 

10B0 t 


<040> 

1620 DT-BA+66 2 ReM*DIREKTORY 

<Z04> 

1090 REM «••••••««•««»«»•«•»»«««•»•»•«'K 

<1ZB> 

1630 SI-BA+69 g REM SERIEN LOAD 

<09B> 

1100 REM •»* VARIABLEN * ARRAYS 


<142> 

1640 FG'=39975 s REM FLAB FUER SI 

<02B> 

1110 REM *»»**********«■**•*«**»******** 

<140> 

1650 IR=BA+72 t REM SPRITES AM RAND INTERR 


1120 : 


<0SB> 

UPT ON 

<193> 

1130 CLR 



-nu,'afl^'=BA+75 g REM SET SPRITE 

<054> 

1135 ..REM STRING FUER MASCHPRB. 

<160> 

1670 I0=BA+78 t REM SPRITES AM RAND INTERR 


1137 AS*“" "sREM STRING FUER MASCHPRB. 

<106> 

UPT OFF 

<237> 

1140 BT-250SREM BOERSENTB, 230 IM 

JAHR 

<039> 

1680 AE-BA+ai g REM BRAFIK EIN, CLR, YA,XA 

<Z29> 

1150 AN»="<12SPACE1''>REM AKTIENNM 

<12Z 

<155> 

1690 Aa=BA+B4 ; REM IRQ. EIN, H-ELSE, IRQ A 


1160 NR=1:REM ZEIGER AUF FREIE VAR <250 

‘<2aB> 

US, SPRITES AUS, GRAFIK AUS 

<231> 

1170 DIM TGV.<BT)sREM TAB <32 + >0 


<054> 

1700 TH-BA+B7 i REM BET H/Eg H->TEXTHARDCO 


11B0 DIM MOy.(BT)jREM MONAT <13 + >0 

<147> 

PY 

<ia66> 

1190 DIM KUX(BT>!REM KURS <9999 + 

>0 

<229> 

1710 FZ“BA+90 2 REM FORM ZAHLENAUSBABE 

<0B3> 

1200 : 


<160> 

1720 ; 

<172> 

1210 POKE 650,128 


<111> 

1800 REM VIDEORAM LOESCHEN 

<161> 

1215 POKE 808,225 

• 

<176> 

1810 SYS VC,208 

<2Z5> 

1220 g 


<180> 

1820 g 

<018> 

1230 POKE 53280,0gPDKE 53281,0;PRINT"tLIB. 


2000 REM ******************************* 

<02B> 

BREEN>":REM FARBEN 


<Z20> 

2010 REM **» MENUE *** 

<152> 

1240 i 


<200>. 

2020 REM *•**••*»«•«»»*•«•»»*««*•»*»«•• 

<040> 

1250 REM ARRAYS FUER JAHRESBRAFIK 


<013> 

2030 g 

<228> 

1260 DIM EBX(17> 


<B43> 

2040 PRINT"<CLR,2BPACE>BQER3ENPR0GRAMM (C) 


1270 DIM LBX<17) 


<109> 

1907 BY T.L. A.B." 

<2S3> 

1280 g 


<Z42> 

2050 FOR I-l TO 40iPRINT"7"|gNEXT 

<061> 

1290 REM VARIABLEN FUER BRAFIKTYP 


<109> 

2060 PRINT"<D0WN,2SPACE>AKTIEg ">AN*j"{2SP 


1300 BT“0 


<014> 

ACEJEINTRAEQEg"tNR-1 

<159> 

1310 B*(0)-"KURVE" 


<I97> 

2070 PRINT" {D(3WN,3BPACE>-1- KURSE LADEN US 


1320 0*(1>-"BL0CK" 


<049> 

II 

<lt7> 

1325 g 


<031> 

2080 PRINT"<D0WN,38PACE>-2- KURSE SPEICHER 


1330 REM ARRAYS FUER MITTELWERTE 


<181> 

N US" 

<030> 

1340 DIM MW‘/'.(I2) 


<009> 

2090 PRINT"<DDWN,38PACE>-3- KURSE EINBEBEN 


1345 DIM JX<12> 


<156> 


<066> 

1350 g 


<056> 

2100 PRINT"<DDWN,3SPACE>-4- KURSE AUSQEBEN 


1360 REM KONSTANTEN FUER SYS EINBPRUENBE 

<232> 

»1 

<146> 

1370 g 


<076> 

ZU0 PRINT" {DOWN,3SPACE>-5- KURSE DI8KUTIE 


1375 eA-3728B g REM BASIS 


<022> 

REN" 

<213> 

' 1380 GE-BA g REM BRAFIK EIN 


<23S> 

2120 PRINT"<DDWN,3SPACE>-6- KURSE EDITIERE 


' 1390 aF-BA+3 g REM GRAFIK AUS 


<092> 

N" 

<099> 

. 1400 ec-BA+6 1 REM BRAFIK CLR 


<009> 

2130 PRINT"<DDWN,38PACE>-7- KURSE SORTIERE 


,J41»VC-BA+9 1 REM VIDEORAM CLR 


<249> 

N" 

<182> 

. 1420' SP-BA+12 g REM SET POINT 


<a76> 

2140 PRINT"{DDWN,3BPACE>-B- AKTIENNAMEN AE 


1430 YA-BA+15 g REM Y-ACHSE 


<0B4> 

NDERN" 

<095> 

1440 t(A-BA+18 g REM X-ACHSE 


<0e0> 

2150 PRINT"<DaWN,3SPACE>-9- DIBK MODE" 

<150> 

1450 Ll-BA+21 g REM LINE 


<097> 

2160 PRINT"<DOWN,3SPACE>-0- PROGRAMM BEEND 


1460 HC-BA+24 1 REM HARDCOPY 


<093> 

EN" 

<227> 

1470 DR-BA+27 t REM DIREKTDRY 


<129> 

2170 SYS BA 

<0Q2> 

14B0 D8-BA+30 I REM DISK STATUS 


<211> 

2180 A-ASC(A«) 

<B42> 

1490 CP=BA+33 g REM CHARPRINT 


<006> 

2190 IF A<40 OR A>S7 THEN 2170 

<005> 
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22(90 A°A-4QtlF A=e THEN A>10 

<016> 

15190 

IF A*="J"THEN 15040 

<i8a> 

2210 QN A GOTO 5000,10000,15000,20000,25(90 


15200 

GOTO 2000 

<162> 

0,35000,40000,30000,45000,50000 

<027> 

15210 

: 

<20e> 

2220 i 

<164> 

15220 

PRINT"<CLR,DOWN>" 

<B6B> 

500(9 REM *«*«««««*»»•«»**••«»*«#**«*«» 

<ia6> 

15230 

PRINT" AKTIENKURSE EINBEBEN" 

<119> 

5010 REM KURSE LADEN »•* 

<0B3> 

15240 

PRINT"<DaWN,SPACE>E AKTIENKURSE EINQ 


5020 REM 

<206> 


EBEN ZUR{16SPACE>AKTIEa ")AN« 

<254> 

5030 ; 

<;iB0> 

15250 

PRINT"CDOWN.BPACEJA EINEN AKTIENKURS 


5040 PRINT" <CLR,DO(^N>’' 

<04B> 


ZU ALLEN AKTIEN AUF<4aPACE>DIBK EIN 


SOSO SYS LO 

<176> 


GEBEN" 

<15a> 

5060 IF PEEK(ia4) 02 THEN SYS &SS11 a 00 


15260 

PRINT" {DD(4N,BPACE}M ZURUECK INS MENU 


TO 2000 : REM 65511 - *FFE7 - CLALL 

<oa 2 > 


E“ 

<02S> 

5110 INPUT«2,AN« 

<07B> 

15270 

PRINT" <ZD0(4N,8PACE>HINWEiaE ZU PUNKT 


5120 1NPUT»2,NR 

<234> 


A 8" 

<141> 

5130 FOR I-l TO NR-1 

<144> 

152B0 

PRINT" CDD(4N,SPACE}BEI DIESEM PROGRAM 


5140 INPUT(»2,TQV.(I> 

<236> 


M TEIL MUE8SEN SIE" 

<103> 

5150 INPUT#2,M0X(I) 

<e23> 

15290 

PRINT" EINMAL DAS DATUM EINGEBEN UND 


5160 INPUT«2,KUy.(Il 

<099> 


DANN BEI" 

<Ba2> 

5170 NEXT 

<100> 

15300 

PRINT" ALLEN AKTIEN, DIE AUF DERCRIG 


SISO OUDBE 2 

<119> 


HTIDISK BIND," 

<224> 

51B5 PRINT" {D(3WN,RIGHT>’'| 

<1BS> 

15310 

PRINT" DEN AKTUELLEN KURS EINGEBEN." 

<01B> 

5190 SYS DS s REM STATUS 

<024> 

15320 

PRINT"<2DO(4N,SPACE>ACHTUNQ, ES (4ERDE 


5220 PRINT"<DDWN,RIBHT>AKTIE; "|AN*)"<2BPA 



N ALLE DATEN IM " 

<024> 

CE}EINTRAEGEi"|NR-1 

<1B6> 

15330 

PRINT" <D0(4N,BPACE>BPEICHER BEL0E8CHT 


5240 SYS TA 

<2BG> 


1 1 1 *1 

<041> 

5270 GOTO 2000 

<i3a> 

15340 

BYS GA 

<042> 

52B0 8 

<176> 

1S3S0 

IF A« = "M" THEN 2000 

<e4s> 

10000 REM 

<106> 

15360 

IF A* = "E" THEN 15040 

<229> 

10010 REM *•* KURBE SPEICHERN 

<159> 

15370 

IF A* <> "A" THEN 15340 

<121> 

10020 REM 

<126> 

15375 

1 

<111> 

10030’: 

<1B0> / 

1S3B0 

PRINT"<CLR,D0MN,8PACE>SERIEN EINGABE 


10035 IF NR=1 THEN 2170 

<172> 


9 " 

<19i> 

10040 PRINT"<CLR,DOWN>" 

<224> 

15390 

SYS lP,"tDaWN,aPACE>TABt3SPACE>- ",T 


10050 PRINT" DATEN SPEICHERN"- 

<175> 


G 

<047> 

10060 PRINT" IDO(gN,BPACE>AKTIEr ";AN*;"<2SP 


15400 

IF TB<1 DR TB>31 THEN PRINT"<3UP>"!G 


ACE >EINTRAEGE s"j NR-1 

<029> 


OTD 15390 

<231> 

10070 PRINT" <DO(iJN,aPACE>FILENAME IST AKTIE 


15410 

SYS IP,"<DaWN,BPRCE>MONAT - ",M0 

<171> 

NNAME + ";CHR*(34) ; ".DAT"5CHR*(34> )" 


15420 

IF Ma<l OR MD>12 THEN PRINT"<3UP>"aQ 


8 CDOWNJ" 

<197> 


OTO 15410 

<061 > 

10080 PRINT" <DO(gN , 3RIGHT > " ; AN* ; " . DAT" ; PRIN 


15470 

9 

<206> 

T 

<O03> 

15480 

SYS SI 8 REM SERIEN LOAD 

<199> 

10090 FL*=AN*+".DAT" 

<070> 

15490 

IF PEEKCFB) = 1 THEN SYS 65511 : GOT 


10100 OPEN 2,a,2,"80!"+FL*+",S,W" 



<242> 

10110 PRINT»2,AN* 

<07S> 

15500 

REM FILE IS NQdJ OPEN 

<226> 

10120 PRINT#2,NR 

<232> 

15510 

INPUT#2,AN* 

<064> 

10130 FOR 1=1 TD NR-I 

<062> 

15520 

INPUT#2,NR 

<21B> 

10140 PRINT#2,TQX<I) 

<234> 

15530 

PRINT"{DOWN,SPACEJREADING FILEa "|AN 


10150 PRINT#2,M0X(I) 

<021> 


* 

<076> 

10160 PRINTtt2,KUX(I> 

<097> 

15540 

FOR I-l TO NR-1 

<138> 

10170 NEXT 

<01B> 

15550 

INPUT#2,TQZ(I) 

<230> 

lOlBO CLOSE 2 

<037> 

15560 

lNPUT#2,MQy.(I» 

<017> 

lOiaS PRlNT"tRIGHT}"; 

<113> 

15570 

INPUT#2,KUy.<I) 

<093> 

10190 BYS DS a REM STATUS 

<I98> 

155S0 

NEXT I 

<16S> 

10220 SYS TA 

<106> 

15590 

CLOSE 2 

<113> 

10260 GOTO 2000 

<e48> 

15595 

PRINT"{DOWN,RIQHT>") 

<179> 

10270 ! 

<0G6> 

15600 

SYS DS 8 REM DlSK STATUS 

<186> 

15000 REM •««•<«••••«••»**••*****•*•»*« 

<024> 

15610 

1 

<090> 

15010 REM KURSE EINGEBEN 

<076> 

15612 

PRINT"{DOWN,GPACEIBEBEN SIE 0 ODER < 


15020 REH ^^*^^•**^n^*****^^***f^*#***•^^*^^** 

<044> 


CR> EIN UM KEINEN" 

<iBa> 

15030 g 

<01G> 

15614 

PRINT" EINTRAG ZU DIESER AKTIE ZU MA 


1S03S GOTO 15220 

<027> 


CHEN. '• 

<135> 

15040 PRINT"<CLR,DD(4N>" 

<142> 

15616 

PRINT" BEBEN SIE 9999 UM DIE EINGABE 


15050 PRINT" AKTIENKURSE EINBEBEN" 

<193> 


ZU" 

<1B4> 

15060 PRINT"<DDWN,SPACE>AKTIEl ")AN*)"(2SP 


15618 

PRINT" BEENDEN." 

<209> 

ACE>EINTRABt”)NR 

<0iO> 

15620 

PRINT"{D0WN,aPACE>TAG{3SPACE>- ")TG 

<0B6> 

15070 SYS IP,"<D0(4N,SPACE>TAB<3BPACE>- ",A 

<131> 

15624 

PRINT" MONAT - "jMD 

<213> 

13000 IF A<1 GR A>31 THEN PRINT"<3UP>"lQ0T 


1562B 

PRINT"{DOWN,SPACEJEINTRAG8"{NR 

<14S> 

C 15070 

<123> 

15630 

SYS IP,"{D0WN,8PACE}KURS{2BPACE>- ", 


ISOBS T6X(NR)-A 

<146> 


KU 

<2ie> 

15090 SYS IP,"CDaUN,BPACE>MONAT - ",A 

<1B9> 

15633 

PRINT"{DOWN,SPACEJRICHTIS 7 (J/N)" 

<232> 

15100 IF A<1 DR A>12 THEN PRINT" <3UP>''iBOT 


15636 

SYS JN 

<062> 

□ 15090 

<144> 

1S63B 

IF A*-"N" THEN PRINT"{5UP>" 1 GOTO 1 


15105 MQy.(NR>-A 

<204> 


5630 

<134> 

15110 BYS IP,"{DDWN,SPACE>KUR8<2aPACE>- ", 

1 

15640 

IF KU = 0 THEN 1S4B0 

<211> 

A 

<116> 

15650 

IF KU ■ 9999 THEN SYS 65511 8PDKE FG 


1S120 IF A<0 DR A>9999 THEN PRINT"t3UP>"iQ 



-1,0 8 GOTO 2000. 

<212> 

□TD 15110 

<177> 

15660 

IF KU<1 OR KU>9999 THEN PRINT"{3UP>" 


15125 KUX(NR)-A 

<00B> 


iGOTO 15630 

<10S> 

15130 PRINT"{DOWN)RICHTIB ? <J/N)" 

<237> 

15670 

T6X(NR)-TG 

<103> 

15140 SYS JN 

<074> 

156B0 

Max(NR)-Ma 

<1B5> 

15150 IF A*="N"THEN 15040 

<150> 

15690 

KUy.(NR)=KU 

<019> 

15160 NR-NR+1 

<135> 

15700 

NR-NR+1 

<167> 

15170 PRINT"<DD(^N>NaCHEINE EINGABE 7 (J/N) 

<160> 

LIsting 1. »Börse Plus«, das Hauptprogramm. Bitte mit • 

I51B0 SYS JN 

<114> 

Checksummer auf Seite 1S9 eingeben. 
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1S710 

15720 

1S730 

15740 

15750 

15760 

15770 

157B0 

15790 

15000 

1SB10 

15815 

15820 

15830 

15040 

1SB50 

20000 

20010 

20020 

20030 

20035 

20040 

20050 

20060 

20070 

20080 

20090 

20100 

20110 

20120 

20130 

20140 

20150 

20160 

20170 

20175 

20170 


PRINT"{DaWN,SPACE>WRITlNG FIUEs ”jAN 

OPEN 2,B.2,"e0s"+AN*+".DAT,S,W‘' 
PRlNT#2,flN» 

PRINT(t2,NR 

FOR I-l TO NR-1 

PRINT#2,TB7.(1> 

PRINT#2,t10X(I) 

PRINT(*2,KUX<I> 

NEXT : 

CLDBE 2 

PRINT“ <DOMN, RIBHT>■') 

BVS DB I REM DISK STATUS 
BYS TA 
BOTO 154B0 

I 

REM «•**•«*«•»••«*•*»••«■«««••*•• 

REM *** KURSE AUSBEBEN *»* 

REM ******»**»»**********»«<»***** 

1 

IF NR-1 THEN 2170 
PRINT" <CI.R,DOWN>" 

PRINT" AKTIENKURSE AUBGEBEN" 

PRINT"<D0WN,8PACE>AUSGABE AUF•BILD 8 C 
KIRM ODER DRUCKER" 

PRINT" (B/D) ?" 

SYS BD 

IF A#<-"B"THEN OPEN 1,3,0:GDTQ 20110 

OPEN 1,4,0 

PRINT#l 

PRINT#1," AKTIE s "|AN* 

TTTTTTT" 


201B0 

20190 

20200 

20210 

20220 

25000 

25010 

25020 

25030 

25040 

25050 

25060 

25070 


pRiNT#i," ■ nnntTYn . 

PRINT#!," EINTRAEGEi"!NR-1 
PR1NT#1 
FOR 1=1 TO NR-1 
SYS FA,T 6 X(I),MOX<I),KUX(I) 
PRINT#1,AS» 

IF PEEK(214)=24 THEN SYS GAsPRINT"<C 

LR>";sIF A*=''B" THEN I=NR-1 iNEXTsGOT 

0 20200 

NEXT 

SYS TA 

CLOSE 1 

GOTO 2000 


<192> 

<003> 

<15S> 

< 120 > 

<01G> 

<104> 

< 020 > 

<B63> 

<139> 

<134> 

<079> 

<145> 

<152> 

<12B> 

<00a> 

<07Ä> 

<206> 

<062> 

< 220 > 

<194> 

< 010 > 

<062> 

<133> 

<009> 

<095> 

< 220 > 

<045> 

<146> 

< 021 > 

< 010 > 

<0S2> 

< 100 > 

<061> 

<1B6> 

<043> 

<038> 


REM ***************************** 
REM *** KURSE DISKUTIEREN *** 
REM ««««••*«»•••»*•»•«***••••««•« 


PRINT"CCLR,DOWN>" 

PRINT" KURSE DISKUTIEREN" 
PRINT"<2DDWN,BPACE>-1- GRAFIK" 
PRINT"<DOWN,SPACE>-2- AUSDRUCK MIT D 
IFFERENZANGABE" 

25080 PRINT"<D0WN,SPACEJ-3- BILANZ" 

250B2 PRINT"<DQWN,SPACE>-4- MONATS-BILANZ" 
25085 PRINT"<DDWN,SPACE>-5- BILANZ VON BES 
T. ZEITRAUM" 

25090 PRINT"<D0WN,SPACE>-6- HAUPTMENUE" 
25100 PRINT"<D0WN,SPACE>-7- DATEN SORTIERE 
N" 

25105 PRINT"(DOWN, 8 PACEI- 8 - BERECHNUNGEN" 
25110 PRINT"<2D0WN,SPACE>UM RICHTIGE WERTE 
ODER KURVEN ZU ERHAL-" 

25120 PRINT"<UP,SPACEJTEN, MUESSEN DIE DAT 
EN UNBEDINGT" 

25130 PRINT" SORTIERT BEIN!<UP>" 

25140 SYS GA 
25150 A=A 8 C(A»> 

25160 IF R<49 DR A>56 THEN 25140 
25170 A-A-4B 

251B0 ON A GOTO 27000,56000,60000,58000,59 
000,2000,40000,47000 
25190 GOTO 25000 
25200 I 

27000 REM •«•*»»»»«««•«»«*•**•«•»•«*•*• 
27010 REM *** GRAFIK *** 

27020 REM ******•**»*##*#*****»«******* 
27030 i 

27035 IF NR-1 THEN 25140 
27040 PRINT"<CLR,DOWN>" 

27050 PRINT" GRAFIK" 

27060 PRINT"t2D0WN,SPACE>-l- MDNATS-BRAFIK 


<i5a> 

< 122 > 

<143> 

<090> 

<12B> 

<11B> 

<130> 

<i3a> 

< 112 > 

<236> 

<227> 

<177> 

<007> 

<015> 

< 022 > 

<214> 

<I32> 

<029> 

< 22 e> 

<078> 

<01S> 

<033> 

<192> 

<152> 

<013> 

•:b90> 

<040> 
<094> 
<028 >• 
<0B6>' 
<129> 
<106> 
<0B0> 
<171> 
<204> 
<139> 

<056> 


27070 PRINT"<DDWN,5PACE)-2- JAHRES-GRAFIK 

(ALLE KURSE)" <179> 

27075 PRINT"<D0WN,SPACEJ-3- JAHRES-GRAFIK 

(MO.-DURCHSCHNITT)" <06B> 

270B0 PRINT"<DDWN,SPACE>-4- GRAFIK VON BES 

T. ZEITRAUM" <0B2> 

27090 PRINT"{DOWN,SPACE>-5- GRAFIK DER LET 

ZTEN 15/50 KURSE" <013> 

27095 PRINT"<DaWN,SPACE>- 6 - CHARTG-GRAFIK" <047> 
27100 PRINT"<D0WN,8PACE>-7- KURSE DISKUTIE 

REN (MENUE)" <052> 

27105 PRINT"<D0WN,8PACE}-8- QRAFIKTYP i "i 

6 #(GT) <21Z> 

27110 SYS GA <12B> 

27120 A=A 8 C(A«) <0BG> 

27130 IF A<49 OR A>56 THEN 27110 <074> 

27150 A-A-4B <ei46> 

27160 ON A GOTO 61000,62000,52000,63000,57 

000,53000,25000,27200 <1S9> 

27170 GOTO 27000 <074> 

27180 I <232> 

27190 REM QRAFIKTYP AENDERN <113> 

27200 IF GT=0 THEN QT-1 i PRINT"tSUP)" i G 

OTD Z7I05 <072> 

27210 ST=0 j PR1NT"<3UP}" s GOTO 27105 <101> 

27220 i <016> 

30000 REM ***************************** <03B> 

30010 REM •** AKTIENNAMEN AENDERN #** <033> 

30020 REH »*«*»•**»««•«•«•«»***«*•«»*#„ <05a> 

30025 I <027> 

30030 PRINT"<CLR,DOWN>" '<146> 

30040 PRINT" AKTIENNAMENLAENGE BIS 10 ZEIC 

HEN{DDWN>" ' ■4:Z33> 

30050 PRINT" ALTER AKTIENNAME = "jAN# . <173>' 
30060 PDKE 19,l!lNPUT" NEUEN AKTIENNAME 

"sAN«sPOKE 19,0 <099> 

30065 IF LEN(AN«)=12 THEN 30090 <11S> 

30070 IF LEN(AN*)>1Z THEN AN*=LEFT*(AN«,12 

)iBOTD 30090 <Z2B> 

300S0 FOR 1 = 1 TO .... 

EXT <156> 

30090 PRINT 8 PRINT"{UP,20R1BHT >"5 AN«;"<{105 


'ACEI" 

30100 PRINT"{DOWN,SPACEIRICHTIG 7 (J/N>" 
30110 SYS JN 

30120 IF A«-"N“THEN 30000 
30130 GOTO 2000 
30140 : 

35000 REM ***************************** 
35010 REM *** KURBE EDITIEREN *** 
35020 REM ••«*•**••*•«•••**»«•«••«••*«• 
35025 8 

35027 IF NR=1 THEN 2170 
35030 PRINT"{CLR,DaWN}" 

3S040 PRINT" DATEN EDITIEREN" 

35050 PRINT"{DOWN, 8 PACEIAKTIE 8 "|AN*j"{4SP 
ACElEINTRAEGEe"|NR-1 
35060 PRINT"{DDWN,5PACEJE - EINFUEQEN" 
35065 PRINT" A - AENDERN" 

LOESCHEN" 

CLEAR ALL" 

NAECHSTER EINTRAG" 
VORHERIGER EINTRAG" 
BPRINQEN" 

MENUE" 


35070 PRINT" L 
3507S PRINT" C 
35080 PRINT" + 

35090 PRINT" - 
35092 PRINT" 8 
35095 PRINT" M 
35100 PRINT"{3D0WN>" 

35105 8 
3S110 Z-1 

3S3115 IF Z<1 THEN Z-NR-1 

3S117 IF Z>NR-1 OR 2-0 THEN Z-1 

3512J9 QOBUB 35400 

3S160 POKE 1984,32 1 REM READY 

3516S SYS GA 

35170 IF'A»="*" THEN Z-Z+1 8 BOTO 35115 
35180 IF A«*"-" THEN Z-Z-1 1 BOTO 35115 
33105 IF A*-"S" THEN SYS IP,"{HOME,I5D0WN> 
EINTRAG«",Z 1 BOTO 35115 
35190 IF A*="M" THEN 2000 

35195 IF A*="A" THEN POKE 1984,160 1 GOSUB 
35S00 

35200 IF A*-"E" THEN POKE 1984,160 a GOSUB 
35500 

35205 IF A*="C" THEN NR=1 i GOTO 2000 
35210 IF A*="L" THEN PDKE 1984,160 s GOSUB 
35230 


<07B> 

<219> 

<056> 

<22B> 

<104> 

<14Z> 

<213> 

<083> 

<233> 

< 202 > 

<015> 

<06S> 

<013> 

<IZ 6 > 

<164> 

< 211 > 

<13B> 

<077> 

<019> 

<177> 

<114> 

<047> 

<B46> 

<02B> 

<074> 

<iBe> 

<052> 

<01S> 

<162> 

<0S6> 

<057> 

< 100 > 

< 212 > 

<B74> 

<126> 

<133> 

<067> 

<149> 


82 
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35215 

IF NR-1 THEN 2000 

<175> 


UX(D 

<075> 

35220 

GOTO S5115 

<197> 

40150 

MOX < I) “MOX (Ol TBX (I > »TBX (O i KUX ( D »K 


35225 

t 

<14B> 


UX(C> 

<14B> 

35230 

FOR I-Z TO NR-2 

<056> 

40160 

MQX(C)-MOX<0>iTQX<C)-TGX<0>iKUX(O-K 


35240 

TQX<I>-TBXa + l> 

<057> 


UX(0> 

<131> 

35250 

M0X(I)=MQX(I+1> 

<121> 

40170 

1 

<011> 

35260 

KUX(I>“KUX(1+1> 

<191> 

401B0 

NEXT I 

<129> 

35270 

NEXT 

<227> 

40190 

GOTO 2000 

<BB3> 

35272 

TGX(NR-l)-0 

<194> 

40200 

i 

<043> 

35274 

MaX(NR-l)“0 

<232> 

45000 

REM »*»»»***»»*•«*»«»•»•««•«*•*•» 

<0S1> 

35276 

KUXtNR-l)=0 

<01B> 

45010 

REM DIGK MODE «•* 

<169> 

3S2B0 

NR-NR-1 

<060> 

45020 

REM •*»»****«*#««««•»»«*******»*»11 

<071> 

35290 

RETURN 

<039> 

45025 

i 

<040> 

35295 

1 

<21B> 

45030 

PRINT"{CLR,DQWN>" 

<159> 

35300 

PRINT"<4UP>" 

<007> 

45040 

PRINT" DISK MODE" 

<244> 

35310 

SYS IP,"TAGi<4SPACE>",A 

<179> 

45050 

PRINT"(DOWN,BPACE}« - DISK STATUS" 

<211> 

35320 

IF A<1 OR A>31 THEN PRINT"(2UP>"iQ0T 


45060 

PRINT"(DOWN,BPACEIC ■ CATALDQ" 

<249> 


0 35310 

<003> 

45065 

PRINT"{DOWN,SPACEIM - MENUE" 

<Bia> 

35325 

TQX-A 

<147> 

45070 

PRINT"(DOWN,8PACE}BEFEHL NORMAL EINQ 


35330 

SYS IP, " MONAT i {2&PACE>'',A i MDX-A 

<06G> 


EBEN" 

<169> 

35340 

IF A<1 OR A>12 THEN PRINT"<2UP}"iG0T 


4S0G0 

PRINT"{DOWN}" 

<069> 


□ 35330 

<153> 

45090 

POKE 19,lllNPUT">"|D*iP0KE 19,0«PRIN 


35345 

MDX-A 

<20S> 


T 

<01Z> 

35350 

SYS IP,"KURa«<3SPACE>",A 

<1B0> 

45095 

IF D»-"M" THEN 2000 

<097> 

35360 

IF A<0 OR A>9999 THEN PRINT" {2UP>''iQ 


45100 

IF D*-"C" THEN 4SZ00 

<189> 


□TO 35350 

<0B1> 

45110 

IF D*-"8" THEN 45150 

<Z14> 

35365 

KUX>A 

<009> 

45120 

□PEN l,B,iS 

<073> 

33370 

RETURN 

<121> 

45130 

PRINT#1,D* 

<233> 

35360 

2 

<049> 

45140 

CLOSE 1 

<19Z> 

35400 

PRINT"{HOME,5D0WN,6LEFT}"t NR-1j"{LEF 


45150 

PRINT"(DOWN,RIBHT >"J 

<ais> 


T,SPACE}" 

<076> 

45160 

SYS D8 1 REH STATUS 

<115> 

35410 

PRINT"{lODOWNlEINTRAGs"|Z|"{LEFT,103 


45190 

SYS TA 1 GOTO 45000 

<176> 


PACE>” 

<147> 

45200 

1 

<217> 

35420 

PRINT" {DOWNlTAGs{4SPACE)"!T0X(Z);"<U 


45210 

REM DIREKTORY 

<05Z> 


EFT,SPACE}" 

<006> 

45220 

8 

<237> 

35430 

PRINT"MONATi {2SPACE>";M0X (Z> j " <1-EFT, 


45225 

SYS DR 

<203> 


SPACE}" 

<23S> 

45230 

8 

<247> 

35440 

PRINT"KURS!<36PACE}";KUX<Z> j"{LEFT,3 


45600 

SYS TA i BOTO 4S000 

<021> 


SPACE>" 

<192> 

45610 

8 

<119> 

35450 

RETURN 

<201> 

47000 

REM «*««*«*»«**«*»**»«*««*»***«** 

<019> 

35460 

. 

<129> 

47010 

REM *** BERECHNUNGEN **♦ 

<036> 

35500 

GOSUB 35400 

<141> 

47020 

REM ««***«**«**«*«»«"««****•»«**** 

<039> 

35505 

IP AS-"A"THEN GOSUB 35230 

<ia3£R 

47106 

« 

<008> 

35507 

GOSUB 35300 

<116> 

47030 

PRINT"(CLR.DOWNl" 

<1Z7> 

35510 

Z»! 

<220> 

47040 

PRINT" BERECHNUNGEN" 

<196> 

35520 

IF<MDX>MDX <NR-1>)DR(MOX=MOX<NR-1) AN 


47050 

PRINT"{DaWN,SPACE>-l- EFFEKTIVER KAU 



D T6X>TBX(NR-1))THEN 2-NR i GOTO 356 



FKURB" 

<0S0> 


60 

<O40> 

47060 

PRINT"(DOWN,SPACE}-2- EFFEKTIVER VER 


35530 

. 

<199> 


KAUFSKURS" 

<047> 

35540 

IF MOX>MaX(Z> THEN Z-Z+1 i GOTO 3554 


47070 

PRINT"(DOWN,SPACEl-3- EFFEKTIVER GEW 



0 

<104> 


INN" 

<0e5> 

35550 

IF TGX>TGX(Z) AND MOX-MOX(Z) THEN Z- 


47075 

PRINT"(DOWN,SPACE}-4- EFFEKTIVE DIVI 



Z+1 > BOTO 3SSS0 

<229> 


DENDE" 

<127> 

35560 

IF Max-MDX(Z>AND TGX=TGX<Z)THEN 3569 


470B0 

PRINT"(DOWN,EPACE}-5- ZU ERWARTENDER 



0 

<13B> 


VERKAUFSKURS" 

<249> 

35570 

FOR J»NR TO Z STEP -1 

<029> 

47090 

PRINT"<DaWN,SPACE}-6- KURSE DIBKUTIE 


35590 

TeX(J+l)-TQX(J) 

<069> 


REN" 

<040> 

35610 

M0X(J+1)»M0X<J) 

<197> 

47100 

SYS GA 

<051> 

35630 

KUX<J+1)»KUX<J) 

<0B2> 

47110 

A-ASC(A«)>A“A-48 

<205> 

35650 

NEXT 

<B99> 

47120 

IF A<1 OR A>6 THEN 47100 

<2S5> 

3S6SS 

1 

<070> 

47130 

DN A GOTO 47150,47370,47600,47850,48 


35660 

NR-NR4-1 

<060> 


000,25000 

<O09> 

35670 

TQX<Z>»TBX 

<02S> 

47140 

1 

<125> 

356B0 

MDX(Z>=MOX 

<009} 

47150 

PRINT"(CLR.DOWN,RIGHTlEFFEKTIVER KAU 


35690 

KUX<Z)»KUX 

<159> 


FPREIS{DDWN}" 

<191> 

35700 

RETURN 

<197> 

47160 

SYS IP,"KAUFPREIS DER AKTIE i",KPiIF 


35710 

t 

<125> 


KP-O THEN PRINT"{2UP}"iBDTa 47160 

<11B> 

40000 

REM ***«•*«•**••«•*•**•**•'»*«•**• 

<133> 

47170 

SYS IP,"{DOWN>ANZAHL DER AKTIEN{3SPA 


40010 

REM *** DATEN SORTIEREN *** 

<05i> 


CE}i",KNilF KN-0 THEN PRINT"{3UP}"|B 


40020 

REM ««»*•*««•*»«*•«•««•**«»*»•*•» 

<153> 


□TO 47170 

<173> 

40025 

1 

<122> 

471G0 

GOSUB 4B920 

<226> 

40027 

IF NR"1 THEN 2000 

<161> 

47230 

K“KS+BU+CO+PR+AB 

<101> 

40030 

PRINT"{CLR,DOWN}" 

<24t> 

47240 

KA« I NT (K/KN« 100-4-. 5) /100 

<233> 

40040 

PRINT" DATEN SORTIEREN " 

<079> 

47250 

PRINT"{DOMNIANZAHL i{19BPACE}"tiSYS 


40050 

PRINT"{DOWN,BPACE}BITTE ETWAS GEDULD 



FZ,KN,6 

<166> 



<172> 

47260 

PRINT"KAUFPREIS i {14BPACE}DM'’f iSYS F 


40060 

, 

<157> 


Z,KP,6 

<177> 

40070 

FOR I-l TO NR-1 

<029> 

47265 

PRINT"KAUFPREIB GESAMT i{78PACE1DM"| 


400B0 

ZK32760 

<096> 


iSYS FZ,Ke,6 

<000> 

40090 

FOR J-I TO NR-1 

<060> 

47270 

PRINT"B0ER8ENUM8ATZ5TEUER I{4SPACE1D 


40100 

S»MOX < J >•100+T6X(J ) 

<162> 


M"n8’<S FZ,BU,6 

<242> 

40110 

IF S<Z THEN C=J t Z=B 

<0S4> 

47250 

PRINT"COURTABE i{15SPACE1DM"|i8YB FZ 


40120 

NEXT J 

<077> 


,C0,6 

<115> 

40130 

• 

<227> 




40140 

MOX (0 > -^MOX < 1) t TGX (0) -TGX (Dl KUX (0 > °K 


Listing 1. (Fortsetzung) 
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47290 PRINT'-PROVISION i {I4BPACE>DH“j iBV8 F 

Z,PR,6 <B55> 

47300 PRINT"ABW1CKLUNB8QEBUEHR j{5SPflCE>DH 

"jlBYS FZ.AQ.Ö <025> 

47310 PRINT 

47320 PRINT'’EFF. KAUFPREIS GESAMT s {2SPACE 

>DM’'jiSVB FZ,K,i <049> 

47330 PRINT'-EFF. KAUFPREIS / AKTIE t DM"j« 

SYS FZ,KA,6 <01ä> 

4733S GDSUB 4ae&0 <B94> 

47340 SYS TH <253> 

47350 GOTO 47000 <203> 

47360 I <091> 

47370 PRINT"tCLR,DOWN,RIBHTIEFFEKTIVER VER 

KAUFPREIB<DOWN>" <073> 

473B0 8YB IP,"VERKAUFPREIS DER AKTIE i-.KP 
lIF KP-0 THEN PRlNT"<2UP>"iBOTO 47SS 
0 <169> 

47390 SYS :P,"{D0WN>ANZAHL DER AKTIEN<6SPA 
CE>l'‘,KNiIF KN“0 THEN PRINT" {3UP>"!G 
OTO 47390 <076> 

47400 eOBUB 4B920 <192> 

47450 K-KB-BU-CO-PR-AB <101> 

47460 KA>INT(K/KN»100+,S)/100 <199> 

47470 PRINT" <DOWN>ANZAHI. i <22BPACE>"j «SYS 

FZ,KN,6 <132> 

47480 PRINT"tUPIVERKAUFPREIB i<14BPACE>DM" 

!iBYSFZ,KP,6 <026> 

47490 PRINT"{UPTVERKAUFPREIS BESAMT l<7BPA 

CE>DM"tiSYS FZ,KB,6 <246> 

47500 PRINT"tUP>BBERSENUMSATZ9TEUER s{7SPA ’ 

CE>DM"jsSYS FZ,BU,6 <101> 

47510 PRINT"<UP)COURTABE :{lBSPACE>DM"jiBY 

S FZ,CO,6 <0a7> 

47520 PRINT"tUPIPROVISION s<17SPACE>DM"ssS 

YB FZ,PR,6 <212> 

47530 PRINT"<UP)ABWICKLUNBSBEBUEHR sIBSPAC 

EJDM-'üBYB FZ,AB,6 <1S4> 

47540 PRINT"<UP>'i i TITT11TTt t'TiYiTY tYnTT 


47550 PRINT"{UPIEFF. VERKAUFPREIS BESAMT s 
I2SPACE}DM"JsSYS FZ,K,6 
47560 PRINT"<UP>EFF. VERKAUFPREIS / AKTIE 
8 DM"j!BYB FZ,KA,6 
47565 BOSUG 4B860 
47570 SYS TH 
47560 GOTO 47000 
47590 8 

47600 PRINT"<CLR,DaWN,RI6HT}EFFEKTIVER BEW 
INN<DDWN>" 

47610 SYS IP,"KAUFPREIS DER AKTIE<4GPACE}> 
",KEilF KE-0 THEN PRINT"{2UP>"iGOTO 
47610 

47615 SYS IP,"tDOWNlVERKAUFPREIS DER AKTIE 
8 ",KViIF KV-0 THEN PRINT"{3UP}"tBOT 
□ 47615 

47617 SYB 1P,"<D0WN)ANZAHL DER AKTIENt6 BPA 
CE}b",KNiIF KN-0 THEN PRINT"I3UP>"!B 
OTO 47617 
47620 KP-KE 
47630 GOSUB 4B920 
47640 K1*KB+BU+C0+PR+AB 
47650 K2«INT<K1/KN«1O0+.S)/10O 
47660 KP-KV 
47670 GOSUB 4B920 
476B0 K3-KB-BU-C0~PR-AB 
47690 K4"1NT<K3/KN*100>.S>/100 
47700 K5-INTt(K3-Kl>«I0O+.5>/100 
47710 K6"INT(<K4-K2>*100+.S)/1O0 
47715 PZ-1NT<K5/K1*1000>/10 
47720 PRINT"<DOWN>ANZAHL i{21SPACE>"nSYS 
FZ,KN,6 

47730 PR1NT"KAUFPREIS 8tl6SPACE)DM"stSYS F 
Z,KE,6 

47740 PRINT"VERKAUFPREIB i {13SPACe>DM"ji SY 
S FZ,KV,6 

47750 PRINT"EFF. KAUFPREIS t<11GPACE}DM"|■ 
SYS FZ,K2,6 

47760 PRINT"EFF. VERKAUFPREIS i{8SPACETDM" 
(sSYS FZ,K4,6 

47770 PRINT"EFF. KAUFPREIS GESAMT 8 <48PACE 
>DM"j!3YS FZ,Kl,6 

47775 PR1NT"EFF. VERKAUFPREIS BESAMT e DM" 
MSYS FZ,K3,6 


<231> 

«Zr30> 

< 101 > 

<070> 

<229> 

<179> 

<065> 

<077> 


< 221 > 


<254> 


< 0 ia> 

<013> 

<16B> 

<124> 

<107> 

< 121 > 

<20e> 

<009> 

<165> 

<00B> 

<044> 

<153> 

<128> 

<12B> 

<225> 

<17S> 

<109> 

<030> 

<170> 


47700 PRiNT- ytTrfT iiimvi ' rH iHTTiiintTn 

47790 PRINT"TUPJEFF. GEWINN BESAMT i<7BPAC 

EIDM-jbSYS FZ,K5,6 <O02> 

47B00 PRINT'-EFF. GEWINN / AKTIE i<6BPACE)D 

M-jiSYB FZ,K6,6 <211> 

47805 PRINT-'PRDZENTSATZ ZU EFF. KAUFP. {2SP 

ACE>X"|8SYS F2,PZ,6 <164> 

47810 BOSUB 4BB60 <061> 

47820 SYS TH <225> 

47B3B GOTO 47000 <175> 

47840 8 <061> 

47850 PRINT"<CLR,DÜWN,RIBHT>EFFEKTIVE DIVI 

DENDEIDOWN)" <009> 

47860 SYS IP,"DIVIDENDE PRO AKTIE |",DV|IF 

DV-0 THEN PRINT"t2UP>"iBOTO 47860 <023> 

47870 SYS IP,"<D0WN>AN2AHL DER AKTIEN<3BPA 
CE>8",KN8lF KN"»0 THEN PRINT" {3UP> " i B 
OTO 47B70 <078> 

47BB0 K8-DV»0.2S*KN '<167> 

47890 DB-DV*KN-KB <150> 

47900 DI-INT(DG/KN*100+.5)/100 <151 > 

47910 PRINT"IDDWNJANZAHL i<19aPACE>"!iSYS 

FZ,KN,6 <064> 

47920 PRINT'-DIVIDENDE 8 <14BPACE>DM"{ sSYS F 

Z,DV,6 <021> 

47930 PRINT"D1VIDENDE BESAMT iC7SPACE}DM"| 

sBYS FZ,DV»KN,6 <027> 

47940 PRINT"KAPITALERTRAQSSTEURER i{2SPACE 

>DM";:SY9 FZ,KB,6 <220> 

47950 PR 1 NT " T f H ' t ' If TT ' t ' I ' t - r ' lT 11 T 11 T 11 T n tf fr 


<028> 


47960.PRINT"EFF. DIVIDENDE GESAMT 8<2SPACE 
>DM"j 8SYS FZ,DG,6 

47970 PRINT"EFF. DIVIDENDE / AKTIE i DM"js 
SYS FZ,DI,6 

47975 PRINT"<D0WN,RIGHT}KAP1TALERTRABBBTEU 
ER8<2SPACEJ25,00 X" 

47980 SYS TH 
47990 GOTO 47000 
4S000 8 

4801P^"RINT"<CLR,DDWN,R1GHT>ZU ERWARTENDER 
VERKAUFSKURS<DDWN>" 

4B020 SYS IP,"KAUFPREIS DER AKTIE<4BPACE>8 
",KPiIF KP=0 THEN PRINT"<2UP>"!GOTO 
48020 

48030 8YS IP,"<DaWN>ANZAHL DER AKTIENfSSPA 
CE>f",KNsIF KN=0 THEN PRINT"<3UP>"8G 
OTO 4G030 

4B040 SYS IP,"<DDWN>ZU ERW. GEWINN / AKTIE 
8 ",GE8lF GE=0 THEN PRINT"<3UP>"8BOT 
□ 48040 

4B0S0 GOSUB 4S920 
4B060 K“KB+BU+CD+PR+AQ 
48070 VE»K+GE«KN 

4S080 VW-INT(IVE+AG)/0.9B67«1B0+. 5)7100 
4G090 VA-INT(VW/KN*100+.5>/100 
48100 PRINT"CDOWNJANZAHL t<19SPACE>"|8SYS 
FZ,KN,6 

4B110 PRINT-'KAUFPREIB « <14SPACE>DM" t s SYS F 
Z,KP,6 

48120 PRINT-KAUFPREIS BESAMT i<7SPACE>DM"i 
sBYS FZ,KG,6 

4B125 PRINT"ZU ERW. GEWINN 8I98PACE>DM"ii8 
VS FZ,BE«KN,6 

48130 PRINT'-EFF. KAUFPREIS 8 <98PACE>DM" J i S 
YB FZ,K,6 

40140 PRINT'-EFF. VERKAUFSPREIS ! {58PACETDM 
"llBYB FZ,VE,6 

40150 PRiNT-'-nTrrnTnTrTrrTTrrrrmTTTTTr 
TTTTTTTTT-' 

48160 PRINT'-ZU ERW. VERKAUFSPREIS i <2SPACE 
>DM'-|l6YS FZ,VW,6 
48170 PRINT-ZU ERW. VERKP. 

SYS FZ,VA,6 
48175 GOSUB 4BS70 
4B1S0 SYS TH 
48190 BOTO 47000 
48B60 t 

4SB70 PRINT"<DOWN,BPACE>BQERSENUMSATZSTEUE 

R I<3SPACE>0,25 X" <09B> 

48880 PRINT" COURTAGE I<14SPACE>0,08 X” <114> 

4BB90 PRINT" PROVISION ;<13SPACE>1,00 X" <139> 

4B900 PRINT" ABWICKLUNBSGEBUEHR 8 DM 3,00" <103> 

48910 RETURN <199> 


/ AKTIE I DM-'|| 


<157> 

<02B> 

<238> 

<131> 

<0B1> 

<223> 

<143> 


<199> 


<254> 


<244> 

<07B> 

<249> 

< 222 > 

<103> 

<11B> 

<254> 

<009> 

<093> 

< 221 > 

<130> 

<143> 

<230> 

<126> 

<034> 

<23B> 

<077> 

<027> 

<065> 
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4892(9 

3 

<127> 

51190 

SYS CP,0,39,AN*,1 

<047> 

48938 

KG®KP*KN 

<237> 

51200 

g 

<121> 

4B940 

BU»INT(KB*0.25+.51/100: REM BQERBENU 


51205 

Y-23 

<025> 


MSATZBTEUER » 0.257. 

<146> 

51210 

SM=MOX<ED):SN=0:SYS 88 , SN,56,SM 

<170> 

48950 

CO-INT(KQ*0.08+.51/100: REM COURTAGE 

<052> 

51220 

FOR 1=1 TO <LD-ED)+1 

<21B> 

40960 

PR=INT(KB+.51/100 s REM PROVISIO 


51230 

X*=RIGHT*<8TR»(TBX<I+ED-1) i ,2) 

<237> 


N 

<009> 

51240 

X-5+I*SW/B 

<119> 

49970 

AG»3 : REM ABMICKLUNOSGEBUER 

<2S2> 

51250 

SYS CP,Y,X,X»,1 

<103> 

49980 

RETURN 

<013> 

51255 

IF BM <> MD7.(I+ED-1> THEN SM-MOX<I+E 


48990 

1 

<197> 


D-1) 1 8N-8N+1 1 SYS BB.BN,X*B+24,5M 

<105> 

50000 

REM •«•*•••«•••*••«•••««»»•*»«*»• 

<227> 

51260 

NEXT 1 

<033> 

50010 

REM *** PROGRAMM ENDE •** 

<034> 

51270 

1 

<191> 

50020 

REM *»«#»»«*«*««»•«*«*»«**«*#«*»* 

<247> 

51280 

IF NOT(H> THEN 51330 : REM IF H-0 

<0607 

50025 

1 

<216> 

51290 

HW=0:NW>32767 

<203> 

S0030 

PRINT"(CLR.DOWN}" 

<079> 

51300 

FOR I-ED TO LD 

<079> 

50040 

PRINT" PROGRAMM KANN MIT 'GOTO 2000' 


51310 

IF KUy.<I)->HW THEN HW-KUy.<l) 

<165> 


WIEDER" 

<017> 

51320 

IF KUX(I>»<NW THEN NW-KUX(I> 

<1B4> 

50050 

PRINT" GESTARTET WERDEN UND OHNE DAT 


51330 

NEXT I 

<103> 


EN VERLUST" 

<096> 

51340 

HW-INT(<HW+10)/10>«10 

<011> 

50060 

PRINT 

<12l> 

51350 

NW>1NT(NW/10)«10 

<174> 

50070 

PQKE 808,237 

<011> 

51360 

DF=-(HW-NU)/10 

<142> 

' 50080 

END 

<041> 

51370 

3 

<035> 

50090 

1 

<025> 

51380 

X-0iY—1 

<06S> 

51000 

REM *»****«'»«*****'»***»«'»*•*••*** 

<2U> 

51390 

FOR I=HW TO NW STEP DF 

<034> 

51010 

REM *** GRAFIK ZEICHNEN *** 

<i69> 

51400 

Y-Y+2 

<201> 

51020 

REM 

<231> 

51420 

X»- RIGHT*("<4SPACE}"+STR»<1),4) 

<064> 

51030 

; 

<203> 

51430 

BYB CP,Y,X,X*,0 

<251> 

51050 

IF ED-0 THEN PRINT"KEINE DATEN VORHA 


51440 

NEXT I 

<213> 


NDEN‘':SYS TA : RETURN 

<147> 

51450 

t 

<115> 

51060 

IF LD-ED<2 THEN PRINT"ZUWENIO DATEN" 


51460 

KN»172:MK»160/< H W-NW) 

<072> 


:SVS TA :RETURN 

<192> 

S1470 

i 

<137> 

51065 

T 

<240> 

51480 

IF QT THEN 51600 : REM IF BT-1 

<063> 

51070 

SW-8:DE~52 

<00S> 

51490 

1 

<157> 

51080 

IF LD-ED<16 THEN SW=16 :DE*60 

<066> 

51500 

FOR I=ED TO LD-1 

<000> 

51090 

; 

<009> 

51510 

X1»(I-ED)»SW+DE 

<016> 

51100 

SYS AE : REM GRAFIK EIN 

<220> 

51520 

X2=X1+SW 

<157> 

51160 

SYS CP,23,0,"KURS",0 

<204> 

51530 

Y1 = I NT (KN- (KU7. (15 -N W > *MK ) 

<092> 

51170 

SYS CP,24,0,"TAB".0 

<093> 




51180 

SYS CP,0,32,"AKTIE:",0 

<23B> 

LIstfng 1. (Fortsetzung) 
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51540 Y2“1NT<KN-<KUX(I + 1.>-NW)»MK) <1B1> 

51560 BYS LI,X1,Y1,X2,Y2 <0B5> 

51570 SYS SP,X2,Y2 <120> 

515B0 NEXT I <099> 

515B5 BDTO 51695 <164> 

51590 t <001> 

51600 Y2>KN <064> 

51605 IF BMoB THEN Bl-2iB2<>>2 i GOTO 51620 <093> 

51610 Bl-6(B2-5 <202> 

51620 FOR I»ED TO LD <145> 

S1630 X><I-ED)*SM-fDE <20S> 

51640 Xl-X-Bl <167> 

51650 X2-X+B1 <121> 

31660 Yl-INT ((<N-<KUX < 1) -NWJ*MK) <222> 

51670 SYS FB,X1,Y1,X2,Y2 <035> 

51680 NEXT I <199> 

51690 j <101> 

51695 BY9 flO i REM WAIT, GRAFIK AUS <072> 

51720 RETURN <215> 

51730 I <143> 

52000 REM ««•»««*»**•«»«*•«««**»•**»••• <07S> 

52010 REH #*# JAHRESGRAFIK <D) *** <076> 

52020 REM »•«•»•**•»«»»»«*«»*«**«»«**«« <215> 

52030 I <1B9> 

52035 FOR I - I TO 12 J KMX(I>-B ! aXlDcsB 

I NEXT I <057> 

52040 FOR 1 - 1 TO NR-1 <061> 

52050 M>MOX(I) <104> 

52055 MWX(M>-MWX(M)+KUX<1> <05B> 

52060 JX<M)"JX<M)+1 <22B> 

52062 NEXT I <073> 

52065 FOR I ■» 1 TO 12 <140> 

52067 IF JX(I> > 0 THEN 52080 <095> 

52070 MWX(I>=INT(MWX(I)/JX(I)+.5) <115> 

52080 NEXT I <091> 

52090 s <249> 

52095 HW-0SNW-32767 <246> 

52100 FOR I » 1 TO 12 <175> 

52105 IF MWX(I>=0 THEN 52130 <1B4> 

52110 IF MWX<I)>HW THEN HW=MWX(I) <037> 

52120 IF MWXtlXNW THEN NW=MWX(I) <011> 

52130 NEXT I <141>. 

52140 HW=INT((HW-*-lO)/10)*10 <049> ' 

52150 NW=INT(NW/10>*10 <212> 

42B3 : <195> 

52160 SU»16 <060> 

52165 t <B6B> 

52170 BY9 AE t REM SRAFIK EIN <01B> 

52213 SYS CP,23,0,"KURS",0 <241> 

52216 SYS CP,24,0,'''MON. " ,0 <065> 

522ia SYS CP,0,32, "AKTIE! ■',0 <004> 

52220 SYS CP,0,39,AN*,1 <061> 

52224 I <129> 

52225 Y-23 <029> 

52230 FOR 1 = 1 TO 12 <051> 

52240 X*“RIGHT#<BTR*(n,2) <002> 

52260 X=-S+I*5W/B <123> 

52270 SYS CP,Y,X,X*,1 <107> 

52200 NEXT I <037> 

52290 j <I95> 

52295 X-0lY»-1 <220> 

52300 DF—<HW-NW)/10 <066> 

52310 FOR I - HW TO NW STEP DF <194> 

52320 Y-Y+2 <105> 

52330 X»-RIEHT*<"t4BPACE>"+STR*(I>,4) <214> 

52340 BYS CP,Y,X,X*.0 <14S> 

52350 NEXT I <107> 

52360 > <009> 

52370 KN-172IDE-44 <0S4> 

523B0,MK-160/(HW-NW). <126 > 

52390 I <039> 

52400 IF ST THEN 52650 i REM IF QT-1 <104> 

52410 I <0S9> 

52420 FOR I - 1 TD II <240> 

52425 IF <MWX(I)=0> AND THEN 52610 <120> 

52430 IF MWX(n=0 THEN 52520 <12B> 

52440 IF (MWX<lfl>«>0) AND (MWX<I-l)-0) THE 

N 52550 <223> 

52445 IF MWX<I+l)-0 THEN 52520 <20a> 

524S0 XI-I*SW+DE <116> 

52460 X2-X1+BW <079> 

52470 Y1-INT<KN-(MWX<I>-NW)*MK) <062> 

524B0 Y2=INT(KN-(MWX(I-H >-NWl*MK> <153> 

52500 BYS LI,X1,Y1,X2,Y2 <O09> 

52510 SYS SP,X2,Y2 <044> 


52520 NEXT I <023> 

52530 BOTD 52700 <203> 

52540 ! <191> 

S2550 X»INT(I*8W+DE) <037> 

52560 Y=INT < KN-(MWX <I)-NW)*MK > < 043 > 

52570 SYS SP.X.YsSYS SP,X+1,Y <131> 

52SB0 GOTO 52520 <0S9> 

52590 9 <241>' 

52610 IF MUX(12)-0 THEN 52520 <023> 

52620 I“l+1 <022> 

52630 GOTO 52550 <046> 

52640 I <035> 

52650 FOR I - 1 TO 12 <217> 

52655 IF MWX<I>»0 THEN 52760 <229> 

52660 X-I»8W+DE <052> 

52670 Xl-X-6 <126> 

526B«I X2-X+S <207> 

52690 Yl-lNT(KN-(MWX{I)-NW)*MK) <02B> 

52700 Y2-KN <148> 

S2730 SYS FB,XI,Y1,X2,Y2 <079> 

52760 NEXT I <009> 

S2770 I <167> 

527B0 BYS AO i REM WAIT, GRAFIK AUS <143> 

52S10 GOTO 27000 <0S9> 

52020 9 <217> 

53000 REM •**»•*»•**##*******#********* <179> 

53010 REM *»* CHARTS-GRAFIK **• <022> 

53020 REM •••**•**»*••*•••«••»«««*«»*«» <199> 

53030 I <173> 

53035 IF NR<»11 THEN PRINT"<DOWN,SPACE>KEI 
NE CHARTB-QAFIK MOEGLICH"9 SYS TA 9 QOT 
D 27000 <122> 

53040 EN=09EB<°1 <034> 

53050 EBX(EN)«EB <132> 

53060 LBX(EN)=EB+127 <I61> 

53070 IF LBX(EN)=NR-1 THEN 53200 <109> 

53075 IF LBX(EN)>NR-1 THEN LBX<EN>=NR-1 s 

BOTO 53130 <a3a> 

53080 IF M0X(LBX(EN)><>MQX(LBX(EN)+1) THEN 

53100 <1B7> 

53090 IF M0X(LBX'(EN)-1)=MDX(LBX(EN>> THEN 

- - :.BX(EN)=LBX(EN)-1 : GOTO 53090 <206> 

53095 LBX(EN>=LBX(EN)-1 <252> 

53100 EB»LBX{EN)+1 <012> 

53110 EN=EN+1 <136> 

53120 GOTO 53050 <140> 

53130 REM RANDUNTER8UCHUNG <01S> 

53140 IF LBX(eN»-EBX(EN>>10 THEN 53200 <065> 

53150 LBX < EN-1)=LBX(EN-1>-1 <105 > 

53160 IF M0X(LBX(EN-1>-1)=M0X(LBX<EN-1))TH 

EN LBX(EN-l)-=LBX(EN-l)-l9GaTa 53160 <242> 

53170 LBX(EN-I>=LBX(EN-1)-1 <125> 

531B0 EBX(EN)=LBX(EN-l)-»-l <010> 

53190 GOTO 53140 <17a> 

53195 I <0B2> 

53200 PRINT''<CLR,DDWN,SPACE>CHARTS-BRAF1K" <009> 
53210 PRINT’'{DaWN,SPACE>WELCHE DER"EN+1"SE 

ITEN MOLLEN SIE SEHEN" <013> 

53215 PRINT"<DDWN,8PACE>0 9 BRAFIK-MENUE" <224> 
53220 FOR 1-0 TO EN <029> 

53230 PRINT "{DDWN>"I+1 "9 VON"TGX(EBX(1))" 

tLRrr>.'’MOX(EBX(I) >"<LEFT>. BIS"| <24S> 
53235 PRINT TBX (LBX (I) > " {LEFT>. "MDX (LBXd) 

)"tLEFT>." <106> 

53240 NEXT <l6i> 

53250 SYS IP,"<DOWN,SPACE>SEITE 9 ",M <043> 

53255 IF M->0 THEN GOTO 27000 <002> 

53260 M»>INT(M>-1 <203> 

S326S IF M<0 OR M>EN THEN PRINT" <3UP >'’9 BO 

TO 53250 <047> 

53270 ED-EBX(M>iLD=LBX<M) <096> 

532B0 I <B68> 

53300 HW-KUX(l) iNW-KUXd) <163> 

53310 FOR 1-1 TO NR-1 <06I> 

53320 IF KUXd)->HW THEN HW-KUXd> <143> 

S3330 IF KUXd)-<NW THEN NW-KUX (1 > <082> 

S3340 NEXT I <0B1> 

53350 HW=INT((HW+10)/10>*10 <245> 

53360 NW>>INT(NW/10)»10 <152> 

53370 DF—(HW-NW)/10 <120> 

533B0 I <013> 

53400 SW-29BT-09DE-S2 <144> 

53410 I <043> 

53420 SYS AE 9 REM GRAFIK EIN <254> 

53430 SYS CP,23,0,"KURS",0 <1BB> 




86 


SONDERHEFT 23 











C64 


FINANZEN 


53440 

SYS CP,24,0,"MaN.",0 

<019> 

SS120 

NEXT I 

<0357 

53450 

SYS CP,0,32,"AKTIE«”,0 

<222> 

58125 

IF LD=0 THEN 25000 

<1897 

53460 

SYS CP,0,39,AN*,1 

<03l> 

58130 

1 

<1937 

53470 

B 

<I03> 

58140 

PRINT"ICLR,DOWN,BPACE7MDNAT-B1LANZ" 

<1957 

53490 

M-0tY“23 

<23B> 

SB 150 

PRINT" MONAT« ";M 

<0817 

53500 

FOR I-l TO <LD-ED>+1 

<210> 

58160 

BOTO 60060 1 REM BILANZ 

<2127 

53S10 

IF MDX(I*ED-1)»M THEN 53560 

<162> 

50170 

t 

<2337 

53S20 

M-M0X<1+ED-1) 

<1S0> 

59000 

REM «*««»*««»*****»*•****»**»*•*« 

<0817 

S3S30 

X*>fiIGHT*<STR*(M) ,2) 

<0307 

59010 

REM •** BILANZ BEST. ZEITRAUM **» 

<0007 

53S40 

X-6-<-INT (( !*SW-^3) /8> 

<231> 

59020 

REM »**<•••«»•*•««•*«*«•«•**««•*• 

<1017 

53550 

SYS CP,Y,X,X»,1 

<117> 

59030 

i 

<0757 

53560 

NEXT 

<229> 

59035 

IF NR-1 THEN 25140 

<1667 

53570 

1 

<205> 

59040 

PRINT"<CLR,DOWN,5PACE7BILANZ VON BES 


53580 

SOBUB 51360 

<109> 


T. ZEITRAUM" 

<1217 

53590 

PRINT"t3UP>"l0aTa 53250 

<191> 

59080 

PRINT"{SPACE,DOWNISEBEN BIE ANFANBS- 


53600 

t 

<23S> 


UND ENDZAHL EtN.{DOUN>" 

<1957 

56000 

REM *•«»»«««•*»»««*«»•**••**•»**• 

<129> 

59090 

SYS TA 

<2077 

56010 

REM **• AUSDRUCK MIT DIFF.AN. *** 

<159> 

59100 

FOR I-l TO NR-1 

<0077 

56020 

REK «ff«««»«*«««»«*««»««**«**»«**» 

<149> 

59110 

PRINT ...."MOXCD"{LEF 


56030 

1 

<123> 


T>.", 

<0077 

56035 

IF NR-1 THEN 25140 

<214> 

59115 

IF PEEK(214>-24 THEN BY9 TH|PR1NT"{C 


56040 

PRINT"<CLR,DOWN>" 

<247> 


LR>";«IF A*-"Q"THEN I-NR-llNEXTsBOTO 


56050 

PRINT" AKTIENKURSE MIT DIFFERENZANBA 



25000 

<1807 


BE<9SPACE>AU8QEBEN" 

<171> 

59120 

NEXT I 

<0177 

56060 

PRINT"<D0WN,SPACE>AU8GABE AUF 8ILDSC 


59125 

PRINT 

<0407 


HIRM ODER DRUCKER" 

<194> 

59130 

SYS IP,"{DOWN>ERSTE ZAHL«",ED«ED-INT 


56070 

PRINT" (B/D) ?" 

<026> 


(ED) 

<1717 

56080 

SYS BD 

<151> 

59140 

SYS IP,"LETZTE ZAHL«",LDlED»INT(ED) 

<2297 

56090 

IF A*="B"THeN OPEN 1,3,0JQOTD 56110 

<036> 

59145 

IF ED<1 DR LDXNR-1) OR ED=> LD THEN 


S6I00 

OPEN 1,4,0 

<077> 


PRINT"{4UP>'‘«B0Ta 59130 

<1417 

56110 

PRINTRI 

<2087 

59150 

PRINT”{CLR,DOWN>" 

<0557 

56120 

PRINTRl," AKTIE i "jAN# 

<1977 

59160 

PRINT" BILANZ VON BEBT. ZEITRAUM" 

<1017 

56130 

PRINTttl," TTTTTTTTTTTTTTTTTTTTTTTTTf 


59170 

GOTO 60060 : REM BILANZ 

<2067 


T" 

<1267 

S91B0 

t 

<2277 

56135 

PRINTRl," EINTRAEGEb"!NR-I 

<0267 

60000 

REM ***************************** 

<0657 

56137 

PRINTRl 

<2357 

60010 

REM *** BILANZ **• 

<0517 

56150 

SYS FA,T6X<1) .MOXd» ,KUX(I) 

<0417 

60020 

REM ***************************** 

<0857 

56160 

PRINTHl,AS* 

<2107 

60030 

8 

<0597 

S61S0 

FDR 1=2 TO NR-i 

<1697 

60035 

IF NR-1 THEN 25140 

<1507 

56200 

DI=KUX(I)-KUX(I-1) 

<0567 

60037 

ED-l!LD=NR-l 

<2347 

56210 

SYS FD.TBXCI),MOX<I),KUXII),DI 

<1647 

60040 

PRINT"{CLR,DaWN>" 

<1837 

56220 

PRINTRl,AS* 

«aWFH 

. 60S5» 

£;niNT'’ BILANZ" 

<1047 

56230 

IF PEEK(2I4)=24 THEN SYS GAsPRINT"<C 


Äei060 

KRINT"{DOWN,SPACE>AUSBABE AUF BILDSC 



LR>"5!lF A*="Q" THEN I=NR-1JNEXTiBOT 



HIRM ODER DRUCKER" 

<1307 


0 56290 

<0597 

60070 

PRINT" (B/D) ?" 

<2167 

56280 

NEXT I 

<2277 

600B0 

SYS BD 

<0857 

56285 

SYB TA 

<1967 

60090 

IF A*=”B"THEN OPEN 1,3,0«GDTD 60110 

<1B2> 

56290 

CLOSE 1 

<1647 

60100 

OPEN 1,4,0 

<0117 

56310 

BOTD 25000 

<2257 

60110 

CMD 1 

<1627 

56320 

g 

<1617 

60120 

PRINT" AKTIEOBPACET: {2SPACE>"iAN* 

<0907 

57000 

REM ***************************** 

<1137 

60130 

PRINT" EINTRAEQE{4SPACE}s "j ED J"-"|L 


57010 

REM »** GRAFIK L. 15/30 KURSE *** 

<1327 


D 

<0997 

57020 

REM ***************************** 

<1337 

60140 

PRINT 

<0397 

57030 

1 

<1077 

60145 

1 

<1747 

57040 

SYS IP,”{D0MN>15 ODER 30 KURSE",M 

<1367 

60150 

Al*-" ERSTER KURS{2SPACE>s{38PACET" 

<2337 

57050 

IF M015 AND MO30 THEN PRINT" {3UP>" 


60160 

A2»-" LETZTER KURS «{3BPACEJ" 

<1827 


iBQTO 57040 

<1247 

601B0 

A1»-A1*+RIBHT*(STR*(TQX(ED)),2)+". " 


57055 

LD"NR-1;H"-1 

<1357 


+RIGHT*(BTR*(MOX(ED)>,2>+".{2SPACE7D 


57060 

IF NR<-16 THEN ED-liGOSUB 51000;GOTO 



M " 

<0197 


27000 

<2467 

60190 

A1-KUX(ED> 

<0107 

57070 

IF M=1S THEN ED>NR-16sG0SUD 510001 GO 


60210 

A2*-A2*+RIQHT*(STR*(TGX(LD)),2)+", " 



TO 27000 

<2457 


+RIGHT*(8TR*(M0X(LD)>,2)+".{2SPACE7D 


57080 

IF NR<-31 THEN ED-1<G08UB S1000IGOTO 



M " 

<1527 


27000 

<0067 

60220 

A2-KUX(LD) 

<0627 

57090 

IF M=30 THEN E0=NR-31■GQSUB 510001 BO 


60230 

PRINT Al*j »SYS FZ.Al 

<0617 


TO 27000 

<0077 

60240 

PRINT A2*jlSYa FZ,A2 

<1197 

S7100 

GOTO 57000 

<0557 

60250 

PRINT 

<1517 

57120 

B 

<0B3> 

60252 

t 

<0277 

58000 

REM *«*«•««««*•«»•«•«*•«*•«*«*«•* 

<0977 

60254 

D-B 

<2227 

58010 

REM *** MONATS-BILANZ *** 

<1547 

60256 

HN-ED«HM«KUX(ED) 

<0327 

SB020 

REM •«•*••*•**«*»***«*»***•*»**»* 

<1177 

60258 

NN-ED«NM-KUX(ED> 

<0647 

58030 

t 

<0917 

60260 

FOR I-ED TO LD 

<1497 

58035 

IF NR-1 THEN 25140 

<1027 

60265 

D-D+KUX(I) 

<2227 

58040 

PRINT"<CLR,DOWN,SPACE>MONATS-BILANZ 


60270 

IF KUX(I)->HW THEN HW-KUX(I)iHN-I 

<0007 


•• 

<2377 

60275 

IF KUX(I)-<NW THEN NW-KUX(I)«NN-I 

<1967 

58050 

SYS IP,"<DDWN>MONAT (1-12) j",MsM»IN 


6 O2B0 

NEXT I 

<1637 


T(M) 

<0347 

60285 

8 

<0607 

50060 

B 

<1217 

60290 

DU»D/(LD-ED+1)sDU-INT(DU*100+.5)/100 

<0337 

58070 

IF M>12 OR M<1 THEN PRINT"{3UP>"«GOT 


60300 

PRINT" DURCHSCHNITTSWERT i{7SPACEIDM 



□ 53050 

<0797 


"1«SYS FZ,DU 

<0227 

58080 

. 

<1417 

60310 

PRINT 

<2117 

58090 

ED=0:LD=0 

<0527 

60312 

r 

<0877 

58100 

FOR 1=1 TO NR-1 

<0237 

60315 

Al*-" TIEFSTWERT{3BPACE>« OSPACEl" 

<2017 

58110 

IF ED=0 AND MOX(I)=M THEN ED=I 

<2067 




58115 

IF EDO0 AND MOX(l)-n THEN LD=I 

<1607 

Llstlng 1. (Fortsetzung) 
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ÄB32B A2*=" HOECHSTWERT<2SPACE>t <3SPflCE>'' <162> 
60325 A1**=A1*+RIQHT*(BTR*(TGX(NN)) ,2) + ". " 
+RIBHT*(STR*<MaX<NN)),2)+".<23PACE}D 
M " <09S> 

60330 At-KU*/i(NN) <2eS> 

60340 A2*»fl2*+RIEHT#(STR*<TQX(HN)),2)+". " 
+RIQHT*(STR*<MDX(HN){2BPACE>D 
M '• <094> 

60350 A2=KUX(HN» <224> 

60360 PRINT Al»|tSYB FZ,Al <191> 

60370 PRINT A2$iiSYB FZ,A2 <249> 

603B0 PRINT <025> 

60390 t <16S> 

60440 D-KUX(UDI-KUX<ED> <0B3> 

60430 P-D/KUX(ED>*100 <173> 

60460 P=INT<P*10+.S)/10 <252> 

60470 PRINT" DIFFERENZ<3BPACE><EW,LW> «<53 

PACE>DK "jiBYS FZ,D <076> 

604B0 PRINT" PROZENTSATZ (EW,LW> i<6SPACE> 

X ";iSY8 FZ,P <00B> 

60405 PRINT <132> 

60486 ! <007> 

60480 IF (MOX(HN)*100+T0X<HN)X(MOX<NN>*10 

0-*-TBX(NN>) THEN 60590 <103> 

60490 D»HW-NW <1S9> 

60500 pi=D/NW*100 <137> 

60510 P=INT<P*10*.5>/10 <046> 

60520 PRINT" DIFFERENZ<3SPACE><TW,HW> s<58 

PACETDM “;:SYe FZ,D <0S0> 

60530 PRINT" PROZENTSATZ (TW,HW) >{6SPACE} 

X “itSYS FZ,P <041> 

60540 PRINT«! <064> 

60550 CLOSE 1 <106> 

60560 SYS TH <009> 

60570 BOTO 25000 <167> 

60580 s <101> 

60590 D=NW-HW <096> 

60600 P-D/HW«100 <10S> 

60610 P=INT(P*10-i-.5)/10 <146> 

60620 GOTO 60520 • <20l> 

60630 ; <151> 

61000 REH •»**•*•»•••••«•««**»»*•*««««• <0ft9l£H 
61010 REM **• MONATS-GRAFIK *** <133> 

61020 REM ***************************** <069> 

61030 : <043> 

61060 SYS IP,”€DDWN>MONAT (1-12) :",MaM=IN 

T<M) <252> 

61070 ! <0S3> 

61000 IF M>12 DR M<1 THEN PRINT"{3UP)"sGOT 

0 61060 <217> 

61090 ED’<0:LD=B <004> 

61100 FOR 1=1 TO NR-1 <231> 

61110 IF ED=0 AND MOX(I)=M THEN ED»I <t58> 

61120 IF EDO0 AND MOX(I>=M THEN LD=I <115> 

61130 NEXT I <25l> 

61140 H"-l <071> 

61150 GOSUB 51000 <21S> 

61160 GOTO 27000 <025> 

6117IS I <ia3> 

62000 REM •«****•<****•««•*»«**««*•*«•* <033> - 

62010 REM *** JAHRE8-QRAFIK *»* <141> 

62020 REM ••>«••«•»««»««•«»•**•«*•«••*•* <053> 

62025 a <022> 

62030 HW=KUX(l>iNW=KUX(l) <001> 

62035 FOR 1-1 TO NR-i <130> 

62040 IF KUX(I)->HW THEN HW-KUX(I) <227> 

6204S IF KUX(I)-<NW THEN NW-KUX<I) <161> 

62050 NEXT I <155> 

62060 HW-INT((HW+10)/ia)*10 <063> 

62065 NW-INT(NW/10)«10 <221> 

62070 DF—<HW-NW)/1B <1B4> 

62075 a <072> 

620GO 8YB IP,"<DaWN,SPACE>lS ODER 30 KURSE 

PRO BILDSCHIRM",DK <172> 

620BS IF NOT{(DK-15>OR(DK=30)) THEN PRINT" 

<3UP>"bB0TD 62080 <B20> 

62090 EB-laAB=l <12a> 

62100 LB=INT((NR-l)/DK+l-lE-9> <ZB7> 

62110 I <1B7> 

62113 EN-0 <064> 

62120 FOR I»EB TO LB <09B> 

62130 EN=EN+1 <010> 

62140 EBX(EN)-<I-1>»DK <I03> 

62150 LBX(EN)=I*DK <130> 

62160 NEXT I <009> 


62170 

62180 


62190 

62193 

62196 

62200 

62210 

62220 

62230 

62240 

62250 

62255 

62260 

62280 

62290 

62300 

62310 

62320 

62330 

62345 

62350 

62360 

62370 


62380 
62390 
62400 
62410 
62415 
62420 
62430 
62440 
62450 
62460 
62470 
62480 
62490 
.-'.l ir-ii 
62500 
62510 
62520 
62530 

62540 

62550 

63000 

63010 

63020 

63030 

63040 

63050 

63060 

63070 

63080 

63090 

63100 

63110 

63115 


EBX(1)=1;LBX(EN>=NR-1 
IF LBX(EN)-EBX(EN><2 THEN LBXIEN-D- 
EBX(EN)-11EBX(EN)-EBX(EN)-11 GOTO 621 
80 
I 

H=a 

PRINT"<CLR,DOWN>" 

PRINT" JAHREB-GRAFIK" 

PRINT"<DaWN,BPACE)6RAFIK-SElTEN BLAE 
TTERNa" 

PRINT"<DDWN,BPACE>+ NAECH9TER BILD8C 
HIRM” 

PRINT" - VORDERER BILDSCHIRM" 

PRINT" - BILDSCHIRM ZEIGEN" 

PRINT" H HARDCOPY" 

PRINT" M QRAFIK-MENUE" 

IF AB-0 THEN AB-EN 
IF AB-EN+l THEN AB-1 
a 

ED=EBX(AB)aLD-LBX(AB) 

BOSUB 51000 

1 

PRINT"<HOME,12D0WN >" 

PRINT"ERSTER BILDSCHIRMt <4SPACE>1" 
PRINT"LETZTER BILDSCHIRM!<2SPACE>"j E 
N 

PRINT"AKTUELLER BILDSCHIRM!"}AB 
SYS GA 

THEN AB=AB+1 a BOTO 62290 
THEN AB=AB-1 : BOTO 62290 
THEN GOTO 62490 
THEN 27000 
THEN 62390 


<177> 


63120 

63125 

63130 

63140 

63145 

63150 

63160 

63165 

63170 

63180 

63182 


IF A*="-*-" 

IF A*="-" 

IF A*="H" 

IF A*="M" 

IF A#<>"« 

SYS BE 

POKE 53269,2t(3N+l)-l 
GOSUB 51695 
GOTO 62350 

t 

FOR I = 0 TO SN 8 POKE 532B7+I,0 a N 
;t I 

POKE 53269,2t(SN+l>-l 
SYS HC : REM HARDCOPY 
POKE 53269,0 

FOR I = 0 TD SN 8 POKE 53287+1,13 s 
NEXT I 
GOTO 62390 

REM ***************************** 

REM »** GRAFIK BEST. ZEITRAUM *** 

REM <*•«••««•»*•••*«*•«*«»••»•*•• 

8 

PRINT"<CLR,DQWN,SPACE>WAEHLEN SIE BI 
TTE SIE DAS ANFANGS- BZW." 

PRINT"<UP,SPACE>DAB ENDDATUM AUS. BE 
ACHTEN SIE, DASS" 

PRINT" AUFGRUND DER AUFL0E8UNG NUR 3 
0 KURSE" 

PRINT" DARBEBTELLT WERDEN KOENNEN." 
PRINT"<BPACE,D0WN>GE8EN SIE ANFANGS¬ 
UND ENDZAHL EIN.<DQWN>" 

SYS TA 

FOR 1-1 TO NR-1 

PRINT I"8"TBX(I>"ILEFTJ."MQX(I)“<LEF 
T>.", 

IF PEEK(214)-24 THEN SYS THaPRINT"<C 
LR>"mIF A»-"a" THEN I-NR-ll NEXTi GOT 
0 631B0 
NEXT I 
PRINT 

SYS IP,"<DDWN>ERBTE ZAHL6",ED 
SYS IP,"LETZTE ZAHL8",LD 
IF ED<1 OR LDXNR-l) OR ED-> LD THEN 
PRINT"{4UP)"sB0T0 63130 
IF LD-ED>30 THEN PRINT"<4UP>"iGOTO 6 
3130 

IF LD-ED<2 THEN PRINT"<4UP>"eGOTO 63 

130 

H—1 

GOSUB 51000 
GOTO 27000 
8 


<02O> 

<ia7> 

<143> 

<193> 

<053> 

<0B1> 

<186> 

<026> 

<199> 

<24B> 

<24S> 

<OSB> 

<023> 

<1B3> 

<231> 

<053> 

<096> 

<125> 

<0Be> 

<094> 

<109> 

<I05> 

<153> 

< 101 > 

<159> 

<042> 

<137> 

<192> 

<241> 

<215> 

<145> 

<131> 

<1B0> 

<ZZ5> 

<243> 

<197> 

<ia5> 

<0B6> 

<156> 

<Z51> 

<039> 

<017> 

<249> 

<037> 

< 011 > 

<125> 

<10Z> 

<132> 

< 0 es> 

<131> 

<143> 

<199> 

<B23> 


<262> 

<209> 

<232> 

<BGS> 

<141> 

<031> 

<Z14> 

<073> 

<064> 

<203> 

<013> 

<163> 
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Nama ■ bg.obj ■ 91a3 aOOO 


9iae 


4c 

24 

92 

4c 

34 

92 

4c 

44 

c6 

91b0 


92 

4c 

Sa 

92 

4c 

79 

92 

4c 

C3 

91be 


eO 

93 

4c 

53 

94 

4c 

cd 

92 

a7 

91cO 


4c 

fO 

94 

4c 

2c 

97 

4c 

99 

15 

91ce 


97 

4c 

b4 

97 

4c 

Cb 

98 

4c 

de 

91dO 


36 

99 

4c 

64 

99 

4c 

90 

99 

a6 

9lcJB 


4c 

C9 

99 

4c 

dS 

99 

4c 

bc 

bO 

91e0 


99 

4c 

fG 

99 

4c 

f2 

9s 

4c 

70 

91bB 


b3 

9b 

4c 

b6 

9b 

4c 

b9 

9b 

8d 

91f0 


4c 

08 

9a 

4c 

67 

9a 

4c 

cd 

aa 

91fS 


9s 

4c 

05 

92 

4c 

12 

92 

4c 

88 

9200 


4d 

99 

4c 

&d 

9f 

20 

24 

92 

0b 

9200 


20 

44 

92 

20 

aO 

93 

20 

53 

CS 

9210 


94 

60 

20 

08 

9a 

20 

64 

99 

ed 

9218 


20 

cd 

9a 

a9 

00 

Bd 

15 

dO 

Sa 

9220 


20 

34 

92 

60 

s9 

3b 

Bd 

11 

de 

9228 


dO 

a9 

08 

Bd 

18 

dO 

s9 

00 

2f 

9230 


8d 

00 

dd 

60 

a9 

Ib 

ed 

1 1 

Oc 

9238 


dO 

a9 

15 

Bd 

18 

dO 

s9 

03 

89 

9240 


Bd 

00 

dd 

60 

a9 

aO 

85 

fb 

00 

9248 


a9 

00 

85 

fa 

a2 

20 

SB 

91 

a3 

92SO 


^a 

ce 

dO 

fb 

b6 

fb 

ca 

dO 

7d 

9258 


f5 

60 

20 

fd 

ab 

20 

Ba 

ad 

b7 

92<b0 


20 

A« 

bl 

98 

aO 

cO 

84 

fb 

6f 

9268 


aO 

00 

84 

fa 

a 2 

04 

91 

fa 

Of 

9270 


ce 

dO 

fb 

»6 

fb 

c* 

dO 

f6 

C3 

9278 


60 

20 

fd 

ab 

20 

bb 

b7 

86 

Bb 

9280 


fb 

78 

a9 

34 

85 

01 

a9 

00 

af 

9288 


85 

f9 

aS 

fb 

4a 

4s 

4a 

85 

le 

9290 


fa 

Oa 

Oa 

65 

fa 

4a 

66 

f9 

4a 

9298 


4« 

66 

f 9 

69 

bO 

es 

fa 

aS 

32 

92a0 


14 

29 

iQ 

IB 

65 

f9 

85 

f9 

ba 

92ae 


aS 

15 

65 

fa 

85 

f a 

aS 

fb 

4f 

92b0 


29 

07 

aa 

aS 

14 

29 

07 

aa 

38 

92b8 


bd 

cS 

92 

11 

f9 

91 

f9 

a9 

86 

92c0 


37 

85 

01 

sa 

60 

80 

40 

20 

51 

92cB 


10 

08 

04 

02 

01 

20 

fd 

ae 

84 

92d0 


20 

eb 

b7 

86 

fe 

86 

fb 

aS 

04 

92d0 


14 

85 

fc 

aS 

15 

85 

f d 

20 

58 

92e0 


fd 

ae 

20 

eb 

b7 

B6 

63 

a5 

42 

92eB 

; 

14 

85 

61 

aS 

15 

85 

62 

aS 

le 

92#0 


fc 

85 

14 

aS 

fd 

SS 

15 

dB 

7b 

92-fB 

a 

3G 

aS 

61 

eS 

14 

es 

68 

aS 

72 

9300 


62 

e5 

15 

85 

69 

10 

Ic 

49 

65 

930B 

: 

tt 

85 

6a 

aS 

68 

49 

ff 

18 

la 

9310 


69 

01 

85 

68 

aS 

69 

69 

00 

b3 

9318 

• 

85 

69 

a9 

H 

05 

6c 

85 

6d 

69 

9320 


4c 

2b' 

93 

a9 

01 

85 

6c 

a9 

5d 

9328 


00 

85 

6d 

aS 

69 

dO 

Od 

aS 

97 

9330 


68 

dO 

09 

a9 

00 

as 

64 

85 

41 

9338 


65 

4c 

42 

93 

a9 

ff 

85 

64 

40 

9340 


85 

65 

a9 

00 

85 

6b 

38 

aS 

c2 

9348 


63 

ss 

•Fb 

95 

6a 

aS 

6b 

a9 

a3 

9350 


00 

85 

6b 

10 

la 

49 

ff 

85 

e7 

9358 


6b 

aS 

6a 

49 

ff 

18 

69 

01 

cZ 

93ä0 


85 

6a 

aS 

6b 

69 

00 

85 

6b 

75 

93<i8 


a9 

ff 

es 

6s 

4c 

73 

93 

a9 

42 

9370 


01 

85 

6e 

aS 

6b 

c5 

69 

90 

30 

9378 


Od 

aS 

6a 

cS 

68 

90 

07 

a9 

26 

9380 


tf 

es 

66 

4c 

Ba 

93 

a9 

01 

53 

9388 


85 

66 

20 

81 

92 

aS 

fb 

c5 

Aa 

9390 


63 

dO 

Od 

aS 

14 

c5 

61 

dO 

ba 

9398 


07 

aS 

15 

cS 

62 

dO 

01 

60 

Bl 

93a0 


aS 

65 

30 

Ib 

38 

aS 

64 

eS 

75 

93aa 


68 

85 

64 

aS 

65 

b5 

69 

85 

d7 

93b0 


65 

18 

aS 

fb 

65 

6b 

DS 

fb 

a2 

93be 


aS 

66 

30 

Cb 

4c 

80 

93 

18 

26 

93c0 


aS 

64 

65 

6a 

es 

64 

aS 

65 

Ib 

93ce 


65 

6b 

es 

65 

18 

aS 

14 

65 

bb 

93d0 


6c 

as 

14 

aS 

15 

65 

6d 

85 

f6 

93dB 


15 

aS 

66 

10 

ad 

4c 

ed 

93 

f6 

93a0 


a9 

aO 

85 

fb 

a9 

20 

85 

fa 

82 

93bB 


aO 

00 

b9 

45 

94 

91 

fa 

ca 

f3 

93f0 


cO 

Oa 

dO 

f6 

a 2 

00 

aS 

fa 

81 

93fe 


IG 

69 

40 

85 

fa 

aS 

fb 

69 

25 

9400 


01 

85 

fb 

aO 

00 

a9 

03 

91 

53 

9408 


fa 

ce 

cO 

04 

dO 

f9 

a9 

3f 

19 

9410 


91 

fa 

ce 

cO 

06 

dO 

f9 

a9 

ab 

9418 


03 

91 

fa 

ca 

cO 

OB 

dO 

f9 

3f 

9420 


s8 

aO 

15 

dO 

dl 

a 2 

00 

aS 

55 

9420 


fa 

18 

69 

40 

85 

fa 

aS 

fb 

4f 

9430 


69 

01 

es 

fb 

aO 

00 

a9 

03 

bl 

9430 


91 

fa 

cB 

cO 

OB 

dO 

f9 

b8 

51 

9440 


aO 

03 

dO 

e3 

60 

03 

07 

Of 

ab 

9448 


Ib 

33 

63 

03 

03 

00 

80 

cO 

ea 

9450 


60 

30 

18 

a9 

fb 

85 

fb 

a9 

33 

94SB 


80 

85 

fa 

a2 

00 

aO 

00 

a9 

06 

9460 


ff 

91 

fa 

CG 

91 

f a 

c8 

bB 

bS 

9468 


eO 

07 

fO 

10 

aS 

fa 

18 

69 

6f 

9470 


08 

85 

fa 

aS 

fb 

69 

00 

85 

C4 

9478 


fb 

4c 

Sd 

94 

aO 

00 

a9 

ff 

34 

9480 


91 

fa 

ca 

91 

fa 

cB 

a9 

18 

bf 

9488 


91 

fa 

ca 

91 

fa 

cB 

91 

fa 

2d 

9490 


cS 

cG 

cG 

cB 

dO 

eG 

b6 

fb 

bf 

9490 


a2 

00 

aO 

00 

a9 

ff 

91 

fa 

39 

94aO 


cB 

91 

f a 

cB 

bG 

SO 

02 

f 0 

BB 

94ae 


10 

aS 

fa 

18 

69 

08 

85 

fa 

2f 


94bO 


aS 

fb 

69 

00 

BS 

fb 

4c 

9a 

4c 

94be 


94 

aO 

02 

b9 

df 

94 

91 

fa 

33 

94c0 


ca 

cO 

07 

dO 

f6 

aS 

fa 

18 

7d 

94ca 


e9 

40 

es 

fa 

aS 

fb 

b9 

01 

76 

94d0 


8S 

fb 

aO 

04 

b9 

b2 

94 

91 

24 

94da 


fa 

ca 

cO 

09 

dO 

f6 

60 

ff 

ca 

94a0 


ff 

06 

Oc 

18 

30 

20 

20 

30 

cd 

94ee 


18 

Oc 

06 

a 2 

Os 

20 

37 

a4 

e4 

94f0 


a9 

04 

a2 

04 

aO 

01 

20 

ba 

cc 

94fB 


ff 

20 

cO 

ff 

a2 

04 

20 

C9 

96 

9500 


ff 

20 

96 

95 

20 

a2 

95 

b9 

28 

9508 


33 

20 

d2 

ff 

a9 

18 

20 
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00 
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Bd 
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dO 
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9b40 
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20 
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9b 
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d3 
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b2 

9b 

f9 
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ad 
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9c 
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9d 
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ab 
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ad 

11 
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09 
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Bd 

11 

dO 
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9b4B 
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ad 
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9b 

20 

d2 

ff 

99 

01 

CB 

9dl8 
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02 

bd 

ff 

ff 
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20 
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02 

Sd 

9sae 
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SB 

60 
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49 

4b 

SB 
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04 

17 

9bSO 

8 
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ca 
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Od 

dO 

bO 
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00 

03 

9d20 
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69 

40 

9d 

fl 

9d 
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aO 

Oa 

10 

9ef0 
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04 
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00 

20 

ba 

ff 

20 

d5 
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99 

00 

01 
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bl 

9b 

ea 

c6 

6b 

9d2a 
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dO 

Bf 

a9 

02 
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20 

bB 
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ff 
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20 
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ff 
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ad 
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c4 

9d30 

8 

ba 

ff 
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9d 
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9f00 

J 

Od 

20 

d2 

ff 
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00 
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16 
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9b6e 
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20 

d2 

ff 
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Od 

Ic 

9d30 

1 

20 

bd 

ff 

4c 
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ff 

20 

cf 

BC 

9foa 

1 

9f 

a9 

04 

Bd 

17 

9f 

a9 

00 

44 

9b70 

1 

20 

d2 

ff 

ad 

bl 

9b 

a2 

01 

33 

9d40 

1 

ff 

20 

cf 

ff 

20 

cf 

ff 

48 

54 

9f 10 

1 

Bd 

6c 

9f 

aO 

00 

b9 

ff 

ff 

9d’ 

9b 70 

1 

Sb 

22 

a2 

01 

06 

23 

20 

05 

46 

9d4B 

1 

20 

cf 

ff 

a2 

04 

aO 

oa 

Bc 

22 

9t 10 

1 

29 

7f 

c9 

20 

bO 

05 

69 

40 

dl 

9bB0 

8 

b? 

20 

fd 
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20 

Bb 

bO 

a6 

Ob 

9dS0 
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07 

9e 

60 

c9 
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90 

04 

ca 

c4 
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8 

4c 

32 

9f 
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90 

Ob 
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ef 
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1 

47 

a4 

4B 

20 
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bb 
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60 

as 
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8 

BB 

07 

9b 

20 

de 
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Of 
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bB 

c2 
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20 
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ff 
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bS 
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8 

a4 

9b 
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20 

d2 

ff 
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■0 

Oc 

dO 
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20 

Cf 

ff 

dd 

7d 
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97 
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c6 
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9f 
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95 
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4c 

4c 
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a9 

f3 

85 

31 

9f50 

1 

00 

Bd 

17 

9f 

a9 

Od 

20 

d2 

fa 

9bba 

8 

9c 

20 

95 

9d 

ac 

Oe 

9c 

fO 

Od 

9dBB 

8 

22 

a9 

9d 

as 

23 

a9 

Oc 

20 

B7 

9fse 

1 

ff 

aO 

00 

4c 

15 

9f 

a9 

Od 

40 

9bt:0 

8 

Of 

b2 

20 

20 

ÜB 

9d 

GG 

4c 

C2 

9d90 

1 

24 

ab 

4c 

ca 

9d 

a9 

01 

a2 

67 

9f60 

8 

20 

d2 

ff 

a9 

04 

20 

c3 

ff 

6f 

9bc:e 

1 

b« 

9b 

aS 

90 

c9 

40 

f 0 

2c 

ab 

9d9B 

8 

08 

aO 

00 

20 

ba 

ff 

a9 

01 

49 

9f6B 

1 

20 

e7 

ff 

60 

00 

20 

fd 

as 

de 

9bd0 

8 

20 

3e 

9d 

ee 

Oe 

9c 

ad 

Of 

ef 

9da0 

8 

a2 

f2 

aO 

9d 

20 

bd 

ft 

20 

c7 

9f70 

8 

20 

Ba 

ad 

a2 

tB 

aO 

9f 

20 

eB 

9bdB 

8 

9c 

dO 

Bf 

20 

02 

9d 

b9 

02 

9c 

9dae 

8 

cO 

ff 

a9 

93 

20 

Ü2 

ff 

a2 

22 

9f78 

. 

d4 

bb 

20 

79 

00 

C9 

2c 

dO 

02 

9beO 

1 

20 

C3 

ff 

a9 

02 

aS 

a2 

OB 

17 

9db0 

r 

01 

20 

c6 

ff 

a2 

03 

20 

dB 

f3 

9feo 

g 

09 

20 

00 

s2 

Be 

f 7 

9f 

4c 

bS 

9bea 

1 

20 

ba 

ff 

a9 

10 

a2 

f3 

aO 

Cl 

9dba 

8 

9d 

20 

cf 

9d 

20 

cf 

ff 

a2 

d3 

9fBa 

g 

Bf 

9f 

a2 

05 

Ge 

f 7 

9f 

18 

B7 

9b90 

; 

9d 

20 

bd 

ff 

20 

cO 

ff 

a9 

68 

9dcO 

8 

Ic 

20 

dB 

9d 

ca 

dO 

fa 

4c 

Bb 

9f90 

g 

ad 

f7 

9f 

69 

04 

Sd 

f7 

9f 

la 

9bte 

1 

00 

4c 

08 

9c 

a9 

02 

20 

c3 

67 

9dcG 

1 

ca 

9d 

a9 

Od 

4c 

d2 

ft 

a2 

Od 

9f9G 

g 

a9 

fB 

aO 

9f 

20 

a2 

bb 

20 

20 

9c00 

8 

ff 

a9 

00 

ad 

Oe 

9c 

a9 

Ol 

f4 

9dd0 

1 

07 

20 

3f 

ab 

ca 

dO 

fa 

6o 

Oc 

9fB0 


e2 

ba 

20 

e2 

ba 

20 

49 

bB 

07 

9cOB 

8 

0d 

Of 

9c 

4c 

40 

9c 

00 

00 

b6 

9dda 

g 

20 

cf 

ff 

4c 

d2 

ff 

20 

cf 

b6 

9faB 

8 

20 

cc 

bc 

20 

dd 

bd 

a2 

00 

bB 

9cl0 

s 

20 

95 

9d 

aS 

90 

c9 

40 

fO 

51 

9dB0 

• 

ff 

ca 

dO 

fa 

60 

ad 

97 

9c 

e3 

9fbO 

1 

bd 

00 

01 

fO 

04 

bG 

4c 

bO 

e6 

9t:lB 

8 

27 

20 

cf 

ff 

20 

cf 

ff 

20 

04 

9dee 

« 

Bd 

9c 

9c 

ad 

9B 

9c 

Bd 

9d 

ao 

9fbe 

8 

9f 

ec 

f7 

9f 

bO 

38 

a9 

Od 

4d 

9c20 

1 

c4 

9d 

20 

cf 

ff 

Ba 

20 

Cf 

33 

9df0 

• 

9c 

60 

24 

00 

00 

00 

00 

00 

c6 

9fcO 

8 

4B 

ca 

bd 

00 

01 

4B 

ca 

bd 

d6 

9c2S 

8 

ff 

20 

cd 

bd 

a2 

Ic 

20 

dS 

aO 

9df8 

8 

00 

00 

00 

00 

00 

00 

00 

2b 

55 

9fca 

g 

00 

01 

48 

a9 

2c 

4B 

ac 

f7 

3S 

9c30 

8 

9d 

ca 

dO 

fa 

20 

ca 

9d 

aS 

eO 

9e00 

1 

44 

41 

B4 Bc'ta «fr 

Hr 

00 

aS 

9f dO 

l 

9f 

BB 

aa 

BB 

ca 

30 

Oa 

bd 

ba 

9c3B 

8 

c5 

c9 

40 

dO 

fa 

4c 

13 

9c 

a4 

9e0a 

s 

7B 

a9 

2c 

Bd 

14 

03 

a9 

9b 

4f 

9fd0 

g 

00 

Ol 

40 

as 

dO 

f6 

4c 

sb 

4a 

9c40 

8 

a9 

00 

85 

cfr 

20 

cc 

ff 

a9 

df 

9el0 

g 

ad 

15 

03 

a9 

00 

8d 

12 

dO 

74 

9feO 

g 

9f 

cO 

00 

fO 

06 

a9 

20 

4B 

bc 

9c4B 

8 

01 

4c 

c3 

ff 

20 

95 

9d 

a9 

d9 

9eie 


ad 

li 

dO 

29 

7f 

Bd 

U 

dO 

fl 

9feB 

1 

ee 

dO 

f6 

ac 

f7 

9f 

cB 

6B 

9c 

9c50 


00 

Gd 

05 

9e 

a5 

90 

c9 

40 

b2 

9e20 

1 

a9 

ai 

Bd 

la 

dO 

a9 

3b 

Bd 

93 

9ff0 

8 

20 

d2 

ff 

BB 

dO 

f 9 

60 

00 

e9 

9c5B 

1 

fO 

19 

20 

3e 

9d 

ad 

Of 

9c 

61 

9B2e 

1 

11 

dO 

SB 

60 

ad 

19 

dO 

Bd 

c5 

9tfe 

8 

00 

00 

00 

00 

00 

00 

00 

00 

f9 

9d60 

8 

dO 

f2 

20 

82 

9d 

dB 

OS 

9b 

a2 

9e30 

1 

19 

dO 

30 

07 

ad 

Od 

de 

59 

06 












9c68 

1 

b8 

Be 

05 

9e 

eO 

17 

fO 

03 

3d 

9B5e 

8 

4c 

31 

ea 

70 

ad 

12 

dO 

fO 

77 












9c70 

1 

4c 

54 

9c 

a9 

2d 

BÜ 

97 

9c 

19 

9e40 

X 

19 

ad 

11 

dO 

29 

f7 

Bd 

11 

39 












9c7a 

* 

a9 

04 

Bd 

9B 

9c 

a9 

05 

Bd 

eO 

9e4e 

1 

dO 

a9 

00 

Bd 

12 

dO 

ad 

11 

If 

LIsting 2. 

(Schluß) 
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la 
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Ae 
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la 
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3c 

00 
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00 

00 

00 

ba 
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00 

00 

00 

00 

00 

00 

00 

00 

31 

esoe 

8 

66 

Oc 

3c 

76 

Oc 

66 

7a 

Oc 

SB 
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8 

00 

00 

00 

00 

00 

00 

00 

00 

21 

c73a 

1 

00 

00 

00 

00 

00 

00 

00 

20 

79 

CSIO 

8 

7s 

7a 

Oc 

66 

6a 

6e 

66 

66 

Aa 

c62a 

8 

00 

00 

00 

00 

00 

00 

00 

00 

29 

C740 
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00 

00 

OO 

00 

00 

00 

3c 

66 

fa 

csie 

8 

3B 

66 

66 

00 

00 

00 

00 

00 

Id 

c630 

1 

00 

00 

00 

00 

00 

00 

00 

00 

31 

C74B 

1 

7o 

66 

6c 

la 

66 

70 

la 

66 

6f 

cS20 

8 

00 

00 

00 

00 

00 

00 

00 

00 

21 

c63e 

1 

00 

00 

00 

00 

00 

00 

00 

20 

79 

c7S0 

g 

70 

la 

66 

70 

IB 

66 

6c 

le 

Oc 

cS2a 

8 

00 

00 

00 

00 

00 

00 

00 

00 

29 

C640 
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00 

00 

00 

00 

00 

00 

la 

66 

86 

c758 

8 

3c 

66 

IB 

00 

00 

00 

00 

00 

CB 

c530 

8 

00 

00 

00 

00 

00 

00 

00 

00 

31 

C64B 

8 

66 

Oe 

66 

76 

Oc 

66 

7a 

Oc 

23 

c760 

8 

00 

00 

00 

00 

00 

00 

00 

00 

61 

cS38 

1 

00 

00 

00 

00 

00 

00 

00 

20 

79 

C650 

1 

66 

7a 

Oc 

66 

6a 

6c 

66 

66 

76 

c76a 

1 

00 

OO 

00 

00 

00 

00 

00 

00 

69 

=540 

8 

00 

00 

00 

00 

00 

00 

7e 

7a 

37 

c6sa 

8 

38 

3c- 

66 

00 

00 

00 

00 

00 

4B 

c770 

1 

00 

00 

00 

00 

00 

00 

00 

00 

71 

C54e 

1 

7c 

60 

60 

66 

60 

60 

66 

7S 

6d 

C660 

1 

00 

00 

00 

00 

00 

00 

00 

00 

61 

c77a 

1 

00 

00 

00 

00 

00 

00 

00 

20 

h9 

CSSO 

8 

7a 

7c 

60 

60 

66 

60 

60 

66 

a2 

C66a 

1 

00 

00 

00 

00 

00 

00 

00 

00 

69 

c7B0 

1 

00 

00 

00 

00 

00 

00 

66 

3c 

93 

C55B 

8 

60 

7b 

7c 

00 

00 

00 

00 

00 

17 

e670 

t 

00 

00 

00 

00 

00 

00 

00 

00 

71 

c7sa 

g 

66 

76 

66 

66 

7o 

66 

66 

7a 

41 

C560 

8 

00 

00 

00 

00 

00 

00 

00 

00 

61 

c67a 

8 

00 

OO 

00 

00 

00 

00 

00 

20 

b9 

C790 

8 

66 

66 

6e 

66 

66 

66 

66 

3c 

3d 

CS6S 

8 

00 

00 

00 

00 

00 

00 

00 

00 

69 

c6B0 

8 

00 

00 

00 

00 

00 

00 

la 

66 

c6 

C79B 

g 

66 

3c 

la 

00 

00 

00 

00 

00 

23 

c570 

f 

00 

00 

00 

00 

00 

00 

00 

00 

71 

C6BB 

1 

60 

Oe 

66 

60 

Oc 

66 

60 

Oc 

22 

e7a0 

1 

00 

00 

00 

00 

00 

00 

00 

00 

al 

c57B 

8 

00 

00 

00 

00 

00 

00 

00 

20 

b9 

C690 

1 

66 

60 

Oc 

66 

60 

6c 

66 

60 

ba 
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8 

00 

00 

00 

00 

00 

00 

00 

00 

a9 
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1 
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00 

00 

00 

00 

00 

63 
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3« 
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38 

3c 

7o 

Op 
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Go 
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00 
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7c 
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3c 
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6b 
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20 
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63 

66 
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66 

6c 

07 
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1 
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00 

00 

00 

00 
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00 

a9 
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1 

00 

00 
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00 
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00 

7B 

7o 

9f 

e59e 

1 

63 

66 

66 

00 

00 

00 

00 

00 

cS 
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8 
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00 

bl 
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7a 

6c 
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06 

66 

60 

Oc 

66 

bc 
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8 
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00 

00 

00 

00 

00 

00 
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8 

00 

00 

00 

00 

00 

00 
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20 

f9 
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30 

6c 
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a3 
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Richtig lailkuliert mit Ibssofix 


Leider handelt es sich bei dem Programm »Kas- 
sofix» nicht um einen Gotdesel, der uns aiier 
Geidsorgen entledigt. Doch kann dieses lei¬ 
stungsfähige Programm dabei heifen, vorhande¬ 
nes Vermögen vorteilhaft anzulegen oder Kredit¬ 
angebote zu vergleichen. 

W ill man einen Kredit In Anspruch nehmen, erhält 
man von den Geldinstituten oftmals sehr Interes¬ 
sant klingende Angebote. Doch nur selten lassen 
sich die realen Kosten und Zinsen der einzelnen Kreditvor¬ 
schläge abschätzen, da hierzu komplizierte Berechnungen 
angestellt werden müssen, die dem normalen Kreditneh¬ 
mer meist »zu hoch« sind. Wer nicht aufpaßt, kann schnell 
einem »Kredit-Hai« zum Opfer fallen. 

Gleiches gilt auch bei Spareinlagen. Selbstverständlich 
sucht man hier die günstigsten Sparkonditionen, um sein 
Vermögen effektiv anzulegen. Banken und Sparkassen 
bieten dafür nicht nur das bekannte Sparbuch. Sparbriefe 
und Sonder-Sparaktionen der Geldinstitute werden oft¬ 
mals mit großzügigen Zinsen und Prämien offeriert. Ver¬ 
gleiche der einzelnen Angebote sind lohnend, aber auf¬ 
grund von Vielfalt und Rechenaufwand für den Laien meist 
sehr problematisch. 

Der C64 als Finanzberaler 

ln solchen Fällen steht uns das Programm »Kassofix« 
(Listing 1) tatkräftig zur Seite. Verwenden Sie für die Ein¬ 
gabe bitte den Checksummer 64, den Sie in dieser Aus¬ 
gabe auf Seite 159 finden. 

Auf Wunsch ermitteit Kassofix die nötigen Kosten der 
wichtigsten Bankgeschäfte wie Ratenkredit, Hypotheken¬ 
darlehen oder Sparbriefeinlagen. 

Nachdem man Kassofix mit RUN gestartet hat, erhält 
man zunächst die Gelegenheit, die Farben des Bildschirms 
nach Belieben einzustellen. Gleiche Hintergrund- und 
Schriftfarbe werden dabei nicht akzeptiert. Hat man eine 
für sich angenehme Farbauswahl getroffen, gelangt man 
durch Betätigen der Taste <F7> schließlich in das Haupt¬ 
menü (Bild 1), das uns eine Vielzahl an Berechnungsmög¬ 
lichkeiten bietet. Daneben lassen sich die Farben des Bild¬ 
schirms nachträglich verändern, während ein Hiifsmenü, 
das mit der <F7>-Taste aktiviert wird, Auskunft über die 
Bedeutung der einzelnen Menüpunkte gibt. Während der 
Berechnungsschritte wird der Anwender durch die Benut¬ 
zerführung des Programmes sicher geleitet, so daß Fehl¬ 
eingaben so gut wie ausgeschiossen sind. 

Nun zu den vielfältigen Berechnungsmöglichkeiten von 
Kassofix. 

<F1> Ratenkreditberechnung 
Ratenkredite sind die übliche Art von Kleinkrediten, wie 
sie von Banken vielfach angeboten werden. Kassofix 
errechnet in diesem Menüpunkt die anfallenden Gesamt- 
kosten und erstellt einen Ratenplan der monatlichen Beia¬ 
stungen. Darüber hinaus wird der effektive Jahreszins 
ermittelt. Neben der exakten Zinsberechnung durch Itera¬ 
tion gestattet das Programm ein vereinfachtes und schnel¬ 
les Annäherungsverfahren. Dieses früher übliche Verfah¬ 
ren dient vornehmlich der überschlagsmäßigen Ermittlung 
des Jahreszinses, ist jedoch nach der Preisangabenord¬ 


nung nicht mehr gestattet. Für genaue Berechnungen 
sollte man deshalb die exakte Zinsberechnung wählen. 

Haben Sie sich für eine der Berechnungsarten entschie¬ 
den, können Sie schließlich die genauen Kreditkonditionen 
wie Kredithöhe und monatliche Zinsen eingeben. Ein Bei¬ 
spiel macht die verschiedenen Eingaben begreiflich: 

Kunde K will von der Goiden-Korn-Flakes-Bank 16000 
Mark leihen und in 12 Monatsraten zurückzahlen. Die Kon¬ 
ditionen der Bank lauten wie folgt; 0,4 % monatliche Zinsen 
sowie 2 % Bearbeitungsgebühren vom Kreditbetrag. 

Kassofix verlangt nun folgende Informationen: 
Beantragter Kredit: 18000 

Even. Netto Restsaldo: 0 

(Der Kiündp 'ltfi.t bei der Bank keinen laufenden Kredit 
mehr,, so daßt.eihb Aufstockung nicht nötig Ist.) 

Laufzeit In Monati^n: 12 

(Laufzeiten unter 12 Monaten werden nicht akzeptiert) 
Zinsen pro Moriet in Prozent: 0,4 

Bearbeitungsgebühren in Prozent: 2 

Maklergebühr in Prozent: 0 

(Kunde K konsultierte für den Kredit keinen Kreditvermitt¬ 
ler. Die Gebühren hierzu entfallen also.) 
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Bild 1. Kassofix wird hauptsächlich über einfache Menüs 
gesteuert, was Fehleingaben grundsätzlich verhindert. 

Bei der Erstellung des Ratenplans bieten einige Geldin¬ 
stitute an, die letzte Rate eventuell höher sein zu lassen als 
die übrigen. Daher hat man abschließend die Wahl, die 
erste Rate niedriger oder die letzte Rete höher ausfallen zu 
lassen. 

Bestätigen Sie nun die Richtigkeit der Eingaben, beginnt 


Kassofix mit der Berechnung. 


Das Ergebnis lautet schließlich; 


Kreditsumme: 

DM 18000 

Maklergebühren; 

DM 0 

Gesamtkredit-Summe: 

DM 18000 

Kreditgebühren: 

DM 864 

Bearbeitungsgebühren: 

DM'360 

Gesamtkreditbetrag; 

DM 19224 

Ratenplan: 


Erste Rate 

DM 1602- 

weitere 11 Raten 

DM 16Ö2 


Für den effektiven Jahreszins ergeben sicfv jb nach 
gewähltem Verfahren: 

Effekt. Jahreszins = 13^2 % (iterativ exakt) 

= 12,55 % (annäherungsweise) 

Kunde K muß demnach bei einer Kreditnahmevon 18000 
Mark den Gesamtbetrag von 19224 Mark in zwölf Monats¬ 
raten zu je 1602 Mark an die Bank zurückzahlen. 
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Sollte eine Kreditberechnung zu einer zu niedrigen 
ersten Rate führen, lehnt Kassofixeine Bearbeitung ab und 
gibt eine Fehlermeldung aus. 

<F2> Rahmenkredit 

Bei Rahmenkrediten bekommt der Kunde einen Kredit¬ 
rahmen eingeräumt und gibt eine Wunschrate an, mit der 
er monatlich abzahlen möchte. Die Berechnung des Kredi¬ 
tes erfolgt dabei kontokorrent. Die Zinsen werden viertel¬ 
jährlich dem Restsaldo (restlichen Kreditbetrag) zuge¬ 
schlagen und mitverzinst. Die Eingabe der Daten soll wie¬ 
derum an einem Beispiel erläutert werden: 

Kunde Pfennig erhält einen Kredit von 16000 Mark, den 
er bei einem Zinssatz von 10 % per annum (lateinisch; pro 
Jahr; oftmals abgekürzt mit p.a.) mit einer Monatsrate von 
1000 Mark abzahlen möchte. 

Für die Berechnung ist nun einzugeben; 

Kreditbetrag: 16000 

Zinssatz in Prozent p.a: 10 

Monatl. Ratenhöhe: 1000 

DerZinszahlungstermin kann vierteljährlich, halbjährlich 
oder jährlich erfolgen. Kunde Pfennig zahlt vierteljährlich. 
Es ist also zu wählen; 

Zinszahlungstermin; vierteljährl. 

Soll der effektive Jahreszins ermittelt werden, ist dies 
ebenfalls anzugeben. 

Kassofix stellt nun fest, daß Kunde Pfennig für seinen 
beantragten Kredit von 16000 Mark 17 Raten zu je 1000 
Mark und eine letzte Rate zu 232,19 Mark zu bezahlen hat, 
Insgesamt muß er für einen Kreditbetrag von 17232,19 
Mark aufkommen. Der effektive Jahreszins beträgt dabei 
10,5 %. 

< F3 > Hypothekendarlehen 

Eine ebenfalls häufige Kreditform sind Hypothekendar¬ 
lehen. Sie werden normalerweise für Bau- und Renovie¬ 
rungsvorhaben gewährt. Gemäß Paragraph 1113 des BGB 
(Bürgerliches Gesetzbuch) veriangen die Banken als 
Sicherheit eine Belastung des betreffenden Grundstücks 
(Hypothek). Kassofix ermittelt nun die jährliche und monat¬ 
liche Belastung. Bei vereinbartem Abgeld (Disagio) wird 
die tatsächliche Verzinsung über den Auszahlungsbetrag 
iterativ errechnet. Kassofix geht zudem davon aus, daß die 
Darlehensraten vorschüssig, das heißt zu Beginn jeden 
Monats bezahlt werden. 

Ein praktisches Beispiel soll hier helfen, die Vorgehens¬ 
weise des Programmes zu verstehen: 

Kunde Häusle will von der Bau-und Krachkasse 225000 
Mark als Kredit für die Renovierung seines Schrebergar¬ 
tenhäuschens. Seine Bank bietet ihm folgende Konditio¬ 
nen an: 

Bei einer Laufzeit von 30 Jahren und jährlichen Zinsen 
von 5,75 % erhält Häusle 91 % des beantragten Kredits 
ausgezahlt. Die verbleibenden 9 % werden als Abgeld 
(Disagio) einbehaiten. 

Um die Höhe der Belastungen zu berechnen, gibt Kunde 
Häusle nun folgende Beträge in das Programm Kassofix 
ein: 

Schuldsumme: 225000 

Laufzeit in Jahren; 30 

Zinssatz in Prozent: 5,75 

Zusätzlich ist das Disagio von 9 Prozent einzutippen; 
Disagio in Prozent: 

Nach mehreren iterativen Rechenschritten steht das 
Ergebnis fest: 

Häusle erhält vom beantragten Kredit 204750 Mark aus- 
bezahlt (wegen Disagio). Die jährliche Belastung würde 
bereits ein Jahr nach Auszahlung des Kredites 15911,15 
Mark betragen. Da das Darlehen monatlich »abgestottert« 
wird, sind jeden Monat 1291,80 Mark an die Bankzu zahlen. 


AUSGABE DER DATEN: 

BEI EINER VERZINSUNG VON 6 * ERGIBT 
SICH EUER EINE LAUFZEIT VON 50 JAHREN 


BEI EINEM KREDIT VON DM: 450000 
EINE JAEHRLICHE BELASTUNG VON 
DM: 28549,92 

DAS ENTSPRICHT EINER DURCHSCHNITTLICHEN 
MONATLICHEN BELASTUNG VON DM: 2315.48 
DIE EFFEKTIVE VERZINSUNG BETRAEGT BEI 
EINEM DISAGIO VON 3 %: 6.23 » 

AUSZAHLUNGSBETRAG: DM 436500 
TASTE DRUECKSN! 


Bild 2. Eine Hypothekenberechnung als Druckausgabe 

In diesem Betrag ist die durch vorzeitige Zahlung entste¬ 
hende Zinsvergünstigung bereits berücksichtigt. 

Kassofix berechnet zudem den effektiven Zinssatz, wenn 
ein Disagio vereinbart wurde. Auf diese Weise kann man 
verschiedene Kreditangebote mit und ohne Disagio mitein¬ 
ander vergleichen, um das günstigste Darlehen abschät¬ 
zen zu können, 

Kühd'j Häusle stellt also fest, daß er statt den angegebe¬ 
nen 5,75 % tatsächlich 6,65 % jährlich an Zinsen beglei¬ 
chen muß. 

Als besonderen Leckerbissen enthält das Programm 
eine Schuldstandberechnung, Sie teilt uns mit, wieviel 
nach X Jahren effektiv an Schulden abbezahlt wurde. Bei 
diesem Programmpunkt bemerkt Häusle, daß er nach 
fünf langen Jahren erst 16679,30 Mark vom Netto- 
Schuldenstand getilgt hätte. Der Großteil der Zahlungen 
würde von den Zinsen verschlungen. 

Zudem betrügen seine Schulden nach jenen fünf Jahren 
erschreckenderweise 208320,70 Mark, also mehr, als ihm 
die Bank ausgezahlt hätte. Hierfür ist das vereinbarte Disa¬ 
gio zur Verantwortung zu ziehen. Kunde Häusle sollte sich 
also genau überlegen, ob er dieses unvorteilhafte Angebot 
annehmen soll, 

<F4> Sparbriefberechnung 

Durch Druck der Taste < F4> gelangt man In das Menü 
zur Sparbriefberechnung. Sparbriefe sind Nominalpapiere 
im Sinne des Paragraphen 808 des BGB. Banken verkau¬ 
fen in der Regel drei Typen von Sparbriefen. Bei »aufgezin¬ 
sten« Sparbriefen steigt der Wert des Briefes durch die jähr¬ 
liche Zinsausschüttung. Ein »abgezinster« Sparbrief hinge¬ 
gen kostet beim Kauf weniger als der angegebene Nomi¬ 
nalwert. Der Kaufpreis richtet sich dabei nach Laufzeit und 
Zinssatz des Wertpapieres. Ist die Frist des Sparbriefes 
abgelaufen, erhält man schließlich eine Sparsumme in der 
Höhe des Sparbrief-Nominalwertes ausgezahlt. Der Besit¬ 
zer eines Sparbriefes mit »jährlicher Zinsauszahlung« 
erhält schließlich jährlich die angefallenen Zinsen ausbe¬ 
zahlt, wobei sich der Wert des Sparbriefes nicht ändert. 

Kassofix bearbeitet jeden der eben genannten Sparbrief¬ 
typen. Hat man sich im Sparbriefmenü den gewünschten 
Typ ausgesucht, kann man mit der Eingabe der entspre¬ 
chenden Daten beginnen. Wir werden für jede Sparbrief¬ 
form ein Beispiel angeben: 
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Kunde Krösus möchte einen aufgezinsten Sparbrief zu 
10000 Mark erwerben. Die Bank bietet folgende Konditio¬ 
nen: Die Laufzeit soll fünf Jahre betragen. Per annum (pro 
Jahr) erhält Krösus Zinsen in Höhe von 6 %, die ihm laut 
Sparbrieftyp auf den Nominalwert seines Wertpapieres 
aufaddiert werden. Wieviel Mark bekommt er nach fünf 
Jahren ausbezahlt? Krösus tippt in den Computer: 

Betrag des Sparbriefes: 10000 

Zinssatz in Prozent; 6 

Laufzeit in Jahren: 5 

Kassofix errechnet aus diesen Daten, daß der Sparbrief 
nach fünf Jahren einen Rückzahiungswert von 13382,30 
Mark besitzt. 

Kunde Krösus möchte nun einen abgezinsten Sparbrief 
erwerben. Sein Nennwert soll 20000 Mark betragen. Die 
Konditionen der Bank lauten: Laufzeit sieben Jahre zu 
6,5 % Zinsen per annum (pro Jahr). Die Eingaben müssen 
demnach folgendermaßen aussehen: 

Betrag des Sparbriefes: 20000 

Zinssatz in Prozent; 6,5 

Laufzeit in Jahren: 7 

Das Ergebnis: Krösus muß heute 12870,10 Mark für den 
Sparbrief bezahlen, um nach siebenJahren 20000 Mark zu 
erhalten. 

Entscheidet sich Kunde Krösus allerdings für einen Spar¬ 
brief mit jährlicher Zinsauszahlung, wählt er bei Kassofix 
den entsprechenden Menüpunkt (<F5>). Der Wert des 
Papieres soll 3000 Mark bei einem jährlichen Zinssatz von 
5 % betragen. Hierfür gibt man ein: 

Betrag des Sparbriefes: 3000 

Zinssatz in Prozent: 5 

Kassofixrechnetschnell und sicher; Während derverein- 
barten Laufzeit des Sparbriefes kann Krösus jedes Jahr 
150 Mark Zinsen von der Bank abholen. 

<F5> Bonussparen 

Bonussparen ist eine Möglichkeit, sich durch Sparraten 
übereinen gewissen Zeitraumfür zukünftige Dispositionen 
ein angemessenes Kapital zu beschaffen. Die Banken 
gewähren in der Regel am Ende der Laufzeit auf die einge¬ 
zahlte Summe einen Bonusprozentsatz, der von der 
Gesamtlaufzeit abhängig ist. 

Da diese Sparform die Schaffung einer späteren Zusatz¬ 
rente ermöglicht, enthält Kassofix zusätzlich ein Rentenbe¬ 
rechnungsprogramm. Ein Beispiel soll helfen: 

Maurer Steinschlag findet, daß seine zukünftige LVA- 
Rente zu karg ausfallen wird. Er überlegt, monatlich für 200 
Mark schwarz zu arbeiten und mit seiner Hausbank einen 
Bonussparvertrag abzuschließen. Die Bank macht ihm ein 
annehmbares Angebot. Die monatlichen Sparbeträge über 
200 Mark werden mit 6 % per annum verzinst. Nach 20 Jah¬ 
ren erhält Herr Steinschlag auf die eingezahlte Summe 
einen Bonussatz von 30 %. Zunächst möchte Herr Stein¬ 
schlag wissen, wieviel er nach 20 Jahren sein eigen nen¬ 
nen kann. Bankier Geldmehr, der glücklicherweise einen 
C 64 und das Programm Kassofix besitzt, gibt dazu folgen¬ 
des in seinen Computer ein: 

Sparrate: 200 

Zinssatz in Prozent: 6 

Laufzeit in Jahren: 20 

Bonussalz in Prozent; 30 

Da Herr Steinschlag die Raten monatlich einzahlen will, 
wählt Bankier Geldmehr für die Sparrate; »monatlich«; 
Sparrate: monatlich 

Die Zahlungsweise wird auf »vorschüssig« festgelegt, 
denn der Maurer will stets am 1, des Monats bezahlen: 
Zahlungsweise; vorschüssig 

Das Programm errechnet: 

,Mhrliche Sparsumme DM: 2400 

Kapital in 20 Jahren DM: 48000 


Zinsertrag DM: 43154,70 

Bonusertrag DM: 14400 

Gesamtbetrag DM: 105554,70 

Steinschlag ist also nach 20 Jahren mit 105 554,70 Mark 
ein reicher Mann (wenn man die Inflation unberücksichtigt 
läßt). 

Nun fragt Maurer Steinschlag—er ist ja klug —, wie hoch 
eine monatliche Rente wäre, wenn die Sparsumme als 
Rentenkapital verwendet würde. Bankier Geldmehr sagt, 
das hinge von der Laufzeit der Rente und dem Zinssatz ab. 
Da Steinschlag meint, er würde steinalt, wünscht er eine 
»ewige Rente«, bei der das Rentenkapital nicht aufgezehrt 
wird. Die Bank bietet hierfür 6 Prozent Zinsen pro Jahr. 

Geldmehr aktiviert das Rentenberechnungsprogramm 
von Kassofix und gibt die nötigen Daten schnell in den C64 
ein. Einfache Menüs helfen ihm dabei: 

Rentenkapital sei der Gesamtbetrag von 105554,70 
Mark (Menüpunkt »Gesamtbetrag«) 

Rentenkapital: Gesamtbetrag 

Herr Steinschlag möchte monatlich ausgezahlt werden 
(Menüpunkt »monatlich«), 

Zahlungstermin: monatlich 

und zwar an jedem 1. des Monats. Geldmehr wählt als Zah¬ 
lungsweise »vorschüssig«. 

Zahlungsweise: vorschüssig 

Schließlich gibt Bankier Qeldmehr den angebotenen 
Zinssatz von 6 % ein: 

Zinssatz in Prozent: 6 

Da Steinschlag eine »ewige Rente« beziehen will, tippt 
der Bankier für die Dauer der Rentenzahlung den Wert 0 
ein: 

Dauer der Rente: 0 

Nach Bestätigung der Eingaben gibt der C 64 den errech- 
neten Rentenbetrag aus: Maurer Steinschlag erhält monat¬ 
lich 541^,oC/ Mark zusätzliche Rente. Er kann also durchaus 
zufrieden sein. 

<F6> Farbeinstellung 

In diesem Menüpunkt können Sie jederzeit die Farben 
des Bildschirms ändern. Gleiche Hintergrund- und Schrift¬ 
farbe werden von Kassofix nicht akzeptiert. 

<F7> Hilfsmenü 

Im Hilfsmenü werden nochmals kurze Erläuterungen zu 
den einzelnen Kredit- und Sparformen gegeben. Sie die¬ 
nen als Gedächtnisstütze, sollte man einige Funktionen 
des Programmes vergessen haben. 

Die Ausgabe der Beträge erfolgt normalerweise auf dem 
Bildschirm.Durch Druck auf die Taste <£> könnenjedoch 
sämtliche Rechenergebnisse auch auf einem Drucker aus¬ 
gegeben werden (Bild 2). 

Sicherheitsschloß 


Weiterhin wurde dem Programm eine Kennworteingabe 
vorangestellt, sodaß nur befugte Personen Kassofix nutzen 
können. Das Kennwort lautet »GELD«, kann aber in Zeile 60 
des Programmes nach Belieben geändert werden. Sollte 
man das Kennwort vergessen haben, gibt man zunächst 
ein falsches Wort ein. Anschließend ist »64'er« (wer könnte 
dieses Wort vergessen?) einzutippen. Trotz der Meldung 
»Kennwort falsch!« startet das Programm kurz darauf. 

Bei dreimalig falscher Kennworteingabe wird ein Reset 
des Computers ausgelöst und Kassofix gelöscht. Dieses 
»Sicherheitsschloß« ist besonders wirksam, wenn Kassofix 
compiliert wird. In diesem Fall kann man das Kennwort 
auch durch den Befehl LIST nicht mehr sichtbar machen. 

Nun aber viel Spaß mit Kassofix. 

(Gerhard Baukelmann/Michael Thomas/rf) 
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5 POKE a0B,234tPRINT CHR*<B) 

<196> 

232 

POKE 19G,0sWAIT 203,63sGET H« 

<209> 

10 REtI »<*»««***««»«*•««»*»»««•«*»*«** 

<14B> 

233 

IF H#=CHR*<133)THEN GOTO 238 

<170> 

11 REM * PROGRAMM ZUR BERECHNUNG * 

<0B2> 

234 

IF H*“CHR»(134)THEN GOTO 243 

<043> 

12 REM • VON BANKGE8CHAEFTEN • 

<192> 

235 

IF H*-CHR*(135)THEN GOTO 248 

<053> 

IS REM * VON GERHARD BAUKELMANN * 

<0B3> 

236 

IF H*“CHR*(136)THEN GOTO 2SS 

<1B3> 

14 REM « AUF DER REIHE 100 A * 

<2!4> 

237 

GOTO 232 

<029> 

IS REM • 4300 ESSEN 12 » 

<120> 

238 

REM RANDFARBE 

<231> 

16 REM * TEL.s 0201/21 26 40 * 

<070> 

239 

Z-Z+liIF Z>15 THEN 2-0 

<068> 

17 REM *•**»**#*****#***»**»******•»*» 

<135> 

240 

POKE 53280,2 

<11B> 

IS REM KENNMORTEINGABE 

<013) 

241 

PRINT CHR*<147)sB0SUB 110 

<090> 

20 ZL-0 

<016> 

242 

GOTO 180 

<042> 

21 IF ZL-3 THEN SYS 64733 

<1S5> 

243 

REM HINTERQRUNDFARBE 

<226> 

22 IF ZL-2 AND KW*»"64'ER"THEN GOTO 6B 

<083> 

244 

U-U+ltlF U>15 THEN U-0 

<154> 

30 PRINT CHRC(147)tP0KE 33200,0tPOKE 532G1 


245 

POKE S32S1,U 

<24l> 

,0«POKE 646,5iKW*-'”' 

<B23> 

246 

PRINT CHR*<147>560SUB 110 

<09S> 

40 PRINT"FUER COMMI KENNMBRT EINfl.i" 

<233> 

247 

GOTO 180 

<047> 

50 POKE 646,0s INPUT KWf 

<219> 

24G 

REM BCHRIFTFARBE 

<020) 

60 KN»>"GELD''ilF KM«:<>KN»THEN POKE 646,S:P 


249 

W-W'flslF W>1S THEN W-0 

<075> 

RINT’’KENNWDRT FALSCH! "i FOR 1«1 TD 2000s 


250 

POKE 646,M 

<200> 

NEXT I 

<004> 

251 

PRINT CHR«(147)sG0SUB 110 

<100> 

6 t REM ANZAHL EINGABEN 

<177> 

252 

GOTO 180 

<032> 

62 ZL-ZL+1 

<024) 

255 

J1-PEEK(532B1)AND 15 

<069> 

63 IF KN*<>KW*THEN GOTO 21 

<227> 

260 

J2-PEEK(646)AND IS 

<226> 

66 REM 

<126> 

261 

IF J10J2 THEN GOTO 900 

<026> 

63 PRINT CHR*<S)iPOK£ S32B0,14:POKE S32S1, 


262 

PRINT CHR*<147)sPaKE S32B0,0sPOKE 5320 



<200> 


l,0iPOKE 646,1 

<223> 

69 PRINT CHR»(147)SPRINT CHR*(142) 

<113> 

263 

PRINT"{RVSON)SCHRIFT- UND HINTERGRÜNDE 


70 PRINT"<WHITE,RV50N,BSPACE>MDECHTEN SIE 



ARBEIBPACE,RVOFF >" 

<1B2> 

EINE <12SPACE,RVOFF >" 

<000> 

264 

PRINT"<RvaON>MUEBSEN VERSCHIEDEN BEIN 


71 PRINT"<WH1TE,RV6ON,10SPACE>FARBEINBTELL 



!!!{2SPACE,RVOFF)" 

<O90> 

UNG V0RNEHMEN7<8PACE,RV0FF>" 

<090> 

265 

FOR I-l TO 2B00SNEXT IsGOTO 100 

<003> 

72 PRINT"<RV5DN,WHITE,10SPACE1BITTE J ODER 


270 

GOTO 900 

<006> 

N DRUECKENI<3SPACE,RVOFF>" 

<241> 

2BS 

PRINT CHR#(147) 

<060> 

73 POKE 19B,0:WAIT 203,63 

<115> 

290 

PRINT "•«**# *•**«#*«*****«•**»«* ««‘ft**** 


74 GET H*s 

<15S> 


**«*««*" 

<076> 

75 IF H*=CHR*(74)THEN GOTO 100 

<1B6> 

300 

PRINT"*{RVBON,37SPACE,RVOFF)*" 

<100> 

76 IF H*=CHR»<78)THEN PRINT CHR*11475sPOKE 


310 

PRINT"*{RVSON,8SPACE}RATENKREDITBERECH 


53280,14sPQKE 532Bl,6sP0KE 646,14sGaT0 



NUNG{BSPACE,RVOFF)»" 

<ia 2 > 

900 

<005> 

320 

PRINT"*{RVSON,373PACE,RVOFF)*" 

<120> 

B0 GOTO 73 

90 REM FARBEINSTELLUNQEN 

<0?0?.^ 

<04Sy^ 

--325 ^TNT"*{RVSON,37SPACE,RVOFF)*" 

330 ‘frr.’NT "*********•******•**•**«******««* 

<125> 

100 PRINT CHR*<147)sPOKE 646,0 

<043) 


«*««**« '* 

<116> 

101 POKE 53280,ISsPOKE S32B1,5 

<045> 

340 

POKE 214,6sP0KE 211,0sBYS 58640 

<097> 

105 PRINT CHR*<l'475sGOBUB 110 

<210> 

345 

PRlNTsPRINT"MDLLEN SIE DENCSPACE,RVSON 


106 GOTO 180 

<162> 


}EFFEKTIVEN JAHRESZINS{SPACE,RVOFF)" 

<061> 

110 PRINT"#******'•^*4»***««***#««»<*»******* 


346 

PRINTS PRINT"{RVSDN)EXAKT{RVOFF,SPACE)a 


«***««»»'* 

<24B) 


DER(SPACE,RVSQN}ANNAEHERUNGBMEieE{RVDF 


120 PRINT"<UP>*{RV80N,3BSPACE,RVQFF>*" 

<136> 


F,3PACE)ER-" 

<0O9> 

130 PR1NT"{UP>*{RVS0N,6SPACE>B ITT E<3SP 


347 

PR INT s PRINT"MITTELT HABEN?({RV8QN)F1(S 


ACEIF A R B E Nt9BPACE,RVDFF>*" 

<071> 


PACE.RVOFF)/{RVBaN>F2(SPACE,RVOFF))" 

<0O9> 

140 PRINT"<UP>*{RVB0N,3aSPACE,RVOFF)*" 

<1S6> 

348 

WAIT 203,63sGET E« 

<097> 

1S0 PRINT"<UP>*tRVS0N,63PACE)E I N 3 T E L 


349 

IF E*"CHR»(133)THEN X-lsBOTO 362 

<102> 

LEN 1 flISPACE,RVOFF)*" 

<06B> 

350 

IF E*=CHR*<137>THEN X-2sQ8T0 362 

<072> 

160 PRINT"{UP>*************************•** 


355 

GOTO 348 

<110> 


<I01> 

362 

PRINTlPR!NTsPRINT"RUNDUNGBANQABE FUER 


170 RETURN 

<228> 


DIE KREDITKOStENs"SPRINT 

<117> 

180 PRINT"{UP)*C3BSPACE)*" 

<036> 

363 

PRINT"(RVSON)(D)(RVOFF,SPACE)FUER MARK 


135 PRINT"{UP)*{3BSPACE>*" 

<041> 


/" 

<196> 

190 PRINT" {UP>*{3aBPACE)*" 

<046> 

365 

PRINT"(RVSON)(G){RVOFF,8PACE)FUER GROS 


200 PRINT"IUP)*{4SPACE,RVSQN)F1ISPACE,RVOF 



CHEN/(SPACE,RVSON)(P)(RVOFF,8PACE>FUER 


F,38PACE,RVBONIRAHMEN{68PACE,RVOFF,16S 



PFENNIG" 

<049> 

PACE)*" 

<17B> 

371 

POKE 19B,0sMAIT 203,63lGET R* 

<134> 

210 PRINT"{UP>*{38SPACE)*" 

<066> 

373 

IF R*-"D"THEN U-lsV-lsGOTO 302 

<073> 

220 PRINT" {UP>*{3SBPACE)*" 

<076> 

379 

IF R*»"B"THEN U=108V«.llBOTO 382 

<245> 

221 PRINT"{UP)*{48PACE,RVSQN>F3<SPACE,RV0F 


330 

IF R*-"P"THEN U-100bV-.01sQOTO 302 

<008> 

F,3BPACE,RVS0N)HINTERQRUND{aPACE,RVOFF 


331 

GOTO 371 

<21S> 

,168PACE>*" 

<10S> 

382 

PRINT CHR*(147)iP0KE 214,0sPOKE 211,Br 


222 PRINT"{UP)*{3BBPACE)*" 

<07a> 


SYS 58640 

<027> 

223 PRINT"{UP)*{3BSPACE>*" 

<079> 

383 

IF X>-I THEN PRINT"DER EFFEKT. JAHREBZ 


224 PRINT"{UP)*<4SPACE,RVSaN>F5{aPACE,RV0F 



INS WIRD" 

<0OS> 

F,3BPACE,RVBON >SCHRIFT <5BPACE.RVOFF,16 


384 

IF X»1 THEN PRINT"EXAKT BERECHNET 

<203> 

SPACE)*" 

<1B4> 

385 

IF X»2 THEN PRINT"ANNAEHERUNGSWEIBE BE 


225 PR1NT"{UP>*{30SPACE>*" 

<031> 


RECHNET. '■ 

<104> 

226 PRINT"{UP>*{3BSPACE)*" 

<0B2> 

386- 

PRlNTs PRINT"(RVSQNIEINGABE BENOETIGTER 


227 PRINT"{UP)*{4SPACE,RV80N>F7{SPACE.RV0F 



DATENs{RVOFF>"sPRINT 

<01S> 

F,3BPACE,RVB0N)WEITER{2SPACE,RVOFF,208 


387 

BK-0BNR-0I Ly.-0s ZG-0B BA-0t MG-Bs MK-0t MG- 


PACE)*" 

<033> 


0s EF-0 

<163> 

22B PRINT"{UP)*{3aBPACE>*" 

<034> 

390 

INPUT"*{4RIQHT)BEANTRABTER KREDITS(RVS 


229 PRINT"{UP>*{30SPACE>*" 

<005> 


DN)DM{SPACE,RVOFF)"j BK 

<041> 

230 PRINT"{UP)**************************** 


391 

IF BK<=0 DR BK>1000000 THEN PRINT"(RV9 


«*•»«*«**«*»*" 

<171> 


0N)FAL3CHE ANGABE•I!(RVOFF>"sGOTO 390 

<135> 

231 REM AU8WAHLVERZME1BUNG 

<191> 

392 

PRINT 

<240> 


94 
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395 

INPUT"»{RIBHT}EVEN. NETTO RESTBflLDOstR 


570 

PRINT"<5RIGHT>AUSeABE DER DATEN;tl2RIG 



VSaNlDMTSPACE.RVOFF}"! NR 

<225> 


HT>" 

<13a> 

396 

IF NR<0 OR NR>1000000 THEN GOTO 395 

<ia8> 

500 

PRINT 

<174> 

397 

PRINT 

<245> 

590 

PRINT"t 6 RlGHT>KREDlTSUMME« t 6 RIGHT>DMlt 


40a 

INPUT"*{3RIQHT}LAUFZEIT IN MONATEN»<RV 



RIGHT)"!INT(SU*100+.5)/100 

<079> 


SDN, 38P ACE, RVOFF > 5 LX 

<020> 

600 

PRINT"t37RIGHT>" 

<109> 

401 

IF LX<12 OR LX>120 THEN PRINT"<RVSDN>F 


610 

PRINT"tSRIGHTIMAKLERGEBUEHRENs <3RIGHT> 



ALSCHE ANGABE!!!<RVaFF>":0OTa 400 

<097> 


DM« tRlGHT}"!!NT(KK«100)/100 

<1B7> 

402 

PRINT 

<250> 

620 

PR I NT " 


40S 

INPUT"*<RIGHT>Z1NSEN PRO MONAT IN Xs<R 




<246> 


9SaN,BPACE>X<SPACE,RVDFF>''| Z8i 

<123> 

630 

PRINT 

<224> 

406 

IF ZS<-.01 OR ZS>5 THEN PRINT"{RVBDNIF 


640 

PRINT"GEGAMTKREDITHERAUSLAGE«(RIGHTIDM 



ALSCHE ANGABE! ■'{RVOFF>'‘sGOTD 405 

<049> 


1 CRIQHT}"} !NT<MK*1004-.S1 /100+SU 

<214> 

407 

PRINT 

<255> 

650 

PRINT 

<244> 

410 

lNPUT''*<RIGHT)BeARBEIT.GEBUEHR IN X» tR 


660 

PRINT"t4RI0HT>KREDITGEBUEHREN« <4RIGHT> 



VBQN,SPACE>XtaPACE,RVOFF>"{ BA 

< 212 > 


DM« tRI0HT>"iINT<KB*100+.5)/100 

<175> 

411 

IF BA<0 OR BA>20 THEN .GOTO 410 

<234> 

679 

PRINT 

<017> 

412 

PRINT 

)C0B4> 

6B0 

PRINT"tRIGHTIBEARBEITUNGBGEBUEHREN« tRI 


415 

INPUT"*<4RIOHT>MAKLERGEBUEHR IN XttRVS 



BHTTDMs <RIGHT>"!INT!GB»100+.5)/100 

<I01> 


ON,SPACEJX tBPACE,RVOFF>"j MG 

<092> 

690 

PRINT 

<02B> 

416 

IF MQ<0 OR MB>20 THEN GOTO 415 

<20B> 

700 

PRINT"tRIBHTIBEBAMTKREDITBETRAQi{4RIQH 


417 

PRINT«PR1NT"S0LL DIE ERBTE RATE EVENTU 



TJDM« tRIGHT>''| INT (01*100+. 5>/100 

.<05B> 


ELL NIE-“ 

<207> 

710 



41B 

PRINT"DRIBER ODER DIE LETZTE HOEHER BE 




<000) 


IN? N/H" 

<095> 

720 

PRINT"< 6 RIBHT>RATENPLAN« t9RIQHT>" 

<207> 

419 

POKE 19e,BtWAIT 203,63i0ET 

<142> 

721 

R1-INT(R1*100+.S)/lOB 

<21i> 

420 

IF Hi-'-N" THEN P=0sPRINT'’{ 6 RIQHTINIEDR 


722 

IF P-0 THEN GOTO 740 

<19S> 


lSER'’3GOTa 423 

<197> 

734 

PRINT" <0RIBHT>"|LX-l! "RATEN« <RIGHT>Dt 1 s 


421 

IF H4<°"H'’THEN P-1: PRINT" < 6 RIGHT>HOEHER 



tRIGHT)"!R2 

<003> 


"«GOTO 423 

<076> 

735 

PRINT 

<073> 

422 

GOTO 419 

<169> 

736 

PRINT"t 6 RIGHT>LETZTE RATE« tRIGHTlDM« tR 


423 

PRINT« PRINT"t0BPACE>AN&ABENtSPACE,RVSO 



IBHT)''!Rl 

<009> 


N>RtRVDFF>ICHTIG/<RVBDN>F<RV0FF}ALSCH7 


737 

GOTO 764 

<173> 



<0B7> 

740 

PRINT"ORIGHTIERSTE RATE«{6RIGHT1DM!tR 


424 

POKE 19B,0:MAIT 203,63:GET H$ 

<147> 


IGHT>"!R1 

<029> 

425 

IF H»=CHR»(82)THEN GOTO 430 

<0S5> 

750 

PRINT 

<0B8> 

426 

IF H#=CHR*<70)THEN GOTO 3B2 

<O06> 

760 

PRINT" t7RIBHT>WEITERE‘';LX-l! "RATEN« <RI 


427 

GOTO 424 

<029> 


QHT>DM:tRIGHT>"iR2 

<244> 

430 

SU=BK+NR 

<051> 

764 

IF E*=CHR*(137) THEN GOTO 767 

<!23> 

435 

Q=<ZS/100) 

<160> 

765 

IF F«-CHR*(133>THEN GOSUB 25000 

<067> 

440 

KB-SU»Q«LX 

<B 6 lS''''^ 

^ ^ 6 a- 6 of!r '-'00 

<106> 

450 

BB=<BA/100)*BK 

<255> 

767 

MH=(MK/SU>*100 

<167> 

455 

GK=(eU+KB+GB> 

<146> 

770 

EF-24*(((2S*LX)+MH+(BB*100/gU> >/(LX+1) 


460 

IF KB*U-INT(KB«U>><".S THEN KB=<INT(KB* 



) 

<196> 


U)/U)+ViQOTO 470 

<117> 

771 

eF'=INT<EF*10B*.5> 

<103> 

470 

IF KB*U-INT(KB*UK.5 THEN KB=(INT<KB*U 


775 

PRINT"EFFEKT. JAHRESZINSit5RlGHT>"jEF/ 



>/U> 

<240> 


100 

<001> 

475 

IF BB*U-INT<GB*U)>».5 THEN BB=(INT<GB* 


700 

PRINT"tDDWNlNOCH EINE BERECHNUNG?(J/N) 



U)/U)+V:GOTD 4B5 

<13S> 


" 

<002> 

400 

IF GB*U-INT<GB*U)<.5 THEN GB=(1NT(GB*U 


790 

POKE I9e,0iWAIT 203,639GET F* 

<253> 


l/U) 

<162> 

000 

IF F* =CHR*(74>THEN GOTO 382 

<0B2> 

4B5 

MK"M6*BK/100 

<145> 

010 

IF F#-CHR*<7B)THEN PRINT CHR*(147)«BOT 


490 

IF MK»U-INT(MK«U>>-.5 THEN MK=(INT(MK» 



0 1000 

<017> 


U)/U)+-V!BOTO 505 

<2I4> 

030 

IF F*-CHR*(92)THEN GOSUB 26000 

< 0 ie> 

500 

IF MI<*U-INTCMK*UK.5 THEN MK-= < !NT<MK*U 


035 

GOTO 790 

<I93> 


) /U) 

<i9a> 

900 

REM KASSOFIX HAUPTMENUE 

<160> 

505 

Ql-SU+KB+MK+QB 

<190> 

1000 

PRINT CHR*(147> 

<011> 

510 

RO-Ql/LX 

<149> 

101 c 

PRINT"•*»»**«**•*•«*»*»«*•»•*»*••**«« 


511 

IF P-1 THEN GOTO 524 

<024> 


*•««•*»»*" 

<130> 

515 

R2-1NT(R0)+-1 

<170> 

1020 

PRINT"tUP > * tRVaON,30SPACE,RVOFF)*" 

<0i8> 

516 

IF RB-lNT(R0>-0 THEN R2-61/LX 

<041> 

1030 

PRINT"tUP>*tRVSON,ltSPACE>K A B 0 □ F 


517 

Rl-(-(LX-l)*R2+BI> 

<239> 


I Xt2SPACE>V.3<78PACE,RVOFF)#" 

<217> 

Sie 

IF Rl<-0 THEN PRINT CHR*(147>{"tSDOWN, 


1040 

PRINT"tUP>*tRVSON,148PACE>MENUEAUSWAH 



RVSONIEIN KREDIT ZU SOLCHEN KONDITIONE 



Ltl2aPACE,RVOFF)#" 

<04e> 


NtSPACE.RVQFFJ" 

<20B> 

10SC 

PRINT"tUP>*<RVaON,6SPACE>{C> 1906 BY 


519 

IF Rl<-0 THEN PRINT"<RV 8 QN>KANN NICHT 



GERD BAUKELMANNtSSPACE,RVOFF)#" 

<092> 


HERAUBBELEGT WERDEN I!'tRVOFFI"«GOTO 7B 


1066 

PRINT"tUP}*#*##*#«####«##«#«####*»#»# 



0 

<061> 


«#»##«#»•##»#" 

<241> 

520 

PRINT CHR*<147)!Q0T0 530 

<165> 

1070 

PRINT"tUP)#t3a3PACE)#" 

<166> 

524 

R2-INT(R8) 

<120> 

1006 

PRINT"tUP>*t4GPACE,RVeDN}FItSPACE.RVD 


525 

IF R0-INT(R0)-0 THEN R2-B1/LX 

<050> 


FF,45PACE,RVaDN)RATENKREDITBERECHNUNB 


526 

Rl»(-ILX-1)*R2+Bn 

<24a> 


tBPACE,RVOFF,5BPACE)#" 

<213> 

527 

IF R2<-0 THEN PRINT CHR*<147)i"tBDOWN, 


10B5 

PRINT"tUP>#<3BSPACE>#" 

<iei> 


RVBONIEIN KREDIT ZU SOLCHEN KONDITIONE 


1096 

PRINT"tUP)#t4BPACE,RV3QN)F2<aPACE,RVO 



NtSPACE.RVOFFJ" 

<233> 


FF,4BPACE,RV9ON)RAHMENKREDIT<10SPACE, 


520 

IF R2<-0 THEN PRINT"tRVSDNJKANN NICHT 



RVOFF,SSPACE)*" 

<153> 


HERAUSBELEGT WERDEN!!!tRVOFF}"«GOTO 7B 


1095 

PRINT"tUP)* tSGSPACE)#" 

<19l> 


0 

<0B6> 




529 

PRINT CHRi<147) 

<050> 




530 

REM DATENAUSGABE 

<171> 




550 

POKE 214,3:P0KE 211,0 

<100> 

Listing 1. Das Programm »Kassoflx». Verwenden Sie 

560 

SYS 50640 

<197> 

tür die Eingabe bitte den Checksummer 64 (Seite 159). 
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1100 

PRINT"<UP>*<4SPACE,RVSDN>F3(BPACE,RV0 



BON}J{RVOFF}AEHRLICH?" 

<226> 


FF,4SPACE,RVSON>HVPaTHEKENDARLEHEN<4S 


21SB 

POKE 19B,0:WAIT 203,63:QET Hi: 

<010> 


PACE,RVOFF,5SPACE >*" 

<07B> 

2159 

IF H*=CHR*<86)THEN X=1iY=90tZ-3:J»""V 


1105 

PRINT"<UP>*<3SBPACE>*" 

<201> 


IERTELJAEHRLICH":PRINT JtiGOTD 2163 

<176> 

1110 

PRINT"{UP>*C4BPACE,RVS0N>F4{9PACE,RVa 


2160 

IF H*=»CHR*(72)THEN X-Z. 5: Y-100: Z=6: J* 



FF,4SPACE,RVSaN>SPARBRIEFBERECHNUNQEN 



""HALBJAEHRL!CH"iPRINT J*:BOTQ 2163 

<136> 


tBPACE,RVOFF,5SPACE>*" 

<140> 

2161 

IF H»-CHR»(74)THEN X-S.5tY-360!Z-12:J 


ins 

PRINT"<UP>*<3BSPACE>*" 

<2ll> 


*="JAEHRLICH":PRINT J»;BOTD 2163 

''167> 

1120 

PRINT"{UP>*t4BPACE,RVB0N>F5{SPACE,RVO 


2162 

GOTO 215B 

<000> 


FF,4SPACE,RVS0NIBDNU38PAREN{11BPACE,R 


2163 

IF KB/MR<4 THEN PRINT"{RVSONIFALSCHE 



VQFF,5SPACE>#" 

<2I3> 


EINGABE!!'"iFOR 1=1 TO 1000tNEXT ItGO 


1123 

PR 1 NT •' {UP > * {SaSPACE } * " 

<221> 


TO 2000 

<239> 

uze 

PRINT"{UP>*{4aPACE,RVBDN>F6{SPACE,RVO 


2164 

IF KB/MR<Z THEN GOSUB 2150:GOTO 215B 

<120> 


FF,4SPACE,RV80N>FARBEINSTELLUNQ{7SPAC 


2165 

PRINT:PRINT"AUSBABE DES EFF. JAHRESZI 



E,RVOFF,5SPACE>*" 

<090> 


NS?<J/N>" 

<222> 

1135 

PRINT"{UP>*{39SPACE>*" 

<231> 

2166 

POKE 19B,0iWAIT 203,63:GET 6«:IF G«-C 


1137 

PRINT" {UP>*{4BPACE,RVSON}F7{aPACE,RVO 



HR»(74)THEN P=liQDTO 2200 

<074> 


FF,4SPACE,RV90N}HH.FBMENUE{12BPACE,RV 


2167 

IF G»«CHR*(7S)THEN P=0:GOTO 2200 

<209> 


0FF,5SPACE>#" 

<045> 

216B 

GOTO 2166 

<16S> 

tl3B 

PRINT"{UP}*<3BSPACE}*" 

<234> 

2200 

REM RECHENROUTINE KONTOKORRENT 

<056> 

1139 

PRINT"{UP>*{4SPACE,RVB0N>F8{SPACE,RVO 


2201 

ZH=0 

<133> 


FF,48PACE,RVSDN>ENDE{1B8PACE,RV0FF,58 


2202 

IF Ke/MR<»Z THEN AW=KB:ZH=0:GOTO 2400 

s0a3> 


PACE>*" 

<05a> 

2204 

IF ZHO0 THEN BW=AW-X*MRtQDTO 2206 

<115> 

1140 

PRINT"{UPI««»»*****«*««****»««»«***** 


2205 

BW=KB-X*MR 

<225> 


***#»*******»•' 

<06S> 

2206 

RU=BM/1B0 

<032> 

1145 

POKE 19B,0:MAIT 203,63 

<171> 

2207 

ZB=RW«V*ZS/360:IF ZH>0 THEN GOTO 2209 

<r077> 

1130 

BET M# 

<1B4> 

2206 

AW=KB-IZ»MR)+ZB:ZH=Z:QOTO 2211 

<141> 

1160 

IF N*=CHR#(133)THEN OOTO 2B5 

<249> 

2209 

AW=AW-(Z*MR)+ZB:ZH=2H+Z 

<030> 

1170 

IF M*=CHR$(137)THEN BOTD 2000 

<106> 

2211 

IF ZH >120 THEN PRINT CHR*(147);"{6D0 


11B0 

IF M*=CHR*(134)THEN GOTO 3000 

<16B> 


MN.RVSONIEIN RAHMENKREDIT ZU SOLCHEN 


1190 

IF M*=CHR»(I3a)THEN GOTO 4000 

<003> 


KDNDI-{RVDFF>" 

<047> 

1200 

IF M»=CHR*<135>THEN GOTO 5000 

<065> 

2212 

IF ZH >120 THEN PRINT” {RVSDN>TiaNEN K 


1210 

IF M*=CHRJ<139)THEN GOTO 105 

<255> 


ANN NICHT HERAUSGELEGT WERDEN'{RVOFF, 


1220 

IF M#'=CHR*(136)THEN GOTO 10000 

<024> 


2DDWN}'‘;GaT0 2744 

<137> 

1225 

IF M*=CHR*<140>THEN PRINT CHR»(147>jP 


2220 

REM ABBRUCHBEDINGUNGEN FUER RECHNEN 

<028> 


RINT"BYE!":FOR 1=1 TO 2000fNEXT I:BQT 


2221 

IF AW-!Z*MR)<=0 THEN GOTO 2400 

<'I59> 


0 3 

<ia 0 > 

2225 

GOTO 2204 

<174> 

1226 

IF ZL=2 AND M*=CHR*(155)THEN BOBUB 30 


2400 

REM RECHENRDUTINE UNTERE VERZINSUNG 

•:0S0> 


000 

<239> 

2401 

KI=0:D=0 

<02B> 

1227 

IF ZL=2 AND KWJOKN# THEN ZL=ZL+I:GaT 


2407 

IF MR>AW THEN R2=AW+<(AW/IBO)»30*ZS/3 



0 1000 


.-.Lir.»^ j) sSOTO 2550 

<061> 

1230 

GOTO 1145 

<107> 

2415 

KW=AW/10a 

<I03> 

2000 

PRINT CHR»(147)t PRINT"{UP>*********** 


2520 

K1=K1+(KW*30*ZS/360):D=D+1 

<096> 


«**«*«*«*««»««*»«*«*»*«>»**««*" 

<052> 

2525 

AW=AW-MR:ZH=ZH+1 

<Z46> 

2010 

PRINT"{UP>*{RVSDN,3aSPACE,RVOFF3*" 

<24a> 

2530 

IF AW>MR THEN GOTO 2415 

<047> 

2020 

PRINT"{UPJ*{RVSaN,7SPACE>R AHMEN 


2540 

IF D< Z THEN R2=AW+Kl+((AW/100)*30*ZS 



K R E D I T{aSPACE,RVOFF}*" 

<200> 


/360) 

<129> 

2030 

PRINT"{UP}*{RVS0N,3BSPACE,RVOFF}*" 

<012> 

2545 

IF D>=Z THEN R2=AW+Kt+(!(AW+Kl)/100)* 


2035 

PRINT"{UP}*{RVS0N,3BSPACE,RVOFF}*" 

<017> 


30«ZS/360! 

<232> 

2040 

PRINT"{UP}*********»*»»*»*#»**»****** 


2550 

R3—I NT (R2* 100) *R2* 100 

<15B> 



<203> 

2551 

IF R3>".5 THEN R4=0.01 

<104> 

2050 

PRINT 

<120> 

2552 

IF R3<.5 THEN R4=0 

<075> 

2060 

PRINT"{7SPACE,RVSDN}E1NGABE BENOETIBT 


2553 

R5=INT(RZ*100)/100*R4 

<027> 


ER DATEN:{SPACE,RVOFF}":PRrNTiPRINT 

<0ö7> 

2554 

IF R5>MR THEN AW=0iRZ=R5-MR:ZH=ZH+1;R 


2065 

KB=0:ZS=0tMR=0 

<119> 


2=R2*((R2/100)*30*28/360):GOTO 2550 

<253> 

2070 

INPUT"KREDITBETRAQi{5BPACE,RVB0N}DM:{ 


2555 

PRINT CHR#(147) 

<042> 


BPACE,RVOFF}"jKB 

<03B> 

2600 

MR=INT(MR*1004.5)/i00 

<20S> 

2075 

IF KB<1000 THEN PRINT"{RVSONIBETRAB M 


2605 

R5=INT(RS*100*.5)/100 

<099> 


USB MIND. DM 1000 8EIN{RV0FF}";GOTO 2 


2660 

PRINTiPRINT"AUSGABE DER DATEN:":PRINT 

<146> 


070 

<13S> 

2700 

PRINT"BE! EINER KREDITSUMME VON '•:PRI 


20B0 

PRINT 

<059> 


NT 

<146> 

2005 

INPUT"ZINSSATZ IN % P.A.{RVSONIX : {SP 


2710 

PRINT"{BRIBHT}Dt1{2BPACE>"!INT!KB*10B+ 



ACE,RVQFF}"|Za 

<174> 


.5)/100iPRINT:PRINT 

<239> 

2090 

IF ZS<-.1 THEN PRINT"{RVSONTZINBSATZ 


2730 

PRINT"ZU EINEM ZINSSATZ VON";2a|"X P. 



IST FALSCH!{SPACE,RVaFF}"iGDTO 2005 

<245> 


A.":PRINT 

<194> 

2091 

IF Z8>3a THEN PRINT"{RVSON)ZINSSATZ I 


2735 

PRINT-'ERBIBT BICH BEI EINER MONATLICH 



ST ZU HOCH!{SPACE,RVaFF}"iGaTa 2085 

<022> 


EN RATE"iPRINT 

<253> 

2095 

PRINT 

<165> 

Z73B 

PRINT"VON DM"! INT (MR*100*.5)/100;"FOL 


2100 

1NPUT"M0NATL. RATENHOEHEs{RVBONIDM:{B 



BENDER RATENPLANa":PRINTiPRINT 

<115> 


PACE,RVOFF}"! MR 

<049> 

2739 

PRINT ZH!"RATEN ZU DM "!INT(MR*100+.5 


2101 

IF MR<=0 THEN GOSUB 21S0IGOTO 2100 

<207> 


)/100iPRINT 

<011> 

2102 

IF MR>KB THEN GOSUB 2150!QaTO 2100 

<191> 

2740 

PRINT"UND EINE RATE VON DM"!R5iPRINT 

<064> 

2103 

IF KB/MR>100 THEN GOSUB 2150IQDTO 210 


2741 

PRINT"ZINGZAHLUNBSTERMlNt"!J*tPRINT 

<lSl> 


0 

<253> 

2742 

PRINT"BEBAMTKREDITBETRAQ DM"iZH*MR+R5 


2114 

GOTO 2156 

<079> 


sPRINTtPRlNT 

<036> 

2150 

PRINT"{RVSQNIFALSCHE EINGABE!!!{SPACE 


2743 

IF P=1 THEN GOBUB 20000 

<0B1> 


,RVOFF}": 

<043> 

2744 

PRINT" {ZRIGHTINOCH EINE BERECHNUNG?(J 


2155 

RETURN 

<iai> 


/N) " 

<146> 

2156 

PRINT:PRINT"{RVSONTZINSZAHLUNBSTERMIN 


2750 

POKE 19B,0:WAIT 203,63:BET HF 

<1B7> 


:{RVOFF,SPACE,RVSONIV{RVOFF}lERTELJAE 


2754 

IF H*=CHR»(7B)THEN GOTO 1000 

<12S> 


HRLICH/" 

<I46> 

2755 

IF H*=CHR*(74)THEN GOTO 2000 

<150> 

2157 

PRINT"{RVSON}H{RVOFF}ALBJAEHRLICH/{RV 


2756 

IF HF=CHRF(92)THEN GOSUB 26000 

<1B2> 
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C64 


FINANZEN 


2760 

GOTO 2750 

<1B4> 

3515 

PRINT"<UP}*<RVS0N,B3PACE>D A R L E H 


3000 

REM HYPOTHEKENDARLEHEN 

<2S3> 


E N<15SPACE,RV0FF>*" 

<086> 

3010 

PRINT CHR$(147) 

<245> 

3516 

PRINT*' <UP>*********4^***************** 


3020 

PRINT"«*»****»'»*»«**««'»»*'»****«'**»«-»'» 




<155> 


«*«*«*•»»«" 

<ie8> 

3520 

PRINT"MQ£CHTEN SIE EINE{SPACE,RVBQNIS 


3030 

PRINT"<UP>*<RV50N,3aaPACE,RVQFF>*" 

<252> 


CHULDENSTAND-" 

<098> 

3040 

PRlNT"{UP)*tRVS0N,6SPACE>H Y P 0 T H 


3530 

PRINT"CRV90N>BERECHNUNB{RV0FF,BPACE>V 



E K E N-{12BPACE,RV0FF>*" 

<0a0> 


DRNEHMEN7{SPACE,RVaONXJ/N){SPACE,RV8 


3045 

PRINT"IUP}«<RVSON,SaBPACE,RVOFF>«" 

<0ii> 


FF>" 

<176> 

3050 

PRINT"IUPJ*<RVSDN,8SPACE>D A R L E H 


3540 

POKE 19B,0aWAIT 203,63 bGET H* 

<215> 


E Ntl5BPACE,RVaFF>»" 

<049> 

3550 

IF H*»CHR*<74) THEN GOTO 3600 

<oaB> 

30&0 

PRINT"<UP>*»»«*»«**«*»«**»««***«****« 


3560 

IF H»-CHR*(7S) THEN GOTO 3575 

<178> 


*»»•«*»««»«•>«" 

<207> 

3570 

GOTO 3540 

<176> 

3070 

REM EINGABE 

<022> 

3575 

PRINTbPRINT"NOCH EINE BERECHNUNG? J/N 


3080 

PRINT"{BRIGHT.RVSONJEINGABE BENOETIQT 



»1 

<097> 


ER DATENs<3PACE,RV0FF>" 

<179> 

3576 

POKE 19e,0aWAIT 203,63iQET H« 

<25l> 

3090 

PRlNTiPRINT"WIE HOCH SOLL DIE 8CHULDS 


3577 

IF H«-CHR*(74) THEN GOTO 3000 

<242> 


UMME SEIN?" 

<179> 

357B 

IF H»«CHR*(7B) THEN GOTO 1000 

<ia7> 

3100 

INPUT"{17RIGHT.RVS0N>DM« tSPRCE,RVOFF> 


3579 

GOTO 3576 

<154> 


"jC 

<017> 

3600 

REM SCHULDENSTANDBERECHNUNG 

<020> 

3105 

IF C<100O OR 050000000 THEN GOTO 310 


3610 

PRINTbPRINT"WIEVIELE JAHRE LANG HABEN 



0 

<B30> 


SIE BEREITS" 

<113> 

3110 

PRINTSINPUT"WELCHE LAUFZEIT IN JAHREN 


3620 

PRINTbINPUT"IHRE RATEN BEZAHLT"|J4 

<190> 


J 

<209> 

3625 

IF J4<'°0 THEN BOTO 3610 

<146> 

3115 

IF J<1 DR J>50 THEN GOTO 3110 

<1S9> 

3626 

IF J4>J THEN GOTO 3610 

<247> 

3120 

PRINTj INPUT'-WELCHER ZINSSATZ (IN X)"; 


3627 

IF J4-J THEN BOTO 3800 

<024> 


Z 

<216> 

3630 

J5-J-J4 

<211> 

3125 

IF Z<-.1 DR Z>30 THEN GOTO 3120 

<011> 

3640 

Z5-Z5/100 

<oa0> 

3200 

REM BERECHNEN DER ANNUITAET 

<1I6> 

3650 

Q=I+Z5 

< 2 oe> 

3210 

a=(l-KZ/100>> 

<07B> 

3660 

RB=<l-<Qt-JS))/Z5 

<0a2> 

3220 

RB-(-{QT-J)-H)/(Q'-l) 

<129> 

3670 

V-RB*AF 

<222> 

3230 

AN°l/RBsAF°C*AN 

<171> 

3680 

»»C-V 

<172> 

3240 

AC=AN*CsAC“1NT(AC*I00>/100 

<024> 

3690 

V=“INT(V*100>/100 

<12S> 

3245 

D=AC/( ( (66/12>*<Z/'100) )*l'Z) 

<119> 

3700 

M=INT(W*100)/100 

<203> 

324£i 

D=INT(D*i00)/100 

<241 > 

3710 

DF=C-<V■^W) 

<191> 

3252 

PRINT8PRINT"S0LL EIN DISAGIO VEREINBA 


3711 

IF DF>0 THEN M=W».01 

<006> 


RT WERDEN?(J/N)" 

<126> 

3715 

PRINT CHR*<1471s PRINT"{5SPACEISCHULDE 


3253 

PDKE 19a,0BWAIT 203,63sQET F* 

<174> 


NSTANDs" 

<209> 

3254 

IF F»=CHR*(74>THEN GOTO 3258 

<167> 

3716 

PRINTSPRINT"BEI EINEM KREDIT VON DM"; 


3255 

IF F*=CHR»<70)THEN GOTO 3259 

<177>., 

' m 

Ck^niNER" 

<200> 

3256 

GOTO 3253 

<036> 

PRlNrBPRINT"LAUFZEIT VON "J;"JAHREN Z 


3257 

GOTO 3258 

<103> 


U EINEM ZINS-" 

<066> 

3258 

GOSUB 28000 

<070> 

3718 

PRlNTsPRINT"SATZ VON ";Z5*100;"X P.A. 

<161> 

3259 

PRINT CHR*<147> 

<240> 

3719 

IF J4=l THEN GOTO 3721 

<074> 

3260 

PRINT"tl2RlGHT>AU3GABE DER DATENs" 

<148> 

3720 

PRINTsPRINT"HABEN SIE NACH '■;J4;"JAHR 


3270 

PRINT 

<06a> 


EN DM";Ws GOTO 3730 

<09B> 

3280 

PR1NT"BEI EINER VERZINSUNG VON 


3721 

PRINT:PRINT"HABEN SIE NACH EINEM JAHR 



ERGIBT" 

<047> 


DM”;W 

<124> 

3290 

PRINTsPRINT"SICH FUER EINE LAUFZEIT V 


3730 

PRINT 

<020> 


ON "!J;" JAHREN " 

<00a> 

3735 

PRINT"ABBEZAHLT." 

<!69> 

3295 

PRINTsPRINT"BEI EINEM KREDIT VON DMs 


3740 

PRlNTaPRINT"SIE HABEN NOCH DM ";V 

<243> 


"I INT(C*100-t-.S) /100 

<125> 

3745 

PRINTsPRINT-'ZU ZAHLEN." 

<041> 

3300 

PRINT8PRINT"EINe JAEHRLICHE BELASTUNG 


3750 

PRlNTsPRINT"{7SPACE>TASTE DRUECKEN! " 

<IB3> 


VON" 

<220> 

3760 

POKE 19B,0:WAIT 203,63bGET H* 

<1S1> 

3310 

PRlNTsPRINT"{lORlGHTJDMs ")AC 

<109> 

3770 

IF H«°>CHR«(92)THEN GOSUB 26000 

<1B0> 

3315 

PRINTiPRINT"DAS ENTSPRICHT EINER DURC 


3780 

IF HSOCHR* <921 THEN PRINT CHR*(147>iB 



HSCHNITTLICHEN" 

<116> 


OTO 3259 

<210> 

3320 

PRINTsPRINT"MONATLICHEN BELASTUNG VON 


3800 

PRINT CHR«(147)SPRINT"{SSPACEIBCHULDE 



DMs ";INT(D*100+.S)/1B0 

<0t5> 


NSTANDs" 

<03e> 

3321 

IF F*»CHR*(7e)THEN GOTO 3330 

<04i> 

3810 

POKE 214,10sPaKE 211,0 bBYS 58640 

<025> 

3325 

IF FF'»CHR*(74) THEN POKE 214,1BbP0KE 


3820 

PRINTSPRINT"SIE HABEN KEINE SCHULDEN 



21 1,0b SYS 58640 

<0S0> 


MEHR!" 

<113> 

3326 

PR1NT"D1E EFFEKTIVE VERZINSUNG BETRAE 


3830 

PRINTiPRINT 

<226> 


ST BEI" 

<0Si> 

3840 

PRINTlPRlNT 

<23S> 

3327 

PRINTiPRINT"EINEM DIBAGIO VON "5ZD;"y. 


3850 

PRINTi PRINT" {7ePACE>TASTE DRUECKEN !• " 

<029> 


1 "jZl;"%" 

<22B> 

3860 

POKE 198,0iWAIT 203,63lBET HS 

<027> 

3328 

PRINTiPRINT"AUBZAHLUNGSBETRAQa DM "|I 


3870 

IF HS>CHRC(92)THEN GOSUB 26000 

<026> 


NT(L*100'f.51/100 

<13B> 

3880 

IF H*<>CHR*<92)THEN PRINT CHR»{147)8G 


3330 

PRINTiPRINT"{0SPACEJTASTE DRUECKEN!" 

<017> 


OTO 3259 

<056> 

3335 

POKE 19S,0bWAIT 203,63sBET H* 

<010> 

4000 

REM SPARBRI'EFBERECHNUNGEN 

<159> 

3336 

IF H*<>CHR*(92)THeN GOTO 3500 

<229> 

4005 

GOSUB 4010 

<2Z7> 

3337 

IF H*-CHR«<92)THEN GOSUB 26000 

<001> 

4006 

GOTO 40B0 

<16l> 

3340 

GOTO 3335 

<203> 

4010 

PRINT CHR$<147> 

<229> 

3500 

PRINT CHR»<147> 

<227> 

4020 

PRINT"•««»•**•*«•*•»*********»******* 


3505 

J4=0g JS°Oa ZS°Z > W»08 V°0 

<044> 



<092> 

3510 

PRINT CHR*(147) 

<237> 

4030 

PRINT"{UP>*{RVSaN,3BSPACE,RVQFF>*" 

<236> 

3511 

PRINT"******************************* 


4040 

PR1NT"{UP>*{RVS0N,6SPACEJS P A R B R 



«*»*»«*»*'* 

<091> 


I E F -{13SPACE,RV0FF)*" 

<226> 

3512 

PRINT" nJP>*<RVSaN,3aSPACE,RVDFF)*'' 

<226> 




3513 

PRINT"<UP>*<RV50N,6SPACE>H Y P 0 T H 






E K E N-<12SPACE,RV0FF>*" 

<04S> 




3514 

PRINT"<UP>*<RVS0N,3BSPACE,RVDFF>*" 

<22S> 

LIstIng 1. »Kassonx« (Fortsetzung) 
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Eraänzen CSA?OI* 
Sie jetzt Ihre 


-Sammlung 


Sdiaffen Sie sich ein interessantes Nadischlageweric und gleichzeitig eii 
wertvolles Archiv! 

Kennen Sie alle Ausgaben von 64’er? Suchen Sie einen ganz bestimmten Testbericht? Oder haben Sie einen Teil 
eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/86. 


Und so kommen Sie schnell an die noch lieferbaren Ausgaben; Prüfen Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer ^eser Ausgabe und das Erscheinungs¬ 
jahr (z.K 2/86) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte ein¬ 
fach heraustrennen und Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs¬ 
eingang umgehend zur Auslieferung gebracht. 



TtWl 

CaiM 

JbugeW 

AktneU 




AUeiinsin»« 

OoRimodero Oonam Koum Morgen 

10 

01/99 

Caenpuiar 


9 

09/99 


iMarvtr« mit David Cnn« (Oane DMflner) 

149 

09/98 


äciiuM bnuchi CempiKti (VAM'Cemputet) 

9 

00/19 

M*M«n 

IntvnmMRi] CImm CemsummHn CengrtM 

16 

03/98 


Keifii Mom* Bt d«t Wufis* OeS 

g 

03/99 


KannovBt-MeMa H 

g 

00/88 


KanncratMOfM ‘Sft 

g 

07/99 


Chtaado iw Zeieheti dar CSS 

g 

00/89 


AJrtuotlaa von dar CVS In KUi 

19 

09/99 


9U TtM] CInif nvauen«]« rQfüan«>lallutig) 

9 

10/98 


PCWConpuHrffiatae in London 

1 

n/69 


Neuaa vea dar Goniivdore'fbchaiumUBfio IftM 

9 

19/96 

liecht 

Dm naue AbnaKnnaKhe - \^raichi b« Pi» 

9 

09/66 


9 n m cna n e eboca n 




Dia gvKnaekar — we aiM ai« geblMbeo? 

97 

08/96 


tnwrview mU Raubkopieram ISeaUon 91 

99 

08/66 


SohttBerMntn Xnackj'a 

99 

09/90 


IbiibTaltoltcw 

la 

08/66 


Dia Ufhoberveohtagaaetiund Oadankeo tu aeinar 

91 

09/16 


AnvretvduoB 




Andaning das Urhabemchvgeaottaa 

199 

09/60 

BDchbesprechungeB 



AnAneei 

CeldiTtaiin CenniBiat CcirpKi 

97 

n/se 



96 

06/60 


AUaa Qbar dan C 94, Saehbaohraüia, Sand 1 

(19 

06/U 


iMhJipialisofl Conpuiat' C 64/VC 90 

IIS 

11/16 


C 64 Cerapuiern&iidttueh 

171 

U/W 


EinlUhninöiäQJT Cemnwden $4 

(44 

ä/w 

Anwtndvna 

Piowptognrnjn« VC 10, Cft4 and S 

M 

Ol/H 


Spaft an Maiha mli daei CeromodoMW 

19 

07/86 


Matha nir dw ObeWufa ml dem C 64 

98 

07/99 


MaUvanuUivha Boviinan VC M, CUctToncliaUi/ 

111 

11/69 


ElekRanJIt 




CommodcraSl'tiidaoa. Sand 2. □ateivtminincr, 

(11 

11/19 


SchuM, Kobbr 




Daa Tram Ing Aoch nm Daanm 

144 

li/W 

C 119 

SOcheregmCia 

ftl 

lQ/88 

Drt 

OM äUiiboa-jahtbuch' Nuu dla Neu« 

iia 

11/89 

Onbt 

OraAk aut dem Cammodore 94 (alUileri. ft/891 

99 

00/99 


Sifilbhrune ui CAD mir dem CemmBdci» 94 

189 

09/89 


CraAk 4 MuaQr auf dem Camnedera 64 

98 

07/96 


VenchuMena OnOkboehor tum C 64 

119 

09/18 

PiegnniRuS' 

\ton laiicfu AiMinbiar Du Cemmedora Buch. 

1(9 

09/99 

.•> 

Band 4 




94 Iniam 

IM 

08/K 


Poa iMarfaca Aq* Bywam Kandbueh lum C 94 

IM 

09/96 


Du C 94 Buch, Sand & Umena Batig laiibdan 

(44 

tt/H 


Sailcode 

144 

19/W 


Kmh mehl tipo und Tnektaum 94er 

144 

lS/96 

tpeiohem 

Du lUaaeitenbuah luni C94 und VC H 

87 

03/99 


Dia Flappv 1941 (M4T> 

96 

<n/w 

8pwle 

BgmbaglM C 64 IpiaknUuar 

67 

H/W 


Cemmedeia Sft'luUitpa. Band t, Spiele 

111 

ki/se 


99 auiftinehra SpMie fftr Huin Cemmedere 94 

171 

1/69 

64'er Extra 



PTMIMOr 

SafaMauii d aa ftMl/U itkPfeeeaaQca 

94 

M/96 

Oneik 

Dia Videaelup'Rogiaior daeC 94 

sa 

10/96 

Sound 

D4rflD'CMp,aelAe Repiatar und ftrogrammieivng 

99 

11/W 

Spotehor 

Die SpaiflharbeiaguiiQ dea C14 

M 

II/H 

AbsnlauerlöiDnoen 



Munoon 

DaJlaeQMK Ueung 

M 

Ql/88 


Oiihoha KrlU'Cuehaniar l«i gelfler 

44 

03/88 


Infeeem OeMimniaea galQRei? 

49 

09/W 


Dea Miaala Uauno AmaeBii 

149 

08/69 


AaiMMoii Aa*eN«reaenacNaiari(UMabad«*, 

99 

19/H 


TiwerSanotietO 




Gunkel - loh haMi 

97 

19/99 


Luangen lu HlKiihikor8 OiUde undSeRtarei 

39 

19/99 

Splele.Iiests 



Oft? 

jamaa Send — A Vlaw u • Kill 
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Premal - dta nac* Bprecln Mt Pn(la7 

134 

07/H 

nmn-wM mn MOTrbitb 84 

130 

07/3» 

Wulaistat Püm7 

191 

00/M 

hacal Ar PicBi (PreO-Pueai) 

m 

00/88 

Beper rbfth04 

144 

09/W 

C — dM pioftfaienalle PicgiBinnlaaptaeh« Rtr 

140 

00/n 

dan C 84 



RaaK 7.0 - Du Buporbaike daa C ISI 

18 

lO/W 

Cemal 80 —dka univenell* PreanmmFafVDnelui 

101 

10/08 

TurbO'PEueal «tddam ß 188 

30 

il/H 


Die Ausgaben 
2/85 und 4/85 
sind bereits vergriffen 
und nicht mehr lieferbar! 


Am besten gleich 
mitbestellen: 

Die praktischen 
64'ei^Scimmelboxen 



Ein 

kempletter 
Jahrgang 
(12 Aufgaben) 

S aßt in eine der praklisrhen 
ammelboxeni 
Am besten gleich 
mitbestellenl 


Für alle Leser, die »64'er« regel¬ 
mäßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Ser¬ 
vice-Angebot: die 64’er-Sam- 
melbox! 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nach¬ 
schlagewerk. 

Übrigens: Die Sammelbox ist 
nicht nur ein praktisches Aufbe¬ 
wahrungsmittel: Sie eignet sich 
auch hervorragend als Ge¬ 
schenk für Freunde und Be¬ 
kannte zu vielen Anlässen. 


Auch die bisher 
erschienenen Sonderhefte 
können Sie 
jetzt direkt bestellen: 


soMDfuin oi/Ui nn anKO 

t^eMitwAryicAe AnHvndmg^itHngt /i/r C M und 

ÜHmHinu/$5iAiunumniu i 

fesselnde Mmn/ures wir ta/i/reic/ien läsujifftn und 
einem Pngammhrku rs. 

ioHSUHCn D4/Mi BUPIK S DtUCIH ’ 

Km der SD-Carelg/fung bis nr Herdcopy^Foulbia. 

MHPWiin 06/tsi wsaiiMUlin WHt-usriMi 

7bp77i»in»R aui 64'er bringt eine Auswahl der besten 
64 er Prognmme. 

HNHtUn Ol/asi MIIMIUI 

AssemblefKnoiv-how HlriCnßngerund fbrt- 
geschrittene. 

iOHSUHinOI/tftiKIlB 

XompJsna Beschreibungen >vn C ISS und C 1360 
und passendem Zubehdr. Die Unteachlede sum C 64. 


saimiHin oi/f ai nri a tu»s 

SupBr.ii£edRg«, auslühiilche C2iiRd/jrp9n uRd die 
besten llpaiTrlaks und ginwilftraui BC'ar. _ 

HWKMEFT M/Mi < U, Cllt, VC20 UND DU» 4 

Umlhssende Grundlagen und aktuelle /ji/orinadondR 
m Cie. CII6. VC30 undPlus4. _ 

SONDEIHIFT CW/l«i HEHnUEIjnEU 2 

Aul ISO Seiten alles Uber das ProgtemwIeren von 
Abenteuerspielen und Super-Lisiings sum Abtippen. 

MNDEEHin 0S/t«i CA4-«IUHDWISSEH 

Für alle Einstelger umfassende Grundlagen und Hille- 
Stellungen rund um den C64. 

MMDEIHEFI 06/a»i f MflK 

Ctellkprogrammierung des C64, CIS6 und C136 Im 
C64-Modus. Dreidimensional koitstruleien mit 
sCiga-CAD«. 

MHDHHE'n 07/14: KEK> UND MREt 

Sin/Uiinjnpslrum in die wichtigsten SbeicAenl^den fUr 
C6i. C;SundCJa8. Über 30 Seiten npsATUcks. 

»HDEaNEFT Oli NUS/E UND < 14 

Auslilhrliche Kurse liir schnelle Programme au/Ci8u7id 
Plus/4 in Maschinensprache und Basic mit Grallk- 
be/ehleru 

»HDEIHEFT oV: FIAW t MniVERWIIUNi 

DieellisienteDatenvenvaltungrürEinsleigerundProlls. 

»HDIIKEFIIOiC 12411 

Entscheidendes Know-how für Anßnger und fbrtge- 
schriltena aul Ihrem Weg sum Pioli. 

UNDEMEFf Mi 6 IUEIE, MBIIK, NHWENDUNS 

Esssinierende Ceslaltungsmägltchkeilen mit Grallk- 
und Musikprogrammen- 

S0HDE1IHEFI I2i «SSEMIUII, mCMMMIEUPMCHÜi 

Er/atreri Eie altes über Progremmlerspmchen und 
ihre Anwendungfibereiche. 

iONnftlWri»i HNUIMRE 

Mtue Mögllchkeiton für Ihren Computer duicA nUts- 
iiche Herdwere-Envellerungen 

HRDEBHEn 14) (14, < 114, Hai/4 

Super SD-Gra/li-System sum iUdppen 

SONDERHEFT I5i UH UND TIKKS UND FlOm 

Alles über laulwerke und Delasetlen. 

Neue Interessante Grundlagen. 

SONDERHEFT IAiC44-EIHSTEIIEi 

/CusUArA'cAa Grundlagenartlkel, komlortable 
Anwenderprogramme. 

SOHDERKEFI I7i SRIIIE FÜR <44 UND CIER . 

Fiir jeden aiwasl Supff/'i/sf/nos und «u5/!IAri/cA* 
Grundlagen. 


SOHHRHIFr I4l ORUCKER BND TEXTVERtRREtTUNO 

Ein Querschnitt durch die gesamte, moderne 
Dtvcklechnik und Textvererbeltung. 

SOHDnHEFI I9i CINSTEieER 

Ausnihiilcher Baslc-Kuts für alle C64-Elnslelger 
und Super-Spiele 4um Abfippsn. 

SONDERHEFT ROiORAIIR 

Fasslnlerender Einstieg In die 3D-Well. 

Neuer Animalions-Edtlor Für uwelchei Bewegungen. 

SOHDSRNSFT 211 RSSEMIUR ui4 IRSK 

Ciga-Ass: Hypra-Ass hoch 3 / Paradoitan-Sasic: 

50000 flasjc Bytes Iree _ 

SONDERHEFT 22iCiai III 

Farbiges Scrolling Im SO-ZsicAen-Modus /5-SeAunden- 
Xbp/erpropranun lür swel Laufwerke 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.E 08/88) auf dem Bestellab¬ 
schnitt der hier eingehefteten Bestell-Zahlkar- 
te ein. 



































































FINANZEN 


C64 


4I94S 

PRINT"<UP>*<RVSQN,3eBPACE,RVOFF>*" 

<251 > 

4292 

IF H*<>CHR*(92)THEN GOTO 4000 

< 102 > 

4eS0 

PR1NT"{UP>*{RVSBN,6SPACE}B E R E C H 


4295 

GOTO 4290 . 

<004> 


NUN Q<138PACE,RVaFFJ*" 

<H 2 > 

4300 

REM ABGEZINSTER SPARBRIEF 

< 121 > 

4060 

PRINT” tUPJ*#***-****»*****»*********** 


4305 

GOSUB 4010 

<233> 


»*«*»*»»»«***" 

<19I> 

4310 

PRINT"<RVBON>ABBEZINSTER SPARBRIEF{SP 


4070 

RETURN 

<062> 


ACE,RVQFF>":PRINT 

<251> 

40B0 

PRINT"<UP >#{3aSPACE >*" 

<126> 

4315 

PRINT"WELCHER BETRAG (MIN. DM 50,—)" 

<037> 

40B5 

PRINT"<UP>*<BPACE,RVBON}WAEHLEN 9IE D 


4320 

INPUT"{145PACE,RVSDN7DM{SPACE,RVOFF}: 



EN SPARBRIEFTYP!{SPACE,RVOFF,78PACE>* 



"SÜM 

<204> 


•• 

<166> 

4321 

IF DM<S0 OR DM> 50000000 THEN GOTO 43 


4090 

PR I NT •’ {UP >• {3a9PACE >* " 

<136> 


15 

<0527 

4095 

PRINT"{UP>*{3aSPACE>*" 

<141> 

4325 

PRINT:PRINT 

<2137 

4100 

PRINT"{UP >*{4SPACE RVSON >F1{SPACE,RVD 


4330 

INPUT"WELCHER ZINSSATZ (IN X P.A.!"sP 



FF,39PACE,RVSDN)AUFSEZINST{SPACE,RV0F 



6 

<0337 


F,17SPACE>*" 

< 201 > 

4331 

IF PS<».1 DR P8>30 THEN GOTO 4330 

<0797 

4105 

PRINT"{UP>*{308PACE>*" 

<153> 

4335 

PRINT:INFUT"WELCHE LAUFZEIT (IN JAHRE 


4110 

PRINT"{UP>*{30SPACE>*" 

<1SB> 


N>"|J 

<1647 

4115 

PRINT"{UP>*{4SPACE,RVS0N>F3{SPACE,RVO 


4336 

IF J<-0 DR J>40 THEN GOTO 4335 

<1137 


FF,3BPACE,RVSONJABI3EZINBT{2BPACE,RVOF 


4340 

PRINTrPRINT"{l05PACE,RVaDN}TASTE DRUE 



F,17BPACE>#" 

<173> 


CKEN!{SPACE,RVOFF,9SPACE}" 

<0097 

4120 

PRINT"{UP>*{3B8PACE>*" 

<16B> 

4345 

POKE 19B,0:WAIT 199,1 

<2537 

4125 

PRINT"{UP>*{3BSPACE>*" 

<173> 

4346 

REM BERECHNUNG 

<0257 

4130 

PRINT"{UP>*{4BPACE,RVS0N>F5{SPACE,RVO 


4350 

(3«1 + (PS/100! 

<1737 


FF,38PACE,RV90N>rINBAUSZAHLUNG JAEHRL 


4355 

E"(Qt-J)*DM 

<0637 


ICH{BPACE,RVOFF,36PACE>«" 

<0Z5> 

4356 

E1>INT(E«100)!E2oE1/10:E3=>INT(E2):E4« 


4140 

PRINT"{UP>*{3BSPACE>*" 

<1GB> 


E3/10 

<0547 

4145 

PRINT"{UP}*{3BSPACE>#" 

<193> 

4357 

IF E2-INT(E2)>-.5 THEN E=E4+.l 

<1577 

4150 

PRINT"{UP}*{4SPACE,RVB0N>F7{SPACE,RVO 


4359 

IF E2-INT(E2><.5 THEN E-E4 

<1627 


FF,3SPACE,RVSON > ZURUECK{SPACE,RVOFF,2 


4360 

PRINT CHR*{147):REM AUSGABE 

<2557 


0SPACE>*" 

<116> 

4365 

PRINT!PRINT:PRINT"DER ABBEZINSTE SPAR 


4155 

PRINT"{UP>*{3BSPACE>»" 

<203> 


BRIEF MIT EINEM" 

<0367 

4160 

PRINT i\jpy*************************** 


4366 

PRINTiPRINT'-NENNWERT VON DM "!INT(DM* 



**<*»**»««**»" 

<037> 


100+.5)/1005" ," 

<2257 

4170 

REH AUSMAHLVERZMEIGUNB 

<066> 

4370 

PRINT:PRINT"EINER LAUFZEIT VON " 5 J 5 " 


4175 

POKE 198,0:UAIT 203,63tGET H4 

<0BB> 


JAHREN" 

<1197 

4177 

IF H*=CHR*(133)THEN GOTO 4200 

<139> 

4375 

PRINT:PRINT"UND ZINSEN VON ";PS;"X P. 


4iB0 

IF H4°CHR4(134>THEN GOTO 4300 

< 01 B> 


A. '• 

<0587 

41B5 

IF H*=CHR*{135)THEN GOTO 4400 

<156> 

4380 

PRINT:PRINT"HAT EINEN KAUFPREIS VON" 

<1717 

4186 

IF H*=CHR»<136)THEN GOTO 1000 

< 222 > 

4385 

PRINT:PRINT"{7SPACE>DM: " 5 E 

<1627 

^ 1 en 

BClTn 4175 

<139> 


oPTNT-PftTWT"/7«5ParPlTa^Tr nRMFrkFN» ffl 


4200 

REM AUFGE2INBTER SPARBRIEF 

<0S65 ‘ 

'Z '' ' . 

oPACE> 

<0537 

4205 

GOSUB 4010 

<153> 

4390 

POKE 19e,0:MAlT 203,63:GET H$ 

<0497 

4210 

PRINT"{RVSON>AUFBEZINSTER SPARBRIEF{9 


4391 

IF H»=CHR*(92)THEN GOSUB 26000 

<0397 


PACE,RVOFF>":PRINT 

<06i> 

4392 

IF Hi<>CHR#{92)THEN BOTO 4000 

<2047 

4215 

PRINT"WELCHER BETRAG <MIN. DM 50,—>" 

<193> 

4395 

GOTO 4390 

<1227 

4220 

INPUT"{14BPACE,RVSON}DM{SPACE,RVOFF > s 


4400 

REM JAEHRLICHE ZINBAUSZAHLUNG 

<2457 


"jDM 

<104> 

4405 

GOSUB 4010 

<0997 

4221 

IF DM<50 DR DM>S0000000 THEN BOTO 421 


4410 

PRINT"{RVSONISPARBBRIEF MIT JAEHRLICH 



5 

<0S0> 


ER ZINSAUS-{RVOFF}" 

<1647 

4225 

PRINT:PRINT 

<113> 

4411 

PRINT"{RVSQN}ZAHLUNQ{SPACE,RVOFF}" 

<1387 

4230 

INPUT"WEUCHER ZINSSATZ (IN X P.A.)"lP 


4415 

PRINT:PR1NT"WELCHER BETRAB (MIN. DM 5 



e 

<1B9> 


0 , —)" 

<1017 

4231 

IF P 8 <-.1 OR PS>30 THEN GOTO 4230 

<231> 

4420 

INPUT"{14SPACE,RVSON}DM{SPACE,RVOFF}: 


4235 

PRINT:INPUT"WELCHE LAUFZEIT (IN JAHRE 



"jDM 

<0507 


N> "j J 

<064> 

4421 

IF DM<S0 OR DM7S00O00O0 THEN GOTO 431 


4236 

IF J<-0 OR J>40 THEN GOTO 4235 

<141> 


5 

<1547 

4240 

PRINTiPRINT"{10SPACE,RVBON>TASTE DRUE 


4425 

PRINT:PRINT 

<0597 


CKEN!{SPACE,RVOFF,9SPACE>" 

<165> 

4430 

INPUT’'WELCHER ZINSSATZ (IN X P.A.>"jP 


4245 

POKE 19S,0:MAIT 19B,1 

<153> 


S 

<1357 

4246 

REM BERECHNUNG 

< 1 B 1 > 

4431 

IF PS<-.1 OR PS>30 THEN GOTO 4430 

<1B57 

4250 

Q-l+(Pa/ 100 ) 

<073> 

4435 

PRINT:PRINT 

<0697 

4255 

E-(QtJ!*DM 

<226> 

4440 

PRINTiPRINT"{i 0 aPACE,RVSQN)TASTE DRUE 


4256 

E1-INT(E«100)■E2-El/10iE3-INT(E2>iE4>' 



CKEN!{SPACE,RVOFF,9SPACE}" 

<1117 


E3/10 

< 2 oa> 

4445 

POKE 19B,0«WAIT 193,1 

<0997 

4257 

IF E2-lNT(E2)>-.5 THEN E-E4+.l 

<0S5> 

4446 

REM BERECHNUNG 

<1277 

425B 

IF E2-INT(E2)<.S THEN E-E4 

<0607 

4450 

ZA«>(P8/100)»DM 

<0197 

4260 

PRINT CHR4(147)lREM AUSGABE 

<153> 

4455 

Z1-INT(ZA*100>IZ2-Z1/10:Z3-1NT(Z2)tZ4 


4265 

PRINTiPRINT:PRINT"DER AUFQEZINSTE SPA 



-Z3/10 

<ISB7 


RBRIEF ZUM NENN-" 

<133> 

4460 

IF Z2-Z3<.5 THEN Z4-Z4 

<1737 

4266 

PRINT:PRINT"WERT VON DM: "|INT(Dn«100 


4465 

IF Z2-Z37-.5 THEN Z4-Z4+.1 

<2367 


+.5)/I00j" ," 

<022> 

4467 

PRINT CHRS(147)tREM AUSGABE 

<1067 

4270 

PRINT:PRINT"EINER LAUFZEIT VON "jJj" 


4470 

PRINT:PRINT:PRINT"DER SPARBRIEF MIT E 



JAHREN" 

<017> 


INEM NENNWERT VON ” 

<0007 

4275 

PRINT:PRlfiT"UND ZINSEN VON "jPS|"X P. 


4475 

PRINT:PRINT"DM: "5 INT(DM4100+.5>/100i 



A. " 

<212> 


" BRINGT BEI EINEM " 

<0277 

4280 

PRINTiPRINT"HAT EINEN RUECKZAHLUNGSWE 


4477 

PRINT;PRINT"ZINS3ATZ VON "jPS;"X P. A 



RT VON" 

<070> 


11 

<2547 

42GS 

PRINT:PRINT"{7BPACE)DMi "jE 

<060> 

44S0 

PRINT:PRINT"ZINSEN IN HOEHE VON DM: " 


4287 

PRINTiPRINT"{7SPACE>TABTE DRUECKEN!{B. 


SZ4 

<0167 


SPACEJ" 

<2i2> 

4482 

PRINT:PRINT 

<1167 

4290 

POKE 19S,0:WAIT 203,63:GET H» 

<203> 

44B5 

PRINT:PRINT 

<1197 

4291 

IF H4-CHR4(92)THEN GOSUB 26000 

<193> 

4487 

PRINTtPRINT 

<1217 


100 


SONDERHEFT 23 











C64 


FINANZEN 


PRINTfPRINT"t7SPftCE>TASTE DRUECKEN'tG 


5163 

Jt-JR+ZR 

<096> 

SPACE>” 

<160> 

5165 

REM RENTENENDWERTFAKTOR 

< 220 > 

4490 PQKE 19a,0iWAIT 203.63SBET H* 

<149> 

5170 

Q-<l->-<ZS/t00)> 

<192> 

4491 IF H*-CHR#(92)THEN QQSUB 26000 

<139> 

5175 

RE-<-l+(QtJH)!/(ZS/100) 

<016> 

4492 IF H*<>CHR»(92)THEN SDTO 4000 

<049> 

51S0 

EW-J1«RE t EW>INT(EW«100+.5)/100 

<074> 

4493 GOTO 4390 

< 222 > 

5185 

El"EW-KPsEl-INT(El»100+.5>/100 

<230> 

3000 REM BONUSSPARPROGRAMM 

<123> 

5190 

BN-KP«BS/100iBN>INT<BN«100+.S>/100 

<246> 

3010 PRINT CHR»(147> 

<213> 

5200 

POKE 213,S9PQKE 211,0lSYS 5B640 

<226> 

3020 PRINT"**«»•»'«*»•«**<*•*»»«**•••••««•* 


5210 

PRINT"{5RIGHT}JAEHRL. SPARBUMMEi{2RIG 


•*«•*•**•" 

<076> 


HT}DM! "iJR 

<053> 

3030 PRINT"<UP>*CRV80N,3GSPACE,RV0FF>»" 

< 220 > 

5215 

PRINT 

<237> 

3040 PRINT''<UP>*<RVS0N.6SPACE}B D N U 8 S 


5220 

PRINT"<RIQHT>KAPITAL IN "jJHi" JAHREN 


P A R E N<1IBPACE,RV0FF>*" 

<i 2 a> 


i{RIBHT}DMi ")KP 

<iBe> 

3050 PRINT"<UP>*{RVB0N,3B8PACE,RVDFF>*" 

<240> 

5225 

PRINT 

<247> 

3060 PRINT" IUP>**************<**»'**K****'<>*' 


5^30 

PRINT"{7RIGHT}Z1NSERTRABb{7RIBHT}DMi 



<i75> 


"|E1 

< 0 es> 

5070 PRINT"<UP,RVS0N,3RIBHT,3SPACE>DATENEI 


5235 

PRINT 

< 00 i> 

NGABE{48PACE,12RIGHT,RVOFF >" 

<160> 

5240 

PRINT"{6RIBHT}80NUSERTRAGi{7R1GHT}DM« 


S0B0 POKE 214,7iPOKE 2U,0ieY8 SG640 

<137> 


"|BN 

<170> 

5090 INPUT"< 6 RIGHT}SPARRATEjISPACE.RVSGNID 


5245 

PRINT 

< 011 > 

M{SPACE,RVOFF >"j BR 

< 0 B 2 > 

5250 

PRINT"{SRIBHTlGEBAMTBETRAQi{7RIBHTID« 


5092 IF BR<-0 OR BR > 50000 THEN PRINT"{RV 



■ "lEW+BN 

<239> 

SONIFALSCHE EINGABE!!1{RVOFF}"iBDTO 5 


5251 

PRINTsPRINT"{9RI0HT}ZINSSATZr{ 6 RIBHT, 


090 

<015> 


48PACE}"|ZSj"X P. A." 

<142> 

5093 INPUT"{DOWN,RIGHT>ZINBSATZ<1NX> s{SPAC 


5255 

PRINT« PRINTsPRINT"***************«*#* 


E,RV80N,3SPACE RVOFF >"j Z 8 

<07a> 



<0S0> 

5095 IF ZS<».1 OR Z8>30 THEN PRINT"{RVBDN} 


5260 

PRINT"WUENSCHEN SIE EIME RENTENBERECH 


FALSCHE EINGABE!1!{SPACE,RVOFF}"»QOTO 



NUNG 7" 

<099> 

5092 

<036> 

S26S 

PRINT"{4RIBHT}BITTE{38PACE}J/N{3SPACE 


5100 INPUT"{DOWN>WIEVIEL JAHRE7:{SPACE,RVS 



}DRUECKENI” 

<176> 

□N,3SPACE,RVOFF }"5 JH 

<113> 

5270 

PRINT:PRINT 


5105 IF JH<‘*0 DR JH>40 THEN PRINT" {RVBON}F 



*»**•*****♦#*»*" 

<075> 

ALSCHE EINGABE!I1{RVaFF}"iGOTO 5100 

<053> 

5275 

POKE 19B,a:WAIT 203,63 

<237> 

SI10 INPUT"{DOWN}BONUSSATZ!INX)s{SPACE,RVS 


5276 

BET 6 * 

<I9a> 

ON,SPACE}X{SPACE,RVOFF}";BS 

<1S5> 

5280 

IF Q4=CHR*(74) THEN GOTO 5300 

<159> 

5111 IF BS<0 CR BS>100 THEN PRINT"{RVSON}F 


S2S3 

IF G*=CHR#17S) THEN GOTO 5291 

<239> 

ALSCHE EINGABE!!!{RVOFF}"!GOTO 5110 

<0a3> 

5285 

IF G»=CHR*(92) THEN GDSUB 26000 

<163> 

S115 PRINT" {DOWNlSPARRATEs {RVSONXM) {RVOFF 


5290 

GOTO 5275 

<247> 

}ONATLICH/ {RVBDN} (V) {RVOFFMERTEL3AEH 
RLICH " 

5116 PR1NT"{UP,RVBQN}<H){RVOFFIHALBJAEHLIC 

<106> 

5291 

PRINT"NaCH EINE BERECHNUNG?<J/N)" 

<24a> 

19a,0:WAIT 203,63 

5^3 GEi Q4 

<2S4> 

<215> 

H ODER{SPACE,RVSQN}(J>{RVDFF}JAEHRLIC 


5294 

IF G*=CHR*<74) THEN GOTO 5000 

<237> 

H?" 

<065> 

5295 

IF G*=CHR4<7B> THEN GOTO 1000 

< 11 B> 

5121 WAIT 203,631 BET L* 

< 100 > 

5296 

GOTO 5292 

<125> 

5122 EB=0slF L*=CHR*(77JTHEN PRINT"{RVSON, 


5300 

GOSUB 5302 «REH RENTENMENUE 

<221 > 

9RIGHT1M0NATLICH{RVOFF}"{Ee=12:GOTO 5 


5301 

GOTO 5310 

<017> 

130 

<031> 

5302 

PRINT CHR*<147)s PRINT"{UP}*»****»**** 


5123 IF L*=CHR*<e 6 >THEN PRINT"{RVSON,SRICH 



•»«**«•»»•»**•»**«*«*»**»•»«**«*•« " 

<052> 

T}VIERTELJAEHRLICH{RVOFF}"sEB-4:GOTO 


5303 

PRINT"{UP>«{RVSON,38SPACE,RVOFF}*" 

<239> 

5130 

<213> 

5304 

PRINT"{UP}*{RV 8 aN,SPACE}RENTENBERECHN 


5124 IF LS^CHRSCTAITHEN PRINT"{RVSON,ISRIB 



UNG FUER BDNUSSPAREN{4SPACE,RVOFF}*" 

<075> 

HT}JAEHRLICH{RVDFF}" 1 EG-1s GOTO 5130 

<096> 

5305 

PRINT"{UP}*{RVSON,3SBPACE,RVOFF}*" 

<241> 

5125 IF L*=CHR*(72)THEN PRINT"{RVSON,BRIBH 


5306 

PRINT"{UP}»******»««***«»*****»*****« 


T,SSPACE}HALBJ AEHRLICH{RVOFF >" 1 EB=2 s G 



#*»***##**«**" 

<167> 

OTD 5130 

< 22 e> 

5307 

RETURN 

<029> 

5126 GOTO 5121 

<162> 

5310 

PRINT"{UP}*{3BSPACE}•" 

<086> 

5130 PRINT"ZAHLUNQ3WEI8El{SPACE,RVSDN}V{RV 


5311 

PRINT"{UP}*{SPACE,RVSON}BESTIMMUNQ DE 


OFFlORSCHUESaiB{SPACE,RVBDN}M{RVOFF >E 
DI(J " 

<199> 


e RENTENKAPITALS{SPACE,RVaFF,7SPACE}* 

<146> 

5131 PRW’ ODeR<SPACE,RV 8 aN}N{RVOFF>ACH 8 C 


5312 

PRINT"{UP}*{3SBPACE}*" 

<0BS> 

HUEBSIQ?" 

<229> 

5313 

PRINT"{UP}*{4SPACE,RVSaN}Fl{SPACE,RVD 


5132 FOF< 1^1 TO 300iNEXT I 

<1S3> 


FF,3SPACE.RVSON}QESAMTBETRAG{SPACE,RV 


S13S POKE 19S,0iWAIT 203,63lBET N* 

<056> 


OFF,158PACE}*" 

<005 > 

5136 IF N*-CHR*(a 6 > THEN KN-EB+1«J*-"{RV80 


5314 

PRINT"{UP}*<30aPACE}*" 

<09O> 

N}VORBCHUESBIB{BPACE,RVOFF }"1 PR1NT"{7 


5315 

PR I NT '• {UP }* {SaSPACE }* " 

<09l> 

RIGHT}")J«iGOTO 5140 

<173> 

5316 

PRINT"{UP}*{4SPAC6,RV8DN}F3{SPACE,RVO 


5137 IF N*-CHR*<77> THEN KN*E 6 lJ*-"{RVBDN} 



FF,3SPACE,RVB0N}GE8AMTBETRAB-B0NU8{8P 


MEDIO{SPACE,RVOFF >"iPRINT"{7RIGHT}"j J 



ACE,RVOFF,98PACE}* 

<030> 

»iGOTO 5140 

< 200 > 

5317 

PRINT" {UP}*{3S6PACE>*'' 

<093> 

5130 IF N«>CHR*<7S) THEN KNoEQ-llJ«»"{RVSO 


5318 

PRINT"{UP}*{3B8PACE}*" 

<094> 

N>NACHBCHUESBlB{RVDFF}"iPRlNT"{7RleHT 


5319 

PRINT"{UP}*{4BPACE,RVS0N}F5{SPACE,RVO 


}"|J*lGDTO 5140 

< 200 > 


FF,38PACE,RV80N>ZINSERTRAG {2SPACE.RVO 


5139 GOTO 5135 

<20a> 


FF,16SPACE>*" 

<096> 

5140 PRINTiPRINT"{5RlBHT,RV80N}T A B T E{3 


5320 

PRINT"{UP}*{388PACE}*" 

<096> 

SPACEID R U E C K E N{RVDFF}" 

<214> 

5321 

PRINT"{UP}*{3BBPACE>*" 

<097> 

5142 POKE 198,0 

<226> 

5322 

PRINT"{UP}*{4BPACE,RVBQN>F7{SPACE,RVO 


5145 WAIT 198,1 

<0B1> 


FF,3SPACE.RVSONTBONUSBETRAG{SPACE,RVO 


5146 PRINT CHR»(147)j"{6RIGHT}AUBGABE DER 



FF,16SPACE}»“ 

<I01> 

DATEN t{ 1 3RIGHT}":PRINT 

<1B3> 




5160 JR>SR*EG: JR-INT(JR«100-f,S) /100 

<BSS> 




5161 KP-JR*JHsKP-INT<KP*100*-.5) /1O0 

<021> 




5162 ZR>SR*ZS/100«KN/2iZR'>'INT(ZR*100>/100 

<046> 
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S323 

PRINT"tUP>*<3aBPACE>*" 

<099> 

»PRINT J*6G0TC 5435 

<097> 

3324 

PRINT"{UP>*{38SPflCEJ*" 

< 100 > 

542S IF H*=CHR*(70) THEN K2-XK-1SJ*»"NACHS 


5325 

PRINT"<UP>*{4SPACE,RVSDN>F0tSPACE.RVO 


CHUES81B"»PRINT J*»GCTO 5435 

<239> 


FF,3BPACE,RV80N>BELIEBIGER BETRAG(2BP 


5430 GOTO 5411 

< 22 a> 


ACE,RVOFF.9BPACE > *" 

<103> 

5435 PRINT»1NPUT"WELCHER ZINSSATZUNX)"jZS 

<155> 

532& 

PRI NT "<UP ># <3BSPACE >*" 

<102> 

5436 IF Z5<=0.1 DR Z5>30 THEN PRINT"{RVSON 


532B 

PRINT" IlIP}#«#*****«*****»**#********* 


!FALBCHE EINGABE’I!{RVOFF!"jGOTO 5435 

<17S> 


*»•<*««*»•*••" 

<I89> 

5440 PRINT»PRINT"mE{BPACE,RVSDN!LANQE<9PA 


5329 

POKE 198,0iUAIT 203,63iGET H« 

< 22 &> 

CE,RVOFF,SPACE!BOLL DIE RENTE GEZAHLT 


5330 

IF H»-CHR*<133)THEN RK-EW+BNsW»-"{RVB 


WERDEN" 

<232! 


ON5GESAMTBETRAB{SPACE,RVOFF>"iGGTD 53 


5445 PRINT»INPUT"{UP,RVSON,SPACE! 0 {aPACE,R 



50 

<207> 

VOFF,8PACE1FUER{SPACE,RVSONlEWIQE REN 


5335 

IF H*-CHR*(134)THEN RK-EWi W*-" {RVSON> 


TE{SPACE,RVDFF!/ZAHLEN FUER JAHRE"jDA 



GESAMTBETRAB-BONUS{SPACE,RVOFF>" t GOTO 


iZ»""" 

< 20 B> 


5350 

<017> 

5446 IF DA=0 THEN Z»-"{28PACE!EMIG{2SPACE! 


5340 

IF H*-CHR*(135>THEN RK"E1iW*-"{RVSON> 


'■»GOTO 5450 

<019> 


ZINBERTRAG{BPACE,RVaFF>‘'iGOTO 5350 

<058! 

5447 IF DA>0 AND DA<S0 THEN DA-0+DA»QOTO 


5341 

IF H*»CHR*(140>THEN W*»"{RVSDNIBELIEB 


5450 

< 102 > 


IBER BETRAGISPACE.RVQFFl" 

<004> 

5449 IF DA<1 OR DA>40 THEN PRINT"{RVBON!FA 


5342 

IF H*«CHR*<140)THEN PRINT CHR*<147>sQ 


LBCHE EINGABE! ! !’'»Z*-CHR#(DA>»QOTa 54 



OBUB 5302 

<243> 

40 

<170> 

5343 

IF H*-CHR*(1A0)THEN INPUT"{4DDWN,5RIB 


5450 GOSUB 5302 

<024> 


HTIWELCHER BETRAB7{4RIGHT,RVaON>Dt1i <8 


5500 REM EINGABE PRUEFEN 

<249> 


PACE,RVOFF>"|BK>QOTO 5350 

<087! 

5501 PRINT 

<013> 

5343 

IF H*»CHR»(136)THEN RK=BNsW*="{RVBON> 


5502 PRINT"{4SPACE,RVB0N!UEBERPRUEFUNG DER 



BONUSBETRAG{SPACE,RVOFF!"iGOTO 5350 

<104> 

EINGABEN»{RVOFF,7SPACE>" 

<137> 

5346 

GOTO 5329 

<160> 

5503 PRINT 

<01S> 

5350 

GOSUB 5302:IF RK<°0 DR RK>5000000 THE 


5504 PRINT"{5SPACE1RENTENKAPITAL»"{W* 

<19Z> 


N PRINT"{RVSONIBETRAG IST FALSCH!!!{S 


5505 PRINT 

<017> 


PACE,RVOFF!" 

<I73> 

5507 PRINT"{4SPACE!2AHLUNGSTERMINs"; V* 

<092> 

5351 

IF RK<=0 CR RK>5000000 THEN FOR 1=1 T 


5508 PRINT 

<020> 


□ 2000;NEXT IiGQTC 5300 

<244> 

5509 PRINT"{SSPACEIZAHLUNGSWEISE;J« 

<045> 

5352 

REM RENTENZAHLUNBBPERiaSDE 

<243> 

5510 REM 

<23B> 

5355 

PRI NT "{UP!*{3BSPACE>•" 

<131> 

5511 PRINT 

<023> 

5356 

PRINT"{UP!*{SPACE,RVSON!ZAHLUNBEN DER 


5512 PRINT"{3R1GHT1DAUER DER RENTE:" 5 Z* 

<163! 


RENTEN{SPACE,RVOFF,16SPACE!»" 

<051> 

5513 IF DA>0 THEN POKE 214,15:PGKE 211,20» 


5357 

PRINT"{UP1*{3BSPACE>*" 

<133> 

SYS 5S640!PRINT"{SPACE,RVSQN>";DAj " J 


5353 

PRINT"{UP >* <4SPACE RVSON,SPACE}M{SPAC 


ÄHRE{SPACE,RVOFF >" 

<050> 


E,RVOFF,3SPACE,RVSON!MONATLICH{10SPAC 


5514 PRINT 

<026> 


E,RVOFF,9SPACE!*" 

<04394 r 

r 55 J^rRINT"{10RIGHT!ZINSSATZ» "5Z5! "X" 

<05B> 

5359 

PRINT"{UP!*{3BSPACE>*" 

<135> 

5516 PRINT 

<02B> 

5360 

PRINT"{UP!*{3BSPACE!*" 

<136> 

5517 PRINT"{4RIQHT>EINGABEN:{SPACE,RVSON!R 


5361 

PRINT"{UP}*{4SPACE RVSON,SPACE>V{SPAC 


{RVOFF!ICHTlB/{RVBONlF{RVaFF>ALSCH?" 

<10B> 


E,RVOFF,3SPACE,RVSaNJVIERTELJAEHRLICH 


5520 PCKE 19a,0!WAIT 203,63sGET K* 

<175> 


{3SPACE,RVOFF,9SPACE!*" 

<111> 

5525 IF K#=CHR»<B2)THEN GOTO 5530 

<1B1> 

5362 

PRINT"{UP>*{3BSPACE!*" 

<138> 

5526 IF K*=CHR*(70>THEN GOTO 5300 

<175> 

5363 

PRINT"{UP!»{3BBPACE!*" 

<139> 

5327 GOTO 5520 

<053> 

5364 

PRINT"{UP>*{4BPACE,RVSON,SPACE>H{SPAC 


5530 REM RENTENBERECHNUNG 

<22B> 


E,RVOFF,3SPACE,RV80N>HALBJAEHRL{9SPAC 


5535 REM SPRUNG INS UNTERPROGRAMM 

<163> 


E,RVOFF,9SPACE!*" 

<046> 

5540 GOSUB 27000 

<050> 

5365 

PRINT"{UP1*{3BBPACE!*" 

<141> 

5560 PRINT CHR*<t47)»PRINT"{7DDWN!"!BQTD 5 


5366 

PRINT" {UP>*{3aBPACE!*'’ 

<142> 

146 

<202> 

3367 

PRINT"{UP!*{4BPACE,RVSON,SPACE!J{3PAC 


6000 REM 

<220> 


E,RVOFF,3BPACE,RVSON!J AEHRL{13SPACE,R 


10000 REM HILFMENUE 

<146> 


VDFF,9SPACE!*" 

<011> 

10010 PRINT CHR*<147)»PRINT CHR»(14) 

<230> 

5360 

PRINT"{UP!»{39SPACE>*" 

<144> 

10020 PRINT"******»********»************** 


5369 

PRINT"{UP!*{3aSPACE!*" 

<14S> 

««M*»**»«*" 

<252> 

5370 

PRINT"{UP}*************************** 


10030 PRINT"{UP!*{RVSON,3BSPACE,RV0FF>»" 

<140> 


«»««*<*»***»*" 

<231> 

10040 PRINT"{UP!*{RVSaN,3SPACE>JL{8HIFT-SPA 


S3B0 

POKE 19S,0iUAIT 203,63:GET G« 

<0I9> 

CE!a{SHlFT-SPACE>a{SHIFT-SPACE!S{8HI 


5305 

IF G*-CHR»t77>THEN XK-12iV*-"MQNATLIC 


FT-SPACE!fl{BHlFT-SPACE!£ 1 ÄIBHIFT-B 



H "iGOTO 5400 

<230> 

PACE!(ÜILFSMENUE){7SPACE,RVOFF!*" 

<067> 

5306 

IF Q*-CHR*( 86 >THEN XK-4iV»-"VIERTELJA 


10042 PRINT"{UP > *{RVSON,3BSPACE,RVOFF!*" 

<15Z> 


EHRLICH "iQOTC 5400 

<048! 

10050 PRINT"{UP!************************** 


5307 

IF G»-CHR»(74>THEN XK=1«V*""JAEHRLICH 


*•*»•*•***•***" 

<08S> 


"iGOTO 5400 

<220> 

10060 PRINT"{UP}*<4BPACE,RVS0N}£i {SPACE,RV 


5380 

IF 6*-CHR»<72>THEN XK-2:V*="HALBJAEHR 


OFF,4SPACG,RVSCN!£ATENKREDITBERECHNU 



LICH "sGCTD 5400 

<095> 

NQ{SPACE.RVOFF,58PACE > *" 

<115> 

5395 

GOTO 5380 

<002> 

10070 PRINT"{UP>*{3a8PACE!*" 

<020> 

5399 

GOSUB 5302 

<229> 

100S0 PRINT"{UP!*{4SPACE,RVB0NIE2{BPACE,RV 


5400 

GOSUB 5302 

<230> 

DFF,4SPACE,RVBON!äAHMENKRED1T{10SPAC 


5401 

REM REGTEINGABEN 

<243> 

E,RVOFF,5SPACE!*" 

<065> 

5402 

PRINT 

<t7B> 

10090 PRINT"{UP!*{3a8PACE!*" 

<040> 

5405 

PRINT"2AHLUNQBWEI8e:{SPACE, RV30N!V{RV 


10100 PRINT"{UP!*{45PACE,RVSDN!£3{SPACE,RV 



□FF10RBCHUES3IG{BPACE,RVS0N}M{RVDFF!E 


□FF ,4SPACE,RVSQNIÖYPOTHEKENDARLEHEN{ 



DIO " 

<220> 

4SPACE,RVOFF,53PACE1*" 

<000! 

5410 

PRINT" DDER{BPACE,RVSON!N{RVOFF!ACHSC 


10110 PRINT"{UP!*{30SPACE1*" 

<060> 


HUESSIG?" 

<254> 

• 10120 PRINT"{UP!*{43PACE,RVB0N!f.4<SPACE,RV 


5411 

POKE 19B,0tMAIT 203,63:GET H« 

<054> 

0FF,4BPACE,RVS0N>SPARBRIEFBERECHNUNQ 


5415 

IF H*=CHR4(B6) THEN K2"XK+lsJ*="VORSC 


{3SPACE.RVOFF,5SPACE3*" 

<061> 


HUESSID "»PRINT J*iQOTG 5435 

<131> 

10130 PRINT"{UP>*{38SPACE1*" 

<0B0> 

5420 

IF H*=CHR*<77) THEN K2=XKsJ*="MEDia " 


10140 PRINT"{UP!*{4SPACE,RVSaN>£5{SPACE,RV 



102 
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DFF,4SPACE,RVSDN>ÄINUSSPflRE:N<llSPACE 

,RV0FF,5SPftCE)*" 

10150 PRINT"<UP>*<3aSPACE>»" 

10160 PRINT"<UP>*{4SPACE,RVB0N>£6{SPACE,RV 
OFF,4SPACE,RVSQNlfARBEINSTELLUNSEN <5 
SPACE,RVQFF,3SPACE>*" 

10170 PR1NT"<UP>*C308PACE>*" 

10160 PRINT"IUP>* 14BPACE,fiVSON>£7ISPACE,RV 
0FF,4SPACE,RVB0N>aRUCKM0EQLICHKEITEN 
<3ePACE,RVDFF,5SPACE>#" 

10102 PRINT"tUP>*t3BSPACE>*" 

10105 PRINT"IUP > * <4SPACE,RV80N >£flISPACE,RV 
OFF,4ePACE,RVaON>2URUECK INS UENUEIS 
SPACE, RVDFF ,'5SPACE >*" 

10190 PRINT" IUP>**'*********'***********4**4 


<155> 

< 100 > 


<234> 

< 120 > 


<139> 

<132> 


<0S6> 



««*«»»«•**«»•»" 



<223 > 


AELLIG"' 

<049> 

10200 

POKE 198,0gWAIT 203 

,63 


<0B0> 

12130 

PRINT"WlRD."iPRINT 

<177> 

10210 

BET H* 



<058> 

12179 

PRINT 

<0a7> 

10220 

IF 

H*-CHR><133>THEN 

GOTO 

11000 

<210> 

121B0 

PRINT"<5BPACE,RVS0N,3SPACEMaaiL ££il 


10230 

IF 

H»-CHR*(i37)THEN 

BOTO 

12000 

<109> 


EC.XEH! {3aPACE,RV0FF>" 

<011> 

10240 

IF 

H*-CHR*<134>THEN 

GOTO 

13000 

<237> 

12190 

WAIT 203,63 

<153> 

10250 

IF 

H*>CHR*(13G)THEN 

GOTO 

14000 

<i36> 

12200 

QET V* 

<12S> 

10260 

IF 

H»-CHR#(13S)THEN 

BOTO 

15000 

<006> 

12210 

IF V*-CHR»<74)THEN PRINT CHR*<147>iQ 


10270 

IF 

H*=CHR*(139)THEN 

GOTO 

16000 

<161> 


OTO 1010 

<233> 

10275 

IF 

H*»CHR*(136)THEN 

GOTO 

17000 

<026> 

12220 

PRINT CHR*<147)!PR1NT CHR*<142):BOTO 


102BO 

IF 

H*=CHR*(140)THEN 

PRINT CHR*(147)« 



1010 

<15a> 


PRINT CHR«(142):6aTD 1000 

10290 SDTD 10200 

11000 REM KOMMENTAR ZUM RATENKREDIT 

11010 PRINT CHR*(147> 

11020 PRINT"***»*****«*******#*#******#*«* 
**********" 

11025 PRINT"*<73PACE>ÄßIEajLSEaiI£II9SPACE> 
*" 

11030 PRINT"****************************** 
**********" 

11040 PRINT 

11045 PRINT''aER £RDßRAMMPUNKTISPACE,RV80N> 


11050 PRINT"ERMQEBLICHT DAS ^RECHNEN VON 
ÄATENKRE- ” 

11060 PRINT"<UP>DITEN, MIE SIE UEBLICHERME 
IBE IM ®^NKBE-" 

11070 PRINT"lUPJSCHAEFT VQRSENOMMEN WERDEN 

1I0B0 PRINT"£aLBENDES IST ZU BEACHTEN: " 
11090 PRINT"l.) JEI UNRICHTIBEN EINGABEN M 
ELDET" 

11100 PRINT"SICH DAS EROGRAMM MIT EINER £E 
HLERMEL-" 

11110 PRINT"DUNG. 

11120 PRINT"2.)£1E HUSTEN DES HREDITES WER 
DEN<4SPACE>" 

11130 PRINT'-KAUFMAENNISCH JE NACH QNGABE G 
ERUNDET." 

11140 PRINT'’3. ) flERISPACE,RVaON>£FFEKTIVE 
2AHREZlNBtRV0FF,BPACE>WIRD ENT-" 
11150 PRINT"WEDER DURCH EIN EINFACHES ANNA 
EHERUNBS-" 

11160 PRINT"VERFAHREN ODER ITERATIV EXAKT 
BERECHNET." 

11170 PRINT"aEI ITERATIVER iERECHNUNQ BRAU 
CHT DER<2SPACE>" 

11175 PRINT"ÄECHNER ZUM lEIL EINIGE iEIT." 
11180 PRINT" I55PACE. RV30N.3BPACET .TJULTJI afiü 
ZLtlKER ! I38PACE,RV0FF}" 

11190 WAIT 203,63 
11200 BET V* 

11210 IF V*-CHR»(74)THEN PRINT CHR*(147):G 
OTO 1010 

11220 PRINT CHR#(147)1 PRINT CHR*<142):BOTO 
1010 

12000 REM KOMMENTAR ZUM RAHMENKREDIT 
12010 PRINT CHR«(147> 

12020 PRINT"»**»«*»«*•****«•*•**•**•*«•*** 
«»•••«•»*•" 

12025 PRINT"*I7SPACE}Aflllü£JiJLS£ÄlII19SPACE> 

*" 

12030 PRINT"«*******«**«»********»******»* 
**********" 

12040 PRINT 

12045 PRINT"aER £ROSRAMMPUNKTISPACE,RVSON> 


< 220 > 

<i5a> 

<160> 

<117> 

<236> 

<076> 

<246> 

<094> 

<053> 

< 156> 

< 101 > 

<036> 

<097> 

<244> 

<139> 

<133> 

<071> 

<171> 

<0B1> 

< 220 > 

<01S> 

< 121 > 

< 022 > 

<027> 

<169> 

<144> 

<249> 

<174> 

<152> 

<099> 

<21B> 

<055> 

<22B> 

<204> 


Aflafl£141L&£aiItRVaFF>" <036> 

12050 PR1NT"ERM0EGLICHT DAS KONTDKORRENTMA 

ESSIGE " <162> 

12060 PRINT"SERECHNEN VON ÄREDITEN." 

" <01S> 

12070 PRINT"£IE 2INSBETRAEBE WERDEN JEWEIL 

S" <131> 

120B0 PRINT"ZUM ANGEGEBENEN ZEITPUNKT KAPI 

TAL1-" <13a> 

12090 PRINT-'SIERT." <031> 

12100 PRINT"£IE ^RECHNUNG GEHT DAVON AUS, 

DA9SI39PACE>" <027> 

12110 PR1NT"D:E ERSTE MONATlilCHE BÄTE 30 1 

AGE" <190> 

12120 PRINT"NACH flUSZAHLUNB DES JSRED1TE8 F 


12230 IF V*»CHR4:<74>THEN PRINT CHR*tl47):B 

OTO 1010 <253> 

12250 PRINT CHR»<147):PR1NT CHR$<142):GOTO 

1010 <1BS> 

13000 REM KOMMENTAR HYPOTHEKARDARLEHEN <013> 

13010 PRINT CHR«(147) <0B3> 

13020 PRINT"***»****«*»***«**********»*«** 

«»*••»*»**" < 202 > 

13025 PR 1 NT "* I75PACE > H.YJ>.O.T.hEJt.EWJ»llU..EKEW 113 

SPACE>*" <156> 

13030 PRINT''■**»«*»*•***»**»**•**•**•***** 

**********■' <212 > 

13040 PRINT <1G6> 

'lSIM5jRn'NT"ÜYP0THEKENDARLEHEN WERDEN IN D 

ER iE-" . <064> 

13050 PRINT"GEL FUER ;^U- ODER BENOVIERUNG 

SFINAN-" <216> 

13060 PRINT"ZIERUNGEN VERGEBEN." <190> 

13070 PR1NT"£EMAES6 *1113 2&S VERLANGEN DI 

E ^NKEN" <1B2> 

13080 PRINT"ALS SICHERHEIT EINE BELASTUNG 

DES " <02B> 

13090 PRINT"flRUNDSTUECKB (ÜYPOTHEK)." <149> 

13100 PRINT"J^S iROGRAMM BERECHNET BANKUE6 

LICH" <116> 

13110 PRINT"DIE MONATLICHE JEUASTUNB, WENN 

" < 111 > 

13120 PRINT"V0RSCHUE5SIB BEZAHLT WIRD." <043> 

13130 PRINT"JiEl VEREINBARTEM iBGELD lüISAG 

10) WIRD" <073> 

13140 PRINT"DIE TATBAECHLICHE ^RZINGUNG A 

UF" <10S> 

13150 PRINT"OER 2AGIS DES iUBZAHLUNGaBETRA 

BES" <110> 

13160 PRINT"ITERATIV ERMITTELT." <055> 

13170 PRINT"»^S iROBRAMM ERLAUBT FERNER EI 

NE“ <051> 

131B0 FR1NT"SCHULDENSTANDBERECHNUNB. " <080> 

13200 PRINT <092> 

13220 PRlNT"I5SPACE,RVSDN,3SPACE>iagl£ JBiM 

EC.*£>t ' ISSPACE.RVOFFT" <035> 

13230 WAIT 203,63 <177> 

13240 BET V* <152> 

13250 IF V*-CHR*(74)THEN PRINT CHR»<147)gG 

OTO 1010 <001> 

13260 PRINT CHR*(147)|PR1NT CHR*<142):GOTO 

1010 <182> 

14000 REM SPARBRIEFE <0a5> 

14010 PRINT CHR*(i47) <067> 

14020 PRINT"««**»*****»********»******»«** 

«*•**•*»««" <1B6> 
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14(92S 

PRINT"*{7ePACE>£<SHIFT-SPACE>£{SHIFT 



E-CK£K! T3SPACE.RVOFF>" 

<179> 


-9PACE>a{SHlFT-SPACE>Ä<SHIFT-SPACE>a 


15150 

POKE 19B,0!WA1T 198,1 

<136> 


{SHIFT-SPACE>fiCSHIFT-SPACE>l{BHIFT-9 


15160 

PRINT CHR*tl42) 

<073> 


PACE>EtSHIFT-SPACE>EtSHIFT-aPACE>£tl 


15170 

PRINT CHR«(147)(GOTO 1000 

<013> 


2SPACE>*" 

<195> 

16000 

PRINT CHR*(147) 

<025> 

14(930 

PR I NT "<«*•'»*****•*«***•*«•«#•***«*«» 


16020 

PRINT "*«*»»***«*«*»******»*«•«•**»*«' 



<*•«««*»««" 

<196> 


#*««««»*** '* 

<154> 

14040 

PRINT 

<170> 

16025 

PffTMT"»^7RPflnFlFHPBElMBTELLUH0<1ABPft 


1404S 

PRtNT"£PARBRIEFE BIND ÜOMINALPAPIERE 



CE>*" 

<077> 


IM" 

< 06 a> 

16030 

PR INT "«**«*****«*******************'"' 


14030 

PRINT"aiNNE DES $ BOB AfiS. filE ^NKE 



««»»«*«««•*' 

<164> 


N VER-" 

<147> 

16040 

PRINT 

<13a> 

14060 

PRINT"KAUFEN IN DER ÄEQEL DREI lYPEN 


16045 

PRINT"aJRCH SRUCK AUF CA GELANGEN SI 



SOLCHER" 

<037> 


E '• 

<203> 

14070 

PRINT"£PARBRIEFE«" 

<121> 

16050 

PRINT"WIEDER INS SARBEINSTELLUNGSMEN 


140S0 

PRINT"{3RIBHT>1.)IBPACE.RVSONIAUFOEZ 



UE.<48PACE>" 

<1G8> 


INSTEISPACE,RVOFF,SPACE >" 

<251> 

160S5 

PRINTiPRINT 

<BB3> 

14090 

PRINT"£S HANDELT SICH UM SPARBRIEFE 


16060 

PR1NT"ÄI GLEICHER SCHRIFT- UND aiNT 



MIT ilNS-" 

<246> 


ERGRÜND- " 

<205> 

14100 

PRINT"ANSAMMLUNQ" 

<096> 

16070 

PRINT"FARBE WIRD EINE SEHLERMELDUNGI 


14110 

PRINT"{3RIBHT>2.){SPACE,RV80N>ABBEZI 



2SPACE>" 

<196> 


N8TE tSPACE,RVOFF,BPACE>" 

<053> 

160B0 

PRINT"AUSBEQEBEN." 

<171> 

141Z0 

PRINT"£S HANDELT BICH UM SPARBRIEFE, 


16179 

PRINT 

<023> 


DEREN" 

<24e> 

16160 

PRINT"ISBPACE,RVG0N,38PACE>IflSI6 


14130 

PRINT"JSAUFPREIS DEM DURCH iAUFZEIT<2 



ECKEH!t39PACE,RV0FF>“ 

<203> 


BPACEJUND J1NS-" 

<052> 

16190 

(4AIT 203,63 

<0B9> 

14140 

PRINT"8ATZ ABBEZINSTEN ÜENNWERT ENTS 


16200 

BET V* ■ 

<064> 


PRICHT." 

<0B1> 

16210 

IF V*=CHR*(74)THEN PRINT CHR*(I47)iG 


141S0 

PRINT"{3RIGHT>3.)<SPACE,RV80N)MIT JA 



OTO 1010 

<169> 


EHRLICHER 21NSAUSZAHLUNGTSPACE,RVOFF 


16220 

PRINT CHR«<147):PR1NT CHR«(142)EGOTO 



>" 

<227> 


1010 

<094> 

14160 

PRINT"aER 'aiNSERTRAG WIRD NACH JEWEI 


16230 

IF V**CHR*(74)THEN PRINT CHR*(I47>sQ 



LS 12" 

<02B> 


OTO 1010 

<ia9> 

14170 

PRINT"£ALENDERMDNATEN AUSGEZAHLT." 

<137> 

16250 

PRINT CHR*(147)5PRINT CHRS(142)sGOTO 


14200 

PRINT 

<076> 


1010 

<124> 

14210 

PRINT 

<0B6> 

17000 

REM DRUCKEN 

<113> 

14220 

PRINT"<5SPACE,RVS0N,3SPACE>JßaiE S&U 


17010 

PRINT CHR*(147) 

<019> 


ECKEN! f3BPArE.RVnFF>" 

<019> 

17020 

PRINT " ****************************** 


14230 

(4AIT 203,63 

<161> 


****#*#***'• 

<13B> 

14240 

GET V» 


■ 170^ PPTMT”«f7BParF'HIB^,C,KMQeCJ.Ji:KJlE.l-T.T145 


14250 

IF V*=CHR*<74>THEN PRINT CHR*<147>sB 



PACE>*" 

<OBB> 


OTD 1010 

<241> 

17030 

PRINT"****************************** 


14260 

PRINT CHR*(147>sPRINT CHR*<142):GOTO 



********** '* 

<14B> 


1010 

<166> 

17040 

PRINT"SB BESTEHT DIE ßOEQLlCHKEIT, S 


15000 

REM KGMENTAR BONUSSPAREN 

<076> 


ICH DIE" 

<045> 

15010 

PRINT CHR*<147> 

<051> 

17045 

PRINT"SPCHENERGEBNISSE DER ^TENAUSG 


15020 

PRINT "****************************** 



ABE AUS-" 

<160> 


**»«*•**»*" 

<170> 

17050 

PR1NT"DRUCKEN ZU LASSEN." 

<121> 

15025 

PR INT"* f TBPACF > ao NU 3.5 P R R E H {20BPACE >* 


17055 

PRINT 

<1S7> 


•• 

<25S> 

17056 

PRINT 

<13B> 

15030 

PRINT"****************«*******»«»««* 


17060 

PRINT"SCHALTEN SIE ZUNAECHGT iHREN Ä 



*#***»****•' 

<1B0> 


RÜCKER EIN" 

<215> 

15040 

PRINT"aONUB8PnREN IST FINE nOEGLlCHK 


17070 

PRINT"lUPlUND BETAETIGEN SIE DANN DI 



EIT,SICH" 

<205> 


E «-IABTE." 

<239> 

15045 

PRINT"DURCH SPARRATEN UEBER EINEN GE 


17060 

PRINT"SOFaRT BEGINNT DER AUSDRUCK." 

<093> 


MISSEN" 

<251> 

17090 

PRINTiPRINT 

<022> 

15050 

PRINT"2£ITRAUM FUER ZUKUENFTIBE filSP 


171B0 

PRINT"<5SPACE,RV80N,3SPACE>iaSIE 2AS 



OSITIO-" 

<192> 


SSJLEÜI I3aPACE,RVQFF>" 

<107> 

15055 

PRINT"NEN EIN ANGEMESSENES KAPITAL Z 


17190 

UAIT 203,63 

<073> 


U BE-" 

<161> 

17200 

BET V* 

<04S> 

15060 

PRINT"SCHAFFEN. filE ^NKEN GEWAEHREN 


17210 

IF V*»CHR»<74>THEN PRINT CHR*<147>iQ 



IN DER " 

<015> 


OTO 1010 

<153> 

15070 

PRINT"£E0EL AM SNDE DER iAUFZEIT AUF 


17220 

PRINT CHR*<147)iPRINT CHR»(142)lGOTO 



DIE EIN-" 

<1B3> 


1010 

<07B> 

15080 

PRINT"QEZAHLTE SUMME EINEN SONUSPROZ 


20000 

REM JAEHRL. EFFEKTIVZINB 

<006> 


ENTSATZ," 

<e64> 

20005 

POKE 214,23iP0KE 211,0i8Y8 50640 

<096> 

15090 

PRINT"DER VON DER SESAMTLAUFZEIT ABH 


20006 

PRINT"<7RI0HT,RvaON>BITTE WARTEN!{RV 



AENQIG " 

<125> 


OFF>" 

<217> 

15100 

PRINT"IST. SA DIEBE SPARFORM DIE SCH 


20010 

REM FUER RAHMENKREDIT 

<202> 


AFFUNG" 

<101> 

20015 

IF Z-12 THEN EXxZSiGOTO 20110 

<21B> 

15119 

PRINT"EINER ZUKUENFTJGEN lUSATZRENTE 


20020 

R-ZS/100 

<080> 


ERMOEG-" 

<1B4> 

20030 

DA>ZH*1 

<O03> 

15120 

PR1NT"LICHT, IST EIN iENTENBERECHNUN 


20040 

J=INT<DA/12) 

<211> 


B8PR0-" 

<240> 

20049 

L1«DA-(J*12) 

<190> 

15130 

PRINT"BRAMM ANGEFUEST." 

<200> 

20050 

LR-DA-{J*12)-1 

<074> 

15131 

PRlNT"a£IM aENTENPROGRAMM (^IRD DAVON 


20051 

R-R-V.0001 

<062> 


AUSBE-" 

<0B9> 

20055 

RF»<1-(1+R)t-J)/R 

<200> 

15132 

PR1NT"GANGEN, DAGS DIE SENTENZAHLUNB 


20056 

K1-(5.5*R*MR+(12*MR))*RF 

<207> 


1 iAHR " 

<055> 

20057 

FJ«<1+R!t(-DA/12) 

<113> 

15133 

PRINT"NACH JiERTRAGSENDE BEGINNT." 

<071> 

20060 

K2"((LR*<LR+1>/24)*R*MR+(LR*MR+R5))* 


15134 

PRINT 

<250> 


FJ 

<0B3> 

15140 

PRINT"t5GPACE,RVS0N,38PACE>IflSi& SAU 


20070 

K3-K1+KZ 

<172> 
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FINANZEN 


2(9080 

IF K3>KB THEN GOTO 20051 

<232> 

26000 

REM HARDCOPYROUTINE 

<255> 

20090 

REH EFFI flUSGEBEN 

<061> 

26005 

OPEN 4,4,49CMD 4 

<04e> 

20100 

EX-INKR* 10000)/100 

<212> 

26010 

FOR 1-1024 TO 1984 STEP 40! REM 25 Z 


20110 

POKE 214,239PQFE 211,09 SYS 58640 

<201> 


EILEN 

<214> 

20120 

PRINT"EFFEKTIVEH JflHRESZINS-"jEXj"X" 

<24B> 

26015 

BZ*-""9REM QESAMTZEILE LDEBCHEN 

<ia 0 > 

20130 

RETURN 

<120> 

26020 

FOR J-0 TO 39iREM 40 ZEICHEN 

<226> 

2S000 

REM UNTERPROB. EFFEKTIVZINS 

<213> 

26030 

Z-REEK(I+J)9REM ZEICHEN LESEN 

<049> 

25008 

IF P-1 THEN GOSUB 35000 

<003> 

26040 

IF Z<32 THEN Z-Z+649REM UMWANDLUNG 

<152> 

25009 

IF P-1 THEN RETURN 

<164> 

26050 

BZ#»BZ*+CHR»(Z) 

<B93> 

2S01O 

REM ERMITTLUNG DES 

<207> 

26060 

NEXT J 

<242> 

25020 

REM EFFEKTIVEN JAHRESZINSES 

<051> 

26070 

PRINT BZ* 

<065> 

25030 

POKE 2t4,23tP0KE 211,10iSV8 58640 

<219> 

26080 

NEXT 19CLQSE 4 

<194> 

25040 

PRINT"tRVSONlBITTE WARTEN !<RVOFF>" 

<040> 

26090 

RETURN 

<236> 

25100 

REM VARIABLEN ZUCRDNEN 

<035> 

27000 

REM UNTERPROGRAMM 

<Z03> 

25105 

EH*0tEF>O9MH»0:Ll-BiJl-09J2-09J3«0 

<242> 

27010 

REM ANNUITAETEN 

<236> 

25106 

Ll»(LX-12>/12 

<B1S> 

27020 

REM UND RENTENBERECHNUNG 

<233> 

25107 

MH-(MK/BU)*100 

<123> 

27030 

REM ANNUITAETENFAKTOR 

<243> 

25108 

EF-24*(< <ZB«LX)+MH+(QB*i00/SUI>/(LX+ 


27040 

(3-(Z5/100)+l 

<166> 


1) ) 

<148> 

27050 

Al = l-(iat-DA) 9 IF DA-0 THEN Al-1 

<236> 

25109 

EH-EF/100 

<ie7> 

27060 

A2-((ZS/10O)/A1)»Q 

<074> 

25110 

REM ERSTE JAHR 

<007> 

27070 

RT-RK*A2 

<1B9> 

25111 

Jl-<(<U/12)*Rl*EH) + < (55/121 *EH*R2> + 


27080 

Z6»(XK*K2)/(XK*2) 

<B64> 


R1+<11*RZI>/(l+EH) 

<200> 

27090 

Z7-Z6*(25/10a) 

<245> 

25112 

RB-<l-((1+EH)t~Ll> >/<EH) 

<244> 

27100 

E-RT/(XK+Z7> 

<136> 

25113 

J2=(((5.3*EH*R2)+<I2*R2))/(1+EH))*RB 

<021> 

27110 

E-E*ioe 

<ZZ3> 

25114 

J3-J1+J2 

<099> 

27120 

IF E-1NT(E)>.3 THEN D-1 

<105> 

25115 

IF J3>SU THEN GOTO 25120 

<214> 

27130 

IF E-INT(E)<.5 THEN D=0 

<247> 

25116 

IF J3<BU THEN GOTO 25240 

<103> 

27135 

E»INT(E)+D 

<242> 

25120 

REM 

<129> 

27140 

E»E/ie0 

<031> 

25121 

REM ZUNEHMENDER ZINS 

<134> 

27150 

REM AUG8ABE AUF BILDSCHIRM 

<099> 

25122 

EH=((EH«100)+.B1>/100 

<I76> 

27160 

PRINT CHR*(147)9P0KE 214,39PDKE 211, 


25130 

Jl=((<ll/12)*Rl*EH)+((55/12)*EH*R2)+ 



OiSYS 58640 

<B06> 


R1+(1I*R2)>/<1+EH) 

<227> 

27170 

PRINT"«***«*•*•*«***»*•******»**•*•• 


25131 

REM BERECHNUNG DES 

<112> 


«**»«***»«" 

<128> 

25140 

REM RENTENBARWERTFAKTOR 

<iai> 

27180 

PRINT"*{38SPACE T*" 

<230> 

25150 

RB=(1“( Cl+EH) t-H)) / (EH) 

<026> 

27190 

PRINT"IHRE RENTE BETRAEBT9{2SPACEIDM 


25160 

J2=(((5.5#EH*R2)+(12*R2)>/(l+EH))*RB 

<068> 


"jINT(E*100+.5)/100 

<069> 

25161 

REM 

<075> 

27200 

PRINT 

<122> 

25170 

J3=JI+J2 

<155> 

27210 

PRINT"BEZAHLT WIRD JEWEILS{2SPACE>"; 


25175 

POKE 214,0:POKE 211,0:BYS 58640 

<035> 


V* 

<04I> 

25176 

PRINT"TRVSONJITERATION BEI DM9CSPACE 


‘-27220-^.' NT 

<142> 


,RVDFFJ"iINT(J3*100)/1B0 

<212> 

27230 

PRINT''ZAHLUN8SWEI8E9 {2SPACE>"; J* 

<JJ6> 

25177 

PRINT"{RV3DN1ITERATIDN BEI X ftSPACE 


27240 

PRINT 



,RVOFF >"j"T11SPACE >":POKE 214,19 POKE 


27250 

PRINT”DAUER DER RENTE9 "iDA;" JAHRE" 

<167> 


211,18:SYS 58640 

<076> 

27251 

PRINT 

<173> 

25I7B 

PRINT;INT(EH»1B000)/1009POKE 214,09P 


27260 

PRINT"ZINS3ATZ9"!Z55’'X P. A." 

<090> 


OKE 211,0:6Y8 58640 

<001> 

27270 

PRINT"*{38SPACE >*" 

<064> 

25179 

POKE 214,0iPOKE 211,09SY8 58640 

<039> 

27280 

PR I NT *««***•»*»*»«*«-»*»««»«*«*«**•»»* 


25180 

IF J5<SU THEN GOTO 25500 

<087 > 


**<*«•«**»" 

<23a> 

25181 

GOTO 25122 

<246> 

27300 

IF DA=0 THEN POKE 214,t39P0KE 211,16 


25200 

REM 

<114> 


9 SYS 58640 

<Z54> 

25210 

REM 

<124> 

27310 

IF DA=0 THEN PRINT 2*;"{6SPACE>" 

<055> 

25220 

REM ITERATION MIT ABNEHMENDEN 

<127> 

27315 

PRINTsPRINTg PRINTg PRINT 

<1B6> 

25230 

REM ZINS 

<147> 

27316 

PRINT"{5RIGHT1TA3TE DRUECKEN1{ZBPACE 


25240 

J1-09J2-0!J3a0 

<232> 


>" 

<143> 

25300 

EH~((EH>100)-.011/100 

<162> 

27317 

POKE 19B,09WAIT Z03,63iGET G* 

<110> 

25310 

Jl"(( (11/12)#Rl*EH) + ((55/12)#EH*R2) + 


27318 

IF G*»CHR*(92)THEN OOSUB 26000 

<096> 


R1+(11*R2))/(1+EH) 

<151> 

27319 

IF 6*-CHR#(92) THEN GOTO 27317 

<241> 

25320 

REM ABNEHMENDER ZINS 

<0B4> 

27320 

IF Q*<>CHR*{92)TH£N PRINT CHR*(147) 

<022> 

25400 

REM RENTENBARWERTFAKTOR 

<ia7> 

27321 

RETURN 

<199> 

25410 

REM 

<070> 

28000 

REM UNTERPROGRAMM 

<IB7> 

25420 

RB»(1-((1+EH)t-Ll>)/(EH) 

<042> 

28010 

REM EFFEKTIVE VERZINSUNG 

<173> 

25430 

J2-(((5.5*EH*R2)+(12*R2))/(l+EH))»RB 

<0B4> 

28020 

REM BEI DISAGIO 

<000> 

25440 

J3-J1+J2 

<171> 

28030 

POKE 214,20iPOKE 21i,0i8Y8 58640 

<244> 

25450 

POKE 2i4,09FOKE Zll.OgSYS 58640 

<056> 

28040 

INPUT"WIEV1EL X DISAQIO (MAX. 20X)"| 


25460 

PRINT"<RVSQN>ITERAT10N BEI DM9{SPACE 



ZD 

<225> 


,RVDFF>"jINT(J3*100)/100 

<242> 

2B04S 

IF ZD>20 THEN 28040 

<058> 

25470 

PRINT"{RVSaN>ITERATION BEI X t{SPACE 


2B050 

IF ZD<-0 THEN 28040 

<159> 


,RVOFF >"1"{11SPACE >"9 POKE 214,19 POKE 


20055 

POKE 214,20iPOKE Zll.OgSYS SB640 

<013> 


211,189 SYS 58640 

<115> 

20056 

FOR I-t TO Z009POKE(ie00+I>,32 dNEXT 


25475 

PRINT;INT(EH*10000)/1009 POKE 214,09 P 



I 

<047> 


OKE 211,0i8YB 58640 

<044> 

28057 

POKE 214,209POKE Z11,098YS 58640 

<01B> 

25480 

POKE 214,0iPOKE 211,0:SYS 58640 

<0B6> 

2B05B 

PRINT"{B8PACE,RVB0N>BITTE WARTEN'{RV 


25490 

1F-J3<-SU THEN GOTO 25500 

<243> 


OFF,15SPACE)" 

<01B> 

25495 

GOTO 25300 

<241> 

28060 

L-C-((ZD/100)*C) 

<09B> 

25500 

REM AUSGABE DE6 EFFI 

<1B7> 

2B07O 

REM ITERATION ERSTELLEN 

<11B> 

25510 

EH^c EH*1B0 

<079> 

28080 

Z1-Z/10B 

<133> 

25511 

EH»INT(EH*100+■5)/100 

<12B> 

28090 

Z1-Z1+.0OB1 

<127> 

25512 

REM 

<172> 

28100 

R1-(1-((1+Z1)T-J>)/Z1 

<091> 

25513 

POKE 214,239P0KE 211,6iSVS 58640 

<017> 

28110 

R2-L/AC 

<132> 

25520 

PRINT"EFFEKT. JAHRESZINS» "; EH 

<000> 




25530 

RETURN 

<ia6> 

Listing 1. »Kassofix« (Fortsetzung) 
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2B120 

IF R1>R2 THEN GOTO 28090 

<225> 

35175 

POKE 214,0:POKE 211,0iBYS 58640 

<130> 

2StZS 

zi>°iNT<zi*ieBee) /100 

<137> 

35176 

PRINT”<RVSON)ITERATIDN BEI DMsrSPACE 


28130 

POKE 214,20tPDKE 211,0:SYS SB640 

<0SB> 


, RVOFF > ■' 1 INT < J3« 100 ) /100 

<051> 

2Bt7B 

RETURN 

<032> 

35177 

PRINT”CRVSON}ITERATION bei X «rSPACE 


30000 

IF ZL-2 AND KM«>KN« THEN RETURN 

<156> 


, RVOFF > •' 1 " tl 1 SPACE > " « POKE 214,1« POKE 


30001 

IF ZL02 THEN RETURN 

<15B> 


211,ieiSYS’ 58640 

<171> 

30005 

PRINT CHR*<147)«POKE 214,10:POKE 211 


35178 

PRINTE INT<EH«10000)/100«POKE 214,0«P 



,10iSYS 58640 

<127> 


OKE 211,0«SYS 58640 

<096> 

30010 

PR I NT '• <RVeON > " j KN4 } " IRVOFF > "« FQR I" 1 


35179 

POKE 214,0«POKE 211,0g8Y8 58640 

<134> 


TO 20BeiNEXT IiPRINT CHR«<147>iRETU 


351B0 

IF J3<8U THEN GOTO 35500 

<1B6> 


RN 

<012> 

3S1B1 

GOTO 35122 

<093> 

35000 

REH UNTERPROQ. ZUR ITERATIVEN 

<067> 

35240 

Jl-0iJ2-0tJ3-0 

<071> 

35010 

REM ERMITTLUNG DES 

<B46> 

35300 

EH>((EH«1B0)-.01>/1B0 

<001> 

35020 

REM EFFEKTIVEN JAHRESZINBEB 

<146> 

35310 

Jl-{({l/12)*Rl*EH)+(<65/12)*EH*R2)+R 


35030 

POKE 214,23iPaKE 211,10sSYS 58640 

<OSB> 


1+(11*R2)>/((1+EH)t(L2)) 

<177> 

35040 

PRINT"tRVBQNlBITTE WARTEN !<RVOFF>" 

<135> 

35320 

REM ABNEHMENDER ZINS 

<179> 

35100 

REM VARIABLEN ZUORDNEN 

<130> 

35400 

REM RENTENBARWERTFAKTOR 

<0Z6> 

35105 

EH-0«EF-0tMH>0iLl-0tJl-0:J2-0tJ3-e 

<0B1> 

35410 

REM 

<165> 

3S10S 

Ll“<(LX-12)/12>iL2-<LX/12>-Ll 

<175> 

35420 

RB-(l-((l+EH)T-Ll))/(EH) 

<137> 

35107 

MH-<MK/SU)*100 

<21B> 

35430 

J2»(t <5.5*EH*RZ) + (12*R2)>/<l+EH)>«RB 

<I79> 

35108 

EF-24«(< <2S*LX)+MH+(BB*100/SU))/<LX+ 


35440 

J3-J1+J2 

<01O> 


1)1 

<243> 

35450 

POKE 214,0«POKE Zll,0tSYS SB640 

<151> 

35109 

EH*EF/100 

<B26> 

35460 

PRINT"<RVBON>ITERAT10N BEI DM«<8PACE 


35110 

REM LEZTE JAHR 

<174> 


,RVOFF>''; 1NT(J3«»10B) /10B 

<081> 

35111 

J1-(<<1/12>*R1*EH)+<«6S/12>*EH#R2)+R 


35470 

PRINT"<RVSDN>ITERAT10N BEI X «(SPACE 



l+(ll*R2>)/<(l+EH)t<L2> > 

<234> 


,RVOFF>"E"<11SPACE >"!POKE 214,1« POKE 


35112 

RB»tl-(l+EH) t-LD/EH 

<13B> 


211,18«SYS 58640 

<210> 

35113 

J2-({(5.5*EH*R2>+<12»R2))/<l+EH))*RB 

<U6> 

35475 

PRINT;INT(EH*10000)/100« POKE 214,0« P 


35114 

J3-J1+J2 

<194> 


OKE 211,0tSY8 SB640 

<139> 

35115 

IF J3>SU THEN GOTO 35120 

<057> 

354B0 

POKE 214,0sPOKE 211,0sSVS SB640 

<iei> 

35116 

IF J3<BU THEN GOTO 3S240 

<202> 

35490 

IF-J3<-SU THEN GOTO 35500 

<090> 

35120 

REM 

<129> 

3549S 

GOTO 35300 

< 0 aB> 

35121 

REM ZUNEHMENDER ZINS 

<229> 

35500 

REN AUSGABE DEG EFFI 

<026> 

35122 

EH-((EH*1B0)+.01>/100 

<015> 

35510 

EH= EH*100 

<174> 

35130 

Jl»=< ((1/12) •Rl*EH) + < <65/12) *EH*R2)+R 


35511 

EH=INT<EH*100+.S>/t00 

<ZZ3> 


l+<ll*R2))/<(l+EH)t<L2)) 

<253> 

3SS13 

POKE 214,23tPaKE 211,6:SYS 58640 

<112> 

35131 

REM BERECHNUNG DES 

<207> 

35520 

PRINT"EFFEKT. JAHRESZINS» "sEH 

<093> 

35140 

REH RENTENBARWERTFAKTOR 

<B20> 

35530 

RETURN 

<0Z5> 

35150 

RB=<l-< <1+EH)T-Ll))/<EH) 

<121> 




35160 

J2>< ((S.5*EH*R2) + (12*R2> )/(l-vEH) )*RB 

<I63> 




35170 

J3-J1+J2 

<250> 

Listing 1. »Kassofix» (Schluß) 
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DigHalsdrallungen testen 
ohne Hnidwnie 


Das Programm »Logikanalyse V2.0« erlaubt es, 
acht voneinander unabhängige digitale TTL- 
Signaie mit einer maximalen Abtastfrequenz von 
50000 Messungen pro Sekunde aubunehmen 
und grafisch darzusteiien. Für Bastler im Bereich 
Digitalelektronik ist dieses Programm eine wert¬ 
volle Hilfe und erspart manches teure Gerät wie 
beispielsweise ein Speicheroszilloskop. 

W er sich schon einmal mit dem Bau- oder Nachbau 
von digitaien Schaltungen befaßt hat, und als Meß¬ 
mittel nur Logikteststift und Vielfachmeßgerät 
besitzt, weiß, daß diese Hilfsmittel oft bei weitem nicht aus¬ 
reichen, um eventuelle Fehler zu lokalisieren. Auch die 
Synthese einer Schaltung ist so kaum möglich. In vielen 
Fällen bringt nur die Darstellung des Zeitdiagrammes meh¬ 
rerer Signalleitungen den gewünschten Erfolg. 

EineAlternativezu dem für Hobbyisten nicht erschwingli¬ 
chen Logikanalyzer stellt nun für C64-Besitzer das Pro¬ 
gramm Logikanalyse dar. Mit einer maximalen Abtastfre¬ 
quenz von 50000 Hertz ist es zwar nicht gerade für den 
Profi geeignet, reicht aber im Hobbybereich für niederfre¬ 
quente Anwendungen bereitsaus. Der Meßbereich von 400 


bis zu 50000 Messungen pro Sekunde ertaubt dabei Meß¬ 
zeiten von 0,65 bis 62 Sekunden. 

In Bild 1 sehen Sie das Ergebnis einer Messung mit einer 
Abtastrate von 50000 Messungen pro Sekunde. Es lassen 
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Bild 1. Das Ergebnis einer Messung mit einer Abtastrate 
von 50000 Messungen pro Sekunde als Hardcopy 


sich insgesamt 32728 Meßzyklen aufnehmen und spei¬ 
chern. Jede einzelne Messung läßt sich dann in aller Ruhe 
auswerten. Außer der grafischen Darstellung von maximal 
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LOGIKANALVSE A. NAGLER 7081 KIRCHHEIM 

TÄSTEHBELEGÜNG: 

Fl 

s 

MENUE 

F2 

s 

SEITENANWAHL: 20 

F3 

B 

GRAFIK 

F4 

s 

HAROCOPV 

F5 

s 

ABTASTFREQUENZ IN HZ:50000 

F7 

B 

NFIIF MESSUNG 

HOME 

s 

1. GRAFIKRFITF 

+ 

SS 

NAECHSTE GRAFIKSEITF 

> 

s 

LETZTE GRAFIKSEITE 

Q 

s 

PROGRAMMENDE 

< > 


BEWEGT GRAFIKPOIHTER 


Bild 2. Das Hauptmenü von »Logikanalyae V2.0« stellt über¬ 
sichtlich alle Funktionen zur Auswahl 


acht Meßleitungen läßt sich somit jede Messung grafisch in 
dezimaier, hexadezimaler und binärer Form darstellen. 

Kostspielige Hardware ist beim Messen von TTL- 
Schaitungen nicht nötig, da der AnschiuB der Signaileitun- 
gen direkt am User-Port erfolgt. Sie benötigen lediglich 
einen User-Port-Stecker und maximal neun Leitungen mit 
Klemmen. Falls Sie Signale in Digitalschaltun^n in 
CMOS-Technik messen wollen, so müssen Sie verhindern, 
daß Spannungen größer als 5 Volt den User-Port erreichen. 
Es empfiehlt sich dann die Verwendung von Puffer-ICs. 

Ausfühiikhe Beschreibung und Bedienung 


Das Programm Logikanalyse ist etwa 6 KByte lang und 
komplett in Maschinensprache geschrieben. Nach dem 
Eingeben des Programmes (Listing 1) mit dem MSE und 
nachfolgendem Speichern, laden Sie »Logikanalyse« mit: 

LOAD "LOGIKANALYSEM (für Kassette) 
beziehungsweise 
LOAD " LOGIKANALYSE \8 
Gestartet wird das Programm mit RUN. 

Durch Drücken einer beliebigen Taste kommt man vom 
Titelbild zum eigentlichen Hauptmenü, in dem sich durch 
Eingabe einer der angegebenen Tasten die jeweiligen Pro¬ 
grammteile aufrufen lassen. Bild 2 zeigt das Hauptmenü 
mit der Standardeinstellung für eine Abtastfrequenz von 



Bild 3. Die Anzeige auf dem Bildschirm nach einer Mes¬ 
sung läßt deutlich den Impulsverlauf erkennen 


50000 Hz und die aktuelle Seite direkt nach dem Pro¬ 
grammstart. 

Beim Start des Programmes wird in Adresse 2 das Bit 5 
gesetzt. Damit wird bei der früheren Hypra-Perfekt-Version 


die Funktionstastenbelegung ausgeschaltet. Beim Verlas¬ 
sen des Programmes mit <Q> wird dieses Bit wieder 
gelöscht, RUN/STOP RESTORE sollte also nur im Notfall 
benützt werden. 


Menüsteuerung 


Mit den angegebenen Tasten lassen sich nun die folgenden 
Programmteile aufrufen: 

< Fl > Aufrufen des Menübildschirmes 
Durch Drücken der Funktionstaste Fl kommt man aus 
fast allen Programmteilen zurück zum Hauptmenü. Ledig¬ 
lich in den Untermenüs für »Hardcopy« und »Neue Mes¬ 
sung« benützen Sie die Taste < M >. 

<F2> Anwahi eines bestimmten Speicherbereiches 
Hier kann man nach einer Messung einen beliebigen, 
256 Byte langen Bildschirmspeicherbereich für die grafi¬ 
sche Darstellung anwählen. Benötigt wird nur das Highbyte 


LOOIKAHALVSE_f!i^_HAGLER 

fÄSTENBELEGÜ hÖT 


7081 KIRCHHEIM 


Fl 

F2 

F3 

F4 

F5 

F7 

H0ME> 

+ 


00 


Q 

< > 


MENUE 

SEITEHAHHAHL: 

GRAFIK 
HAROCOPV 

ABTASTFREQUEHZ IH HZ:50000 

HEUE MESSUNG 

1. GRAFIKSEITE 

NÄECHSTE GRAFIKSEITE 

LETZTE GRAFIKSEITE 

PROGRAMMENDE 

BEWEGT GRAFIKPOIHTER 


= START BEI 0/1-FLANKE AM EIHG. EO 
a^TART BEI SPACE-TASTE 
^fURUECK ZUM MENUE 


STOP BEENDET DIE LAUFENDE MESSUNG 
<SPACE> STARTET DIE AUFNAHME 
<STOP> BEENDET DIE AUFNAHME 


Bild 4. Das Unter-Menü »Messen« des Programms »Logik¬ 
analyse V2.0« erlaubt zwei Arten des Meßbeginns 


des Bereiches und zwar in hexadezimalem Format, das 
heißt die Anwahl des Speicherbereiches $4F00 erfolgt 
durch Eingabe von »4F«. Da eine Messung jedoch nicht 
immer den kompletten Meßwertspeicher benötigt, ist nur 
eine Anwahl eines tatsächlich benutzten Bereiches mög¬ 
lich. Im Fehlerfall erscheint für etwa zwei Sekunden das 
Wort »FEHLER«, danach erfolgt ohne Bereichsänderung 
der Sprung zum Hauptmenü. 

<F3> Umschaiten auf den Grafikbildschirm 

Hier wird der Grafikmodus aktiviert und die zuletzt ange¬ 
zeigte Messung erscheint auf dem Bildschirm (Bild 3). 

Nun können Sie mit Hilfe der Tasten»,«und ».« den Meß¬ 
wertzeiger auf jeden beliebigen Zeitpunkt innerhalb des 
aktivierten Bereichs (siehe oben) setzen. Im unteren Teil 
des Bildschirms erhalten Sie die Daten des aktuellen 
Meßwerts. 

<F4> Hardcopy 

Ein Druck auf <F4> ruft ein neues Menü, das Hard¬ 
copy-Menü, auf (Bild 3). Hier können Sie angeben, wie die 
Hardcopy aussehen soll. Beim Ausdruck wird die Kernel¬ 
routine $FFD2 verwendet. Das heißt, daß eine softwaremä- 
ßige Centronics-Schnittstelle, welche die übertragenen 
Daten nicht verändert, verwendbar ist. Mehr dazu später. 
<F5> Andern der Abtastfrequenz 

Ein Druck auf die Funktionstaste <F5> verkleinert die 
Abtastfrequenz um eine Stufe. Die Frequenz läßt sich von 
50000 bis 400 Messungen pro Sekunde einstellen. Durch 
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längeres Drücken von <F5> wird die Abtastfrequenz kon¬ 
tinuierlich verringert. Ein Pfeil hinter <F5> zeigt dies an. 
Zusätzlich wird die Anzeige am Bildschirm ständig aktuali¬ 
siert. 

<F7> Neue Messung starten 
Mit <F7> wird das Unterprogramm Messen aufgeru¬ 
fen. Hier (Bild 4) hat man nun zwei Möglichkeiten, eine Mes¬ 
sung zu starten: 

<l> bewirkt einen Start der Messung durch ein High- 
Signal (logisch 1) am Eingang 0. 

<S> bewirkt einen Start der Messung manuell durch 
Drücken der Space-Taste. Außerdem ist noch die Rückkehr 
in das Hauptmenü mit <M> vorgesehen, Eine bereits 
gestartete Messung kann jederzeit mit der STOP-Taste 
abgebrochen werden. Danach wird sofort die erste Grafik- 
Seite aufgebaut und angezeigt. 

<HOME> Erste Grafikseite anwählen 
Die erste Grafikseite, das heißt der Beginn der Messung 
wird angewählt und der Grafikmodus aktiviert. Man kann 
auch hier mit Hilfe der Tasten»,« und ».■< den Meßwertzeiger 
auf jeden beliebigen Zeitpunkt Innerhalb des aktivierten 
Bereiches setzen. Der untere Teil des Bildschirms zeigt die 
Daten des aktuellen Meßwertes. 

< -f- > Nächste Grafikseite anwählen und anzelgen 
Die nächsten 256 Byte werden angewählt und grafisch 
dargestellt. 

<—> Nächste Grafikseite anwählen und anzeigen 
Die vorhergehenden 256 Byte werden angewählt und 
grafisch dargestellt. 

<Q> Beenden des Programmes 
Beim Verlassen des Programmes mit <Q> wird das Bit 
5 in Adresse 2 wieder gelöscht, das heißt die Funktionsta¬ 
sten im Betriebssystem Hypra-Perfekt sind wieder aktiv. 


Bild 5. Problemloser Hardwareanschluß: So werden die 
Meßleitungen am User-Port angeschlossen. 

- Einstellen der gewünschten Abtastfrequenz mittels 
<F5> 

- Anschließen aller Meßleitungen und der Masseleitung 

- Starten der Messung mit <F7>. <S> und <SPACE> 

- Auswertung mit Hilfe der Tasten <F2>, <HOME>, 
<+ > und <->. 


Zum Testen der Software können Sie sich eine kleine 
Oszillatorschaltung nach Bild 6 aufbauen. Die 5-Volt- 
Versorgung wird an Pin 14, die Masse an Pin 7 angeschlos¬ 
sen. Die Verbindung zum C64 stellen zwei Meßleitungen, 
vom IC-Pin 7 zum User-Port Pin 1 (Masse) und vom IC-Pin 
3 zum User-Port Pin C (Signal 0) her. 

Falls Sie momentan keinen User-Port-Stecker zur Verfü¬ 
gung haben, können Sie sich mit einem kleinen Trick den 
Bereich von $A000 bis $A0FF, also den ROM-Bereich, gra¬ 



Blld 6. Eine kleine Probeschaltung, mit der Sie das Pro¬ 
gramm »Logikanatyse V2.0<> testen können. 


fisch darstellen lassen. Drücken Sie nach dem Laden des 
Programms folgende Tasten: 

<S>, <SPACE>, <F2>, <9>, <F>, <-l- > 
Für Besitzer von Druckern mit Centronics-Schnittstelle 
ergeben sich keine Probleme bei der Verwendung von 
»Logikanalyse«. Am geeignetsten ist eine Software- 
Centronics-Schnittstelle, die direkt im Kernel (wie bei 
Speed-DOS) untergebracht ist, da das Laden der Software 
entfällt. Eine ladbare Schnittstellen-Software darf nur im 
Kassettenpuffer oder im Bereich $C000 bis $C7FF liegen, 
da der restliche Speicherplatz als Programm-, Daten- oder 
Grafikspeicher verwendet wird. Da bei der Hardcopy des 
hochauflösenden Bildschirmes die Daten im Bit-Image- 
Modus (also 6 Bit breit) gesendet werden, darf die Treiber¬ 
software keine Codewandlung vornehmen. Bei einer Code¬ 
wandlung werden einige Bits geändert, und der Ausdruck 
auf Papier würde somit nicht mehr der Darstellung auf dem 
Bildschirm entsprechen. 

Hardwareanschluß an den Userporf 


Der Anschluß der Meßleitungen erfolgt am User-Port an 
Port B. Dabei werden die acht Portleitungen mit den Meß¬ 
punkten und die Masseleitung mit der Masse der Schal¬ 
tung verbunden (Bild 5). 

Achtung: Folgende Punkte sollten Sie beachten: 

Die Meßleitungen sollten erst nach dem Start des Pro¬ 
grammes mit der zu messenden Schaltung verbunden wer¬ 
den, da so sichergestellt ist, daß Port B als Eingang pro¬ 
grammiert wurde. 

Außerdem ist zu beachten, daß der Pegel der Schaltung 
5 Volt nicht überschreitet und 0 Volt nicht unterschreitet. Die 
Zerstörung des Portbausteines wäre die Folge. Bei TTL- 
Schaltungen tritt dieser Fall aber glücklicherweise nicht 
auf. Eleganter ist natürlich die Verwendung von Puffer- 
ICs. 

(Andreas Nagter/Henning Jürgens) 



Der Meßvorgang 


Zum Durchführen einer Messung sind folgende Schritte 
notwendig: 

- Laden des Programmes Logikanalyse, Start des Pro¬ 
grammes mit RUN 


Userport 


SIgnollsItungen 


Signal 0 
Signol V 
SIgnol 2 
Signal 3 
Signol 4 
Signol 5 
Signol 6 
Signol 7 

Mosseleltung 
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Der C64 bringt 
Bewegung ins Spiel 


Jeder Hobbybastler weiß, daß es normalerweise 
recht aufwendig ist, Drehbewegungen zu steu¬ 
ern. Mit Ihrem C64 und Servomotoren, die sonst 
bei Funkfernsteuerungen verwendet werden, läßt 
sich dies einfach realisieren. Wir zeigen ihnen, 
wie es gemacht wird. 

F unkfernsteuer-Servos aus dem Modellbau haben 
gegenüber anderen Motoren den Vorteil, daß sie die 
Position ihrer Achse »kennen«, auf »Zuruf« eine neue 
Position annehmen und dort stehenbleiben. 

Bei ferngesteuerten Modellen werden sie verwendet, um 
RuderoderGashebei zu betätigen. Essindjedochzahiiose 
Anwendungen außerhalb des Modellbaus möglich, von 
kleinen Roboterarmen bis zur einfachen mechanischen 
Betätigung eines Lichtschalters oder Lautstärkereglers. 

Funkfernsteuer-Servos haben ein Potentiometer als 
Positionsgeber eingebaut, das die Winkelposition der 
Achse an die eingebaute Elektronik (Bild 1) zurückmeldet. 
Für gezielte Bewegungen braucht man keine aufwendige 
Regelung bauen, sondern nur den gewünschten Wert der 
Position durchgeben. 

Das Durchgeben der Position geschieht durch einen 
Impuls von bestimmter Zeitdauer, der alle 16 Millisekunden 
wiederholt werden muß, bis die neue Position angenom¬ 
men ist. Die Dauer des Impulses bestimmt die Achssteilung 
des Servos. 


Polentiometsf 


Steüdrimpula 



Bild 1. Funktionsprinzip eines Funkfernsteuer-Servos. 
Seine Achse bleibt In einer Position stehen, die der Steuer¬ 
impuls bestimmt. 


Die Impulsdauer ist etwa 1 Millisekunde bei Mittelstel¬ 
lung und sollte von zirka 0,5 bis 1,5 Millisekunden veränder¬ 
bar sein. Im Bild 2 ist dies grafisch dargestellt. 

Der C64 kann diese Impulse am User-Port einfach gene¬ 
rieren. Da der Computer selbst alle 16 Millisekunden einen 
Interrupt durchführt, liegt es nahe, diese Interrupts zu 
benutzen, um den Steuerimpuls zu erzeugen. 

Drei Steuerprogramme wollen wir Ihnen vorstellen: Mit 
dem ersten Programm (Listing 1) können Sie acht Servos 
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am User-Port steuern, jeden Servo über eine der User-Porl- 
Leitungen PBO bis PB7. Die Servos können nur einzeln 
bewegt werden, der Bildschirm wird dabei abgeschaltet. 

Mit dem zweiten Programm (Listing 2) können Sie zwei 
Servos am User-Port steuern, je ein Servo an PBO und PB1. 
Die Servos können gleichzeitig bewegt werden, der Bild¬ 
schirm wird dabei abgeschaltet. 

Mit dem dritten Programm (Listing 3) wird ein Servo 
gesteuert und zwar über die Leitung PB6. Der Servo kann 
in kleinen Schritten bewegt werden, ohne daß der Bild¬ 
schirm abgeschaltet wird. 

AnschluO der Servos 


Wie Sie die Servos überhaupt am User-Port anschließen 
müssen, zeigt Ihnen das Bild 3. Die verwendeten Servos 
müssen den geschilderten Ansteuerungsspezifikationen 
der Steuerimpulse entsprechen. Viele der üblicherweise 
im Modellbau verwendeten Servos tun dies, wie beispiels¬ 
weise der Servomotor von Acom für 4,8-6 Volt. Der steuer¬ 
bare Drehwinkei der Achse beträgt etwa 180 Grad (±90 
Grad). Sie können Funkfernsteuerservos in den meisten 
Geschäften erhalten, die sich auf Modellbau spezialisiert 
haben. Servos nehmen etwa 100 bis 500mA auf und sollten 
daher von einer externen Spannungsquelle versorgt 
werden. 

Wir wollen uns die einzelnen Programme nun etwas 
näher betrachten. Das erste Programm (Listing 1) generiert 
ein Maschinenprogramm (Zeile 50 bis 110), das im Interrupt 
einen Impuls erzeugt. 

Mit SYS 628 wird der Impuls ein- und der Bildschirm aus¬ 


le REM ***• 2 SERVOS ***# <11B> 

50 DATA 120,162,73,160,3,142,20,3 <13B> 

51 DATA 140,21,3,58,96 <0B4> 

32 DATA 169,3,141,3,221,141,1,221 <230> 

33 DATA.162,0,228,232,20B,G <249> 

34 DATA 36,233,1,240,18,141,1,221 <e 6 e> 

SS DATA 228,233,208,8 <e49> 

36 DATA 36,233,2,240,6,141,1,221 <194> 

37 DATA 232,208,229,141,1,221,76,49,234 <esa> 

100 POKE 2S2,6SlP0KE 233,63 <190> 

110 FOR I-B2B TO BB3iREAD KiPOKE I,KlNEXT <20S> 

120 8 VS e 2 B<POKE 33265,PEEK(S326S>AND 239 <027> 

130 Pe-639P1>6S <0317 

140 IF PEEK(203)-4 THEN PB-PB+lieOTO 200 <211> 

130 IF PEEK(203>-S THEN PB-PB-liBQTO 200 <227> 

160 IF PEEK<203J-6 THEN Pl-Pl+llBOTO 250 <08I> 

170 IF PEeK<203)-3 THEN Pl-Pl-liSDTO 250 < 0 B 1 > 

190 GOTO 140 <182> 

200 IF P0<40 THEN P0-40 <231> 

210 IF P0>110 THEN P0>110 <149> 

220 POKE 2B2,Pe>GOTO 140 <0S1> 

230 IF Pl<40 THEN Pl-40 <06S> 

260 IF P17110 THEN Pl-110 <225> 

270 POKE 2S3,Pl:OaTD 140 <136> 


Listing 2. Zwei Servos können gleichzeitig bewegt 
werden. Bitte mit dem Checksummer (Seite 159) 
eingeben 


geschaltet. Mit SYS 863 wird der Impuls wieder aus- und 
der Bildschirm eingeschaltet. 

Im Prinzip genügt für die Steuerung das Listing 1 bis 
inklusive Zeile 110. Steuern müssen Sie dann auf folgende 
Weise: Zunächst wählen Sie einen der Servos aus mit 

I = 0....7 : POKE 252,211 


10 REM »«•« 8 SERVOS AM USERPORT »««» <023> 

50 DATA 120,173,20,3,141,93,3,173,21,3 <216> 

51 DATA 141,94,3,169,118,141,20,3 <122> 

52 DATA 169,3,141,21,3,68 <11B> 

33 DATA 173,17,208,41,239,141,17,208,96 <060> 

54 DATA 49,234,120,173,93,3,141,20,3 <112> 

53 DATA 173,94,3,141,21,3,88 <1B2> 

56 DATA 173,17,208,9,16,141,17,208,96 <1B6> 

37 DATA 165,252,141,1,221,162,50,234 <151> 

38 DATA 202,208,252,166,253,234,202 <e72> 

39 DATA 208,252,169,0,141,1,221 <ei4> 

60 DATA 108,93,3 <219> 

100 POKE 56579,255 <Z34> 

110 FOR I>B2a TO 9101READ KiPOKE I,KaNEXT <1SS> 
120 FOR 1-0 TO 7iW(I)-135iNEXT <015> 

130 PRINT"<RieHT>SERVO NUMMER 7" <Z55> 

140 IF PEEK<2e3>-3S THEN I-0IGOTO 242 <128> 

145 IF PEEK(2e3)-56 THEN I-liGOTD 242 <021> 

150 IF PEEK(203)-59 THEN I-2«GOTO 242 <179> 

135 IF PEEK(2e3>- 8 THEN l-3l0aT0 242 <0247 

160 IF PEEK(203)-11 THEN 1-4I60T0 242 <110> 

165 IF PEEK{Z03»-16 THEN I-SlGOTO 242 <027> 

170 IF PEEK(203)-19 THEN I- 618 OTO 242 <18S> 

173 IF PEEK(203)-24 THEN I-7ie0T0 242 <026> 

180 GOTO 140 <172> 

200 IF PEEK(2e3)-40 THEN 230 <252> 

203 IF PEEK(2031-43 THEN 233 <1SS> 

210 IF PEEK<203)-S4 THEN 230 <171> 

215 IF PeEK<203>-60 THEN 130 <Z43> 

220 GOTO 200 <156> 

230 M(I)-W(l)+liGOTO 240 <176> 

235 W<I)-W(I)-1 <103> 

240 IF M(l><4e THEN M(I)-4e <116> 

241 IF M(I)>229 THEN W(I)-229 <100> 

242 PRINT'’NR."I"-"W(1) <037> 

243 GOTO 200 <179> 

230 POKE 252,2tIiP0KE 253,U<I>lSYS 828 <B31> 

260 IF PEEK(2031-34 THEN 260 <031> 

270 SYS 863gGOTO 200 <184> 


Listing 1. Acht Servos können angesteuert und nach¬ 
einander bewegt werden. Bitte mit dem Checksummer 
(Seite 159) eingeben 



Bild 2. Oie Steuerimpulse für die Servos. Die Dauer des 
Impulses bestimmt die Stellung der Achse. 


Der Wert W(l) bestimmt die Achssteilung des Servos. Er 
liegt zwischen 40 und 220 und wird eingegeben mit 

POKE 253,W(I) 

Nach SYS 828 wird der Bildschirm abgeschaltet und der 
Servo auf die neue Position eingestellt. Dieser Vorgang ist 
nach 0,2 bis 3 Sekunden abgeschlossen, je nach Servo. 
Anschließend wird der Steuerimpuls mit SYS 863 wieder 
abgeschaltet. 

Das Demoprogramm von Zeile 130 bis 270 im Listing 1 
fragt zuerst nach der Nummer des Servos. Wenn Sie die 
gewünschte Zahl eingegeben haben, wird der derzeitige 
Wert des Servos ausgegeben (Zeile 242). Zu Beginn des 
Programms ist er auf 135 eingestellt. Jetzt können Sie 
durch die Taste < + > den Wert erhöhen (bis 229) und 
durch die Taste <-> erniedrigen (bis 40). Mit der Taste 

< t > leitet man den Stellvorgang ein. Dabei muß die Taste 

< t > solange gedrückt werden, bis der Servo die richtige 
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Bild 3. 
Der Anschluß 
eines Servos am 
User-Port des C64 
(PBO bis PB7). 
Für den Motor 
selbst muß 
eine externe 
Spannungsquelle 
verwendet werden. 


Spannungsversorgung 


User-Port am C64 von hinten 

4,8 - 6 Volt 



Position erreicht hat, Nach dem Stellvorgang können Sie 
wieder den Wert mit < -i- > und <-> verstellen oder mit 
<SPACE> zur Servowahl zurückkehren, 

Die Werte von minimai 40 und maximai 229 für die 
impuisdauer ergeben eine tatsächliche minimaie Impuls¬ 
dauer von 639,45 Mikrosekunden und eine maximale 
Impulsdauer von 1982,3 Mikrosekunden, Diese beiden 
Werte sind beispielsweise für Acoms-Servos richtig, kön¬ 
nen aber für andere Servos kleiner oder größer sein. Der 
Stellbereich läßt sich durch die Grenzwerte, die in Spei¬ 
cherzelle 253 eingegeben werden, verändern. Im Demo¬ 
programm wird dieser Bereich in Zeile 240 und 241 
bestimmt. Der Vorteil dieses Programms liegt darin, daß 
Sie acht Servos steuern können, jedoch nicht gleichzeitig. 
Das zweite Programm (Listing 2) erzeugt ein Maschinen¬ 
programm (Zeilen 50 bis 120), das abhängig vom Inhalt der 
Speicherzellen 252 und 253 zwei Impulse verschiedener 
Dauer an den Leitungen PBO und PB1 erzeugt. Der Bild¬ 
schirm wird in Zeile 120 ausgeschaltet. 

Zwei Servos gleichseitig steuern 


Die jeweils erzeugte Impulsdauer entspricht dem Wert in 
252 (253) mal der Zeitdauer eines Durchlaufs von Maschi¬ 
nenprogramm (17 Zyklen = 17,255 Mikrosekunden), 

Nach der Zeile 120 muß der Stellwerl für Servo Nr. 0 in die 
Speicherzelle 252, der für Servo Nr. 1 in 253, jeweils mit 
POKE eingegeben werden. 

Das Demoprogramm ab Zeile 130 führt dies aus, wenn 
Sie die neuen Werte für PBO und PB1 gewählt haben. 

Den Wert für PBO vergrößern Sie durch Drücken von 
<F1 > und verkleinern ihn durch <F3>.In gleicherweise 
beeinflussen die Tasten <F5> und <F7> den Wert für 
PB1. Die Werte werden bei 40 und 110 begrenzt, was also 
minimal 1898 ns Impulsdauer bedeutet. Diese Werte kön¬ 
nen wie beim vorangegangenen Listing 1 für andere Ser¬ 
vos verschieden sein. In den Zeilen 200, 210 beziehungs¬ 
weise 250, 260 können Sie die Grenzwerte verändern. 

Die neuen Werte für die Impulsdauer von PBO und PB1 
werden in die Speicherzellen 252 und 253 eingegeben, 
womit eine neue Positionierung des Servos hervorgerufen 
wird. 

Dieses Programm hat größere Schritte (jeweils 17 /js), 
kann aber zwei Servos gleichzeitig bewegen. Sie können 
beispielsweise die beiden Arme eines großen Spielzeugro- 
boters gleichzeitig in Bewegung bringen. 

Nun zum dritten Programm. Bei den beiden vorherge¬ 
henden Programmen mußte während der Übertragung der 
Steuerimpulse der Bildschirm ausgeschaitet werden, weil 


der Interrupt des VIC die Dauer der Impulse sonst verän¬ 
dert, Ein Herumzittern der Servos wäredie Folge. Das dritte 
Programm (Listing 3) erzeugt den Impuls mit dem Timer A 
des CIA 2 und kann daher nicht unterbrochen werden. Der 
Bildschirm braucht deshalb nicht abgeschaltet werden. 
Das Programm kann aber nur einen Servo steuern, da der 
Timer sein Ausgangssignal nur an einer Leitung des User- 
Ports ausgeben kann (PB6). 

Dieses Programm generiert zwischen den Zeilen 50 und 
120 ein Maschinenprogramm, das den Interruptvektor auf 
dezimal 841 stellt und dort Timer A mit den Werten, die in 
$FC und $FD (Zero-Page) als Low- und High-Byte stehen, 
vorprogrammiert. Der Timer zählt Systemtaktimpulse 


III *«*» TIMER-SERVO **** <072> 

SD DATA 120,162,73,160,3,142,20,3 <1307 

51 DATA 140,21,3,83,96 <0a4> 

52 DATA 165,252,141,4,221,165,253 <069> 

53 DATA 141,5,221,169,31,141,14,221 <161> 

54 DATA 76,49,234 <139> 

56 DATA 76,49,234 <141> 

100 P0=0:P1=3{POKE 252,P0:POKE 253,PI:ME=P 

0<-236*Pl <091> 

110 FOR I’’B2B TO SSSlREAD KiPOKE I,KlNEXT <233> 

120 SYS 328 <221> 

140 IF PEEK(203)°4 THEN 200 <013> 

150 IF PeEK(203>-5 THEN 250 <ia7> 

190 BOTO 140 <ia2> 

200 ME'ME-«-! <0S9> 

205 IF ME<500 THEN ME>S00 <223> 

210 IF ME>2000 THEN WE>2e00 <174> 

220 PRINT WEsJpl"INT(We/256)«P0»WE-256»Pl <22S> 
230 POKE Z52,P0iPOKE 2S3,Pl:eOTO 140 <189> 

250 WE-WE-ljQOTD 205 <193> 


Listing 3. Ein Servo kann bei eingeschaltetem Bild¬ 
schirm bewegt werden. Bitte mit dem Checksummer 
(Seite 159) eingeben 


(1,015 ms). Die Impulse dauern daher den Wert von FC,FD 
mal 1,015 fis. 

Das Demoprogramm von Zeile 140 bis 250 erhöht den 
Wert WE durch Drücken von < Fl > und erniedrigt ihn mit 
< F3>. Gleichzeitig wird der Wert WE als Low- und High- 
Byte in 252 und 253 gePOKEt und damit der Servo gestellt. 
Begrenzt wird der Wert mit minimal 500 und maximal 2010, 
was Impulslängen von 507,5 ^s und 2030 ns bedeutet. 
Diese Werte sind allerdings wieder abhängig von dem 
Servo und können in Zeile 205 und 210 verändert werden. 

Welches dieser Programme Sie nutzen, hängt von der 
Aufgabe ab, die Sie lösen wollen. Mit eigenen, angepaßten 
Basic-Programmen können Sie die Funkfernsteuer-Servo- 
motoren für die verschiedensten Aufgaben nutzen. 

(H. Melwlsch/kn) 
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Digitalschaltungen: bequem vom Sessel aus mit 
dem Joystick auf dem Bildschirm aufgebaut und 
nach allen Regeln der Kunst mit dem Computer 
simuliert. Ein Traum für Hobbyelektroniker. Unser 
»Digital Construction Set« überzeugt durch 
hohen Bedienungstomfoit. 

E s gibt zwar einige Programme für den C64, mit denen 
man die Funktion von logischen Gattersohaltungen 
überprüfen kann. Bei den wenigsten aber funktioniert 
dies grafisch auf dem Bildschirm, Gewöhnlich mu6 man 


[ 


PIQI - C0H8TRUKTI0II - 8ET 01.1 

BV NICKI HEU8LER 3/19BT 
EIN NSS PROORAHM 


I 


haupthehue 

EDITOR 

proorakhende 

DIRECTORY 
OESCHHIND. 


AU8TE8TEN 
NEUSTART 
KOHHANDO 
FILE 


Bild 1. Das Hauptmenü von »Digl-Constructlon-Set« 


mühsam die Anweisungslisten der Schaitungen eingeben. 
Viel übersichtlicher und einfacher ist es aber, eine Schai- 
tung auf dem Bildschirm mit entsprechenden Symbolen 
aufzubauen, und beim Testen auf dem Bildschirm mitzu¬ 
verfolgen, wo welches Potential anliegt. Genau dies ist mit 
dem Digi Construction Set »DCS V1.1« (Listing 1) möglich. 


Tippen Sie das Programm mit dem MSE ab (bitte beachten 
Sie die Eingabehinweise auf Seite 159) und speichern Sie 
es. 

Geladen wird das Programm mit dem Befehl LOAD 
"DCS V1.1 ",8. Der Start erfolgt mit RUN. Auf dem Bild¬ 
schirm erscheint nun das Hauptmenü (Bild 1). Der kleine 
Pacman, der über den Bildschirm saust, wurde nur als klei¬ 
ner Gag einprogrammiert, hat aber ebensowenig Bedeu¬ 
tung wie das Flugzeug, das Sie aus dem Lautsprecher 
hören können. Es wird einfach durch Ringmodulation im 
SID erzeugt und ist nur eine Spielerei. 

Doch wenden wir uns nun ernsteren Dingen zu. Lassen 
Sie uns vorausschicken, daß diese Anleitung die wichtig¬ 
sten Grundkenntnisse der Booleschen Algebra voraus¬ 
setzt. DasWesentliche soll hier kurz zusammengefaBt wer¬ 
den; 


Digitales Gnindwissen 


ln der Elektronik unterscheidet man zwei Spannungspo¬ 
tentiale, »Strom da« und »Strom weg«. Den ersten Zustand 
bezeichnet man als »logisches Eins-Signal«, »HIGH« oder 
»1«, während der andere als »logisches Null-Signal«, 
»LOW« oder »0« bezeichnet wird. 

Eine Digitalschaltung hat eine bestimmte Anzahl von 
Eingängen, an denen jeweils entweder »1« oder »0« »anlie- 
gen« kann. Über diese Eingänge gelangt die Spannung 
nun in ein mehr oder weniger komplexes Netzwerk von 
»Gattern«, von denen es im wesentlichen vier verschiedene 
gibt: 

Ein »AND«-Gatter hat zwei Eingänge und einen Aus¬ 
gang, der nurdann »auf 1 liegt«,wenn alle beiden Eingänge 
ebenklls eins sind. Sonst ist der Ausgang Null. 

»OR«-Gatter (von »oder«) haben ebenfalls zwei Eingänge 
und einen Ausgang. Hier reicht es für eine »1« am Ausgang, 
wenn einer der beiden Eingänge »HIGH« ist. Es können 
aber auch beide sein. 


f: 
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Eine Mischung daraus stellt das »EXOR«- oder »EOR«- 
Gatter (exklusives ODER) dar: Der Ausgang liegt nur dann 
auf Eins, wenn an beiden Eingängen unterschiedliche 
Potentiale anliegen. Sind beide Eingänge auf 1 oder beide 
auf 0, liegt eine 0 am Ausgang an. 

Das letzte Gatter, der sogenannte »Puffer«, spielt in sei¬ 
ner »Grundversion« eigentlich keine große Rolle. Hier fin¬ 
den wir einen Ein- und einen Ausgang, Der Ausgang führt 
immer das gleiche Potential wie der Eingang, wie ein Stück 
Draht, dient aber oft zum Schutz empfindlicher Teile vor 
Überlastung. Denn besser ein Puffer für 50 Pfennig brennt 
durch, als ein Mikroprozessor für 50 Mark. 

Es gibt diese vier Bauteile aber auch in der negierten 
oder invertierten Version: Dabei verhält sich alles umge¬ 
kehrt. Diese invertierten Gatter verhalten sich also wie das 
normale Gatter mit einem nachgeschalteten Inverter: Das 
-NAND«-(Not-And)-Gatter erzeugt nur dann eine logische 
Null, wenn beide Eingänge Eins sind, das •NOR«-Gatter, 
wenn an einem von beiden Eins anliegt, und das »XNOR«- 
Gatter schließlich erzeugt eine logische Eins, wenn die Ein¬ 
gänge das gleiche Potential führen. Die invertierte Version 
des Puffers, der »Inverter«, wird relativ häufig gebraucht. 
Der Ausgang nimmt das umgekehrte Potential wie der Ein¬ 
gang an. 

Der Editor des »Digital Construction Set« 


Das »DOS« kann diese oben erklärten Gatter simulieren. 
Das Hauptmenü, das nach dem Start erscheint, umfaßt 
acht Punkte: 

<E> Editor: 

Nach Aufruf dieser Funktion starten Sie den Editor mit 
<F1 >. Befinden Sie sich im Editor, blinkt der Cursorrah¬ 
men. Mit einem Joystick in Port 2 wird er über den Bild¬ 
schirm gesteuert und wird dabei immer schneller, wenn Sie 
den Hebel konstant in eine Richtung drücken. 

Betätigen Sie den Feuerknopf, hinterläßt der Cursor 
einen Strich, dereine Leitung darsteilt. Bei Richtungsände¬ 
rung der Bewegung erzeugt das Programm automatisch 
die entsprechende Kurve. Dazu ein Hinweis: Bewegen Sie 
den Cursor, wenn Sie »abbiegen«, nicht zu schnell, da 
sonst die Auswertungsroutine nicht mehr mitkommt und 
die Ecke in die falsche Zeile oder Spalte setzt. Wichtig ist 
auch, daß Sie niemals schräg (im 45-Grad-Winkel) ziehen. 
Sie können nur waagerechte und senkrechte Linien zie¬ 
hen. Bewegen Sie den Cursor im rechten Winkel über eine 
bereits gezogene Linie, erzeugt das Programm an dieser 
Stelle eine Kreuzung. Später beim Test werden diese Kreu- 



Blld 2. Der Schaltplan der »Demokratie-Schaltung« 



Bild 3. Auch solch komplexe Schaltungen kann das DCS 
problemlos auf Ihre Funktion testen 


gen zu verwenden. In Schaltplänen werden solche Kreu¬ 
zungen üblicherweise mit einem dicken Punkt markiert. 

Mit der <F1>-Taste können Sie einen Hilfsbildschirm 
aufrufen, der alle wichtigen Funktionen des Editors erklärt. 

Beginnen wir mit der einfachsten Funktion: Mit <X> 
können Sie den Editor verlassen, und gelangen ins Haupt¬ 
menü zurück. 

Wenn Sie <M> drücken, fügen Sie an der aktuellen 
Cursorposition einen sogenannten »Marker« ein. Das ist, je 
nach der vorhergehenden Cursorbewegungsrichtung, ent¬ 
weder ein Schaltungseingang oder ein Ausgang. Wenn Sie 
vorher nach oben gegangen sind, erzeugt diese Funktion 
einen nach oben zeigenden Eingang, dargestellt durch 
einen kleinen Kreis. Neben diesem Kreis finden Sie jetzt 
auch ei.n Viereck, in dem dann später beim Test der Zustand 
dieses binganges angegeben wird. Waren Sie auf Links¬ 
kurs, bekommen Sie einen nach links zeigenden Eingang. 
Die beiden verbleibenden Richtungen, unten und rechts, 
erzeugen einen kleinen Pfeil in die entsprechende Rich¬ 
tung, der einen Ausgang symbolisiert. Auch hier finden Sie 
wieder das Kästchen, das beim Testen ausgefüllt wird. 

Rekursives Testverfahren 


Drücken Sie <V>, fügen Sie einen Verteiler ein. Mit die¬ 
sem ist es möglich, eine Leitung in zwei Adern aufzuspal¬ 
ten, die nach derTrennung nach oben und unten ragen und 
als eigenständige Leitungen angesehen werden können. 
Beim Testen behandelt das Programm solche Verteiler 
übrigens nach einer rekursiven Methode. Die Koordinaten 
der Verteiler kommen auf den Stack, dann wird der obere 
Weg »gefahren«, bis es hier einen Fehler gibt oder ein Aus¬ 
gang erscheint. Anschließend prüft das Programm, ob es 
auf dem Stack noch einen Verteiler zu bearbeiten gibt. 
Wenn ja, wird dessen unterer Ast noch verfolgt. Es ist natür¬ 
lich möglich, sehr viele dieser Verteiler zu verschachteln. 
Da die Koordinaten jedoch auf einem 256 Byte langen 
Stack gespeichert werden, ist es nicht ratsam, mehr als 
zirka 128 Verteiler hintereinanderzuhängen. Ein Absturz 
wäre die Folge. Um im Editor einen Verteiler zu setzen, 
müssen Sie vor dem Drücken der <V>-Taste den Cursor 
nach rechts bewegt habeni 

Durch Drücken derTasten <SHIFT> und <HOME> 
können Sie (nach einer Sicherheitsabfrage) die aktuelle 
Seite löschen. Im Speicher haben maximal neun Seiten 
Platz. Sie können im Editor zwischen den Seiten umschal¬ 
ten, indem Sie eine der Tasten <1 > bis <9> betätigen, 
je nach gewünschter Seite. Die der aktuellen Seitennum¬ 
mer wird am unteren Bildschirm angezeigt. 
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Der aktuelle Modus wird ebenfalls in dieser Zelle ange¬ 
zeigt, auf den Sie mit der <SHIFT LOCK>- oder 
<SHIFT>-Taste umschalten können. Erscheint hier die 
Meldung »DEL« (dies ist der Fall, wenn die SHIFT-Taste 
gedrückt Ist), wird aus dem Cursor nach Drücken des Feu¬ 
erknopfes ein Radiergummi, Sie können auf diese Weise 
bestehende Gatter und Leitungen löschen. 

Nun aber die wichtigste Funktion: Die Gatter. Mit den 
Tasten <A>, <0>, <E> und <P> können Sie AND, 
OR- und EXOR-Gatter sowie Puffer setzen. Dabei muß die 
Cursorbewegung vorher nach rechts gerichtet sein, und 
der Cursor sich an der gewünschten Position des oberen 
Einganges befinden. Paßt das Gatter nicht mehr auf den 
Schirm, weil es darüber hinausragen würde, passiert gar 
nichts. Drücken Sie eine der vier Tasten in Kombination mit 
<SHIFT>, wird das Gatter invertiert erzeugt (also NAND, 
NOR etc.). Dies erkennen Sie an dem kleinen Kreis hinter 
dem Schaltzeichen, 

Die Schaltzeichen-Symbole sind Kernpunkt des Pro¬ 
gramms. Sie seien deshalb kurz erwähnt (siehe Bild 2): 

Das AND-Gatter und der Puffer werden wie ein <D> 
gezeichnet; rechts befindet sich der Ausgang, links kom¬ 
men die Eingangssignale an. Das OR-Gatter sieht wie ein 
AND-Gatter aus, nur daß die linke Begrenzung, lieim AND- 
Gatter eine Senkrechte, etwas nach rechts »eingedellt-5ist 
und die Eingänge durchgezeichnet werden. Das EXOR- 
Gatter wiederum sieht wie ein OR-Gatter aus, die linke 
Begrenzung ist doppelt gezeichnet. 

Gründlich gefestet ist halb gewonnen! 


Die Funktion »Austesten« ist ähnlich umfangreich wie die 
Editor-Funktion. Rufen Sie diesen Menüpunkt mit <T> 
auf. Geben Sie als erstes an, welche der neun Seiten, die 
Sie im Editor bearbeiten können, getestet werden soll. 
Dazu bewegen Sie den kleinen Pfeil mit den Cursortasten 
auf die Nummer der gewünschten Seite und drücken 
< RETURN >. Die gewählte Seite wird nun eingeblendet. 
Durch Drücken einer Taste gelangen Sie ins »Testmenü«. 
Hier gibt es drei Möglichkeiten: 

Konfiguration eingeben <F1> 

Wenn Sie diese Funktion wählen, wird zunächst geprüft, 
ob Ihre Schaltung überhaupt Eingänge hat. Wenn nicht, 
erscheint in der untersten Zeile eine Fehlermeldung, und 
Sie können nach einem Tastendruck eine neue Seite wäh¬ 
len. Sonst verfärbt sich jetzt der erste Eingang weiß, 
genauer gesagt, das kleine Kästchen, das jeden Eingang 
»begleitet«. Sie können nun eingeben, welchen Zustand 
dieser Eingang beim Austesten haben soll (1 oder 0, durch 
Druck auf die entsprechende Zifferntaste). Gibt es mehrere 


Eingänge, können Sie mit < + > den nächsten Eingang 
anwählen, und dessen Zustand einstellen. Nach dem letz¬ 
ten Eingang wird die Marke wieder auf den ersten gesetzt. 
Beenden können Sie diesen Eingabemodus durch DrucK 
auf <RUN/STOP>. Wenn Sie einen Eingang bei der Ein¬ 
gabe »übersprungen« haben, ihm also kein Potential zuge¬ 
ordnet haben, wird der Wert dieses Einganges willkürlich 
ausgewählt. Während der Zufallsgenerator läuft, blinken 
zirke eine Sekunde lang am Eingang die Zahlen »0« und »1« 
in kurzen Abständen auf, um dann bei einem »erwürfelten« 
Wert stehenzubleiben. Auf diese Weise werden der Reihe 
nach alle Eingänge durchgegangen. Die Leitung, die von 
einem Eingang ausgeht, wird dem Potential entsprechend 
entweder weiß (1) oder schwarz (0) gefärbt (Bild 5). Kommt 
der »Strom« bei einem Gatter an, das nur einen Eingang hat 
(Puffer oder Inverter), wird das Potential »angepaßt«, und 
hinter dem Gatter geht es weiter. Kommt er dagegen bei 
einem Gatter mit zwei Eingängen an. dessen anderer Ein¬ 
gang noch nicht definiert ist. stoppt der Test hier, da eine 
Aussage noch nicht möglich ist. Der nächste Eingang wird 
behandelt. 

Erreicht der Strom einen Ausgang, stoppt der Test eben¬ 
falls, der Vollständigkeit halber wird aber noch angezeigt, 
welches Potential der Ausgang hat. 

Danach können Sie entscheiden, ob Sie noch einen Test 
mit derselben Seite durchführen wollen. Nebenbei 
bemerkt: Wenn es eine Unterbrechung in einer Leitung 
gibt, zum Beispiel eine Leitung einfach »in der Luft« aufhört, 
endet der Test. 

Der Härtetest 


Alles.d'"x;hprobieren <F3> 

Dies is( eine andere Testmöglichkeit. Auch hier wird wie¬ 
der geprüft, ob es Eingänge gibt. Aus programmtechni¬ 
schen Gründen ist es hier nicht möglich, mehr als acht Ein¬ 
gänge zu testen, Wenn es zu viele sind, erscheint eine Feh¬ 
lermeldung. Ansonsten wird nun die erste Kombination ein¬ 
gestelltfalle Eingänge auf Null). Mit der <W>-Taste stellen 
Sie die nächste Kombination ein, oder Sie brechen den Test 
mit <A> ab. 

Die letzte Funktion des Testmenüs (<F5>) dient zum 
Verlassen des Menüs. Sie gelangen dann wieder ins 
Hauptmenü. 


Adresse 

Funktion 

$8000 

Programmanfang. Erst ein JSfl-Befehl In die 
Löschroutine, dann ein JMP nach $8FE3 (s.u.) 

$8006 

Beginn von Tabellen und Texten 

$8173 

Filenamenvorspann »DCS/« 

$8695 

Beginn Maschinencode (hier; INIT Routine) 

$89FC 

Text ab (A/Y> entschlüsseln und ausgeben 

$8A70 

neue IRQ Routine 

$8C7B 

Editor 

$8FE3 

Hauptprogramm (Menü) 

$9282 

Zufallsgenerator 

$9449 

Austestroutine 

$9674 

Filemenü 

$97DF 

Hardcopy Routine (MPS 801), druckt Grafik ab 
$2000 aus und endet mit LDA #148; VIC-Bank- 
LDY # 27;HIRES aus, JSR $89B4; 

VIC setzen. JMP $9674, Fifemenü 

$98F7 

letztes Byte des Programmes (hier: RTS) 

$A00O 

9 KByte Bildschirmspeicher (Seiten 1 bis 9) 

$C400 

aildschirmspeicher 

$CF0O 

Puffer 


Tabelle t. Wichtige Spelcherstellen des OCS 
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Ende <X> 

Die dritte Funktion des Hauptmenüs dient zum Verlassen 
des Programmes und wird mit <X> aufgerufen. Dabei 
wird der C64 wieder in seine Standardkonfiguration ver¬ 
setzt (Zeichensatz, VIC Bank, Sound etc.). Zum Neustart 
dient der Befehl 
SYS 32768 

Wenn Sie das Basic-Ladeprogramm noch nicht gelöscht 
und noch keine Grafik ausgedruckt haben, können Sie 
auch mit RUN das Programm neu starten. Die neun Seiten 
im Speicher werden jedoch gelöscht. Um das zu vermei¬ 
den, überspringt man einfach den Löschbefehi: 

SYS 32771 

wie es auf dem Bildschirm angeboten wird. 

Wenn Sie das Programm vom Hauptmenü aus neu star¬ 
ten, müssen Sie die <N>-Taste drücken und die Sicher¬ 
heitsabfrage mit »J« beantworten. Das wirkt dann wie 
SYS 32768. 

Die Floppy-Station im Griff 


Directory <D> 

Vom Hauptmenü aus können Sie das Directory der ein¬ 
gelegten Diskette anzeigen, dazu rufen Sie die Directory¬ 
funktion <D> auf. Danach ist eine Taste zu drücken. 



Bild S. Eine Schaltung Im Testmodus. Deutlich sind die 
logischen Zustände anhand der Farben zu erkennen 


Diskettenbefehl <K> 

Eine weitere Funktion mit dem Namen »Kommando« 
dient dazu, einen Diskettenbefehi zu senden, etwa um ein 
Fiiezu löschen oder umzubenennen, oder um Disketten zu 
formatieren. Geben Sie den Disketten-Befehl ein und 
drücken RETURN, Nach Ausführung des Kommandos wird 
der Fehlerkanal ausgelesen und angezeigt. Um nur den 
Fehlerkanal anzusehen, geben Sie kein Kommando ein, 
sondern drücken nur < RETURN>. Nachdem der Fehler¬ 
kanal angezeigt wurde, müssen Sie wieder eine Taste 
drücken. 

Geschwindigkeit <G> 

Die »Fließgeschwindigkeit« des Stroms im Test kann 
durch die Funktion »Geschwindigkeit« ebenfalls verändert 
werden. Mit den Cursor-Tasten können Sie die Länge eines 
Balkens in 64 Schritten verändern. Hat er seine volle Länge 
erreicht, ist die Geschwindigkeit maximal. Den Ablauf in 
der Testfunktion können Sie dann nicht mehr mit dem Auge 
verfolgen. 

File <F> 

Die letzte Funktion im Hauptmenü bietet die Möglichkeit, 
Bilder auf Disk zu speichern, zu laden und auszudrucken. 
Sie sehen nach Anwahl dieser Funktion ein Menü vor sich. 

lüiyai* 


Mit < F1 > können Sie ein gespeichertes Bild laden. Dazu 
geben Sie zunächst ein, in welche Seite geladen werden 
soll. Die gewünschte Seite wird zur Kontrolle angezeigt und 
eine Sicherheitsabfrage erfolgt. Es ist nicht nötig, ein Bild 
in die Seite zu laden, aus der es gespeichert wurde. Nun 
müssen Sie den Filenamen eingeben. Die Kennung 
»DCS/«, durch die alle Schaltungen gekennzeichnet sind, 
wird automatisch ergänzt. Die Eingabe wird mit 

< RETURN > beendet und das Bild wird geladen. Ohne 
Verwendung eines Schneiladers nimmt der Ladevorgang 
knapp vier Sekunden in Anspruch. 

Ähnlich wird die SAVE-Funktion bedient. Auch hier kön¬ 
nen Sie zunächst die Seite wählen, die gespeichert werden 
soll. Nach Eingabe des Namens wirddas Bild als vier Block 
langes File auf Diskette gespeichert. 

Wenn Sie im File-Menü die <F6>-Taste betätigen, kön¬ 
nen Sie ein Bild im Speicher außdrucken. Dazu wählen Sie 
wieder die Seite und bestätigen ihre Eingabe mit 

< RETURN >. Die Seite wird dann in eine hochauflösende 
Grafik umgerechnet und anschließend ausgedruckt. Die 
Druckroutine ist für Commodore MPS 801- oder 
803-Drucker und Kompatible geeignet. Da sie aber als 
letzte im Programm steht, können eigene Routinen ange¬ 
hängt werden. Mit < —> kehren Sie ins Hauptmenü 
zurück. 

Alle Funktionen des DCS sind nun erklärt. Keine Angst 
vor Fehlbedienungen. Das Programm ist so programmiert, 
daß es nicht zum Absturz gebracht werden kann. 

Darf's ein bißchen mehr sein? 


Für Programmierer einige Anregungen, wie man das Pro¬ 
gramm noch erweitern kann: Denkbar wäre eine Funktion, 
die ailtc.Matisch die Wahrheitstabelle oder das Pegeldia¬ 
gramm einer Schaltung ausdruckt. Inder vorliegenden Ver¬ 
sion ist es auch nur möglich, Schaltungen so auszu¬ 
drucken, wie sie im Editor erstellt wurden, also ohne die 
Farben, die beim Testen eingetragen werden. Für Besitzer 
von Farbdruckern wäre eine Option, die das erlaubt, sicher 
interessant. 

In Tabelle 1 finden Sie eine Aufschlüsselung wichtiger 
Adressen und Routinen von »DCS 1.1«. Vor dem Start mit 
RUN sind diese Adressen noch nicht gültig, da eine kleine 
Routine zu Beginn das Maschinenprogramm erst nach 
$8000 kopieren muß. Anhand dieser Tabelle können Sie 
das Programm auch an andere Drucker anpassen. 

Die Prabeousdrucke 


Die Bilder 2 bis 4zeigen, was DCS alles ermöglicht. Geben 
Sie einmal die Schaltung in Bild 2 ein. Es handelt sich um 
ein schaltbares Gatter; Wenn der nach oben zeigende 
Eingang auf null liegt, werden die beiden anderen Ein¬ 
gänge logisch UND-verknüpft; wenn der Steuereingang 
auf eins liegt, werden die Eingänge ODER verknüpft. Man 
könnte die Schaltung auch als »Demokratie-Gatter« 
bezeichnen, denn der obere Ausgang nimmt den Zustand 
der Mehrzahl der drei Eingänge an. 

Die Schaltung in Bild 3 zeigt, daß auch komplexere 
Schaltungen aufgebaut werden können. Die Grenze des 
Machbaren ist hier aber noch lange nicht erreicht, zumal 
große Schaltungen in kleinere Einheiten zerlegt werden 
können. In Bild 4 wird der Zeichenvorrat des DCS darge¬ 
stellt. 

Wir wünschen allen Hobby-Elektronikern viel Spaß mit 
dem Programm! 

(Nikolaus Heusler/ad) 
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lf29 t Gl ad 3c Bl c9 IB 90 da 15 
lf31 t 4c 56 96 cG 2c eO 2B bl 33 
lf39 I dl c9 76 fO 00 c9 31 fO 20 
lf41 I 04 c9 30 dO d2 ad 3b 81 da 
lf49 I Bd 4f 01 ad 3c 01 ad SO 3a 
IfSl t ai 20 Gc 91 ad 4f Gl Gd aa 
lf59 I 3b 01 ad 50 01 Bd 3c 01 43 

lf61 I 4c Oa 96 ad 4d Bl dO 18 62 

lf69 I a9 02 aO 07 20 fc 09 20 7d 
lf71 > 5a 90 bO 03 4e 49 94 ad Sd 
lf79 I 4b 01 20 6a Bb 4c 94 94 fl 
IfGl I 60 20 fa 89 a9 a3 aO 87 aa 
lfG9 I 20 ac 09 20 a4 ff fO fb 70 
lf91 I a2 03 dd 5f 62 fO OS ca 71 
lf99 I 10 fB 30 af 8a Oa aa bd 4e 
Ifal I 63 B2 Bd 9f 96 bd 64 02 aa 
lfa9 I ad aO 96 4c 00 00 20 c6. c4 
Ifbl s Bb c9 09 bO ec 20 6 b 6 b 16 
lfb9 ■ a9 27 aO BB 20 ac 89 20 fd 
Ifcl I 5s 90 90 aa 20 09 97 bO Bf 
lfc9 I b0 ad 4b 81 20 6a ab a2 44 
ifdl I cO aO C7 a9 00 G5 02 a9 90 
lfd9 I c4 65 03 a9 02 20 d0 ff da 
Ifat I 4c 74 96 20 c6 Bb c9 09 13 

lfa9 I bO 97 20 6 b Bb a9 56 aO db 
Iffl s 00 20 ac 09 20 Sa 90 90 la 
lff9 s aa 20 09 97 bO 83 ad 4b 9d 
2001 I 01 20 6s Bb a2 00 aO c4 d6 
2009 ■ a9 00 20 dS ff ad 4b Bl 13 
2011 I 20 ab 0b 4c 74 96 20 fS b 2 
2019 > B9 a9 40 aO 60 20 fc 09 2 b 
2021 I a9 02 BS c6 a9 22 Bd 77 d6 
2029 1 02 a9 14 0d 76 02 a2 00 d9 
2031 I 20 cf ff c9 Od fO 08 9d 26 
2039 ■ 77 61 sB eO Oc 90 f1 eO 96 
2041 1 00 dO 01 60 8a 10 69 04 Od 
2049 « a2 73 aO 01 20 bd ff a2 32 
2051 I OB aO 01 IB 4c ba ff 20 c8 
2059 s c6 ab c9 09 90 03 4c 74 b4 
2061 : 96 20 6e Sb a9 76 aO BB f6 
2069 I 20 ac 89 20 5a 90 90 b 7 B2 
2071 i a2 10 20 ff b 9 a9 97 a2 b7 
2079 I 3b 20 b4 09 a9 c6 aO 00 76 

20B1 I 84 02 a2 04 66 03 91 02 fa 
2009 : 00 dO fb e6 03 ca dO f6 Od 
2091 : a9 OO 05 02 05 f7 a9 c4 24 
2099 t 05 fa a9 20 05 03 78 a9 aa 
20al s 30 85 01 a9 00 05 04 a9 99 
20a9 I eO BS 05 aO 00 bl f7 aa 64 
20bl : fO 10 aS 04 10 69 08 65 Bb 
20b9 I 04 a5 05 69 00 65 05 ca d4 
20cl > dO fO aO 07 bl 04 91 02 9B 
20c9 I 00 10 f9 a5 02 IB 69 OB 23 
ZOdl s BS 02 a5 03 69 00 BS 03 d4 

20d9 I e6 f7 dO OB e6 fa a5 fB af 

20el t c9 cB bO 03 4c 96 97 a9 c6 

20b9 1 37 65 01 SB a9 00 20 bd c5 

20fl I ff a9 04 aa cB 20 ba ff 94 

20f9 I 20 cO ff a2 04 20 c9 ff 36 

2101 I a9 ff Bd Sa Bl a9 07 Bd fS 

2109 I SB 81 a9 Ic Sd Sb 81 a9 Id 

2111 I 00 Bd 51 01 a9 20 Bd 5c 27 

2119 t 01 a2 04 bd 3c 02 20 d2 a2 

2121 > ff ca 10 f7 a9 00 Bd Sd 14 

2129 ) Bl Bd Sa 01 ad 51 01 0d bf 

2131 I 5f 01 a9 00 6d 59 01 ad cO 

2139 I Sd Bl aa Sa 01 ac Sf 01 cc 

2141 t 20 b9 90 aO 00 bl 02 aa bb 

2149 a S9 Bl 9d 00 cf aa 5f 61 bf 

21S1 I aB Ba 59 81 sc SB Bl dO 40 

21S9 I da a9 00 aO 07 aa SS Bl 6a 

2161 I la 00 cf 2a ca 10 f9 2d 28 

2169 I Sa Gl 09 BO 20 d2 ff SB BO 

2171 I 10 Sb ad Sd Gl 10 69 Oa Ic 

2179 I ad Sd 01 90 03 aa 5a Bl 4b 

21B1 I ca 5c ei dO a7 20 d7 aa 2B 

2189 i ad 81 Bl 10 69 07 Bd 51 aa 

2191 a ei ca 5b 61 fO 03 4c 07 s7 

2199 a 98 a9 04 cd 58 81 fO Of 34 

21al a Bd 58 Bl a9 01 Bd 5b 81 dd 

21a9 a a9 Of Sd Sa Bl dO s7 a9 la 

21bt a Of 20 d2 ff 20 cc ff a9 41 

21b9 a 04 20 c3 ff a9 94 a2 Ib ba 

21cl a 20 b4 09 4c 74 96 Bd 61 Ic 

21c9 I ai Ba 62 ei 9S 4a 4a 4a f4 

21dl I aa bd 41 82 85 03 Ba 29 a7 

21d9 a 03 aa bd Sb 82 85 02 9B 9a 

21al I 29 07 IB 65 02 83 02 ad fO 

21b 9 a 61 01 29 fB 0d 60 81 a9 a9 

21fl a 20 OS 03 BS 03 IB aS 02 91 

21f9 a 6d 60 Bl BS 02 aS 03 6d de 

2201 B 62 01 as 03 60 ff 00 ff ac 


LIsting 1. (Schluß) 
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Der C64 als Thermometer 


Temperaturerfassung mit dem C64 - kein Pro¬ 
blem! Der Hardware-Aufwand für dieses Pro¬ 
gramm ist gering bei universellen Einsatzmög¬ 
lichkeiten. Mit zirka 10 Mark und etwas Zeit sind 
Sie dabei. 

D ie Erfassung der physikalischen Größe Temperatur ist 
in der Meß- und Regeltechnik von besonderer Bedeu¬ 
tung. Sie ist die Voraussetzung zum Aufbau von 
Temperaturreglern und sonstigen Regelkreisen. 


Tabelle 1. 
Stückliste für 
die einfache 
Schaltung 

Trotz einfachem Konzept bietet die hier vorgestellte Tem¬ 
peraturmessung erstaunlich viel: je nach Ausführung ein- 
bis vierfache Messung, einen Meßbereich von -8 bis -f40 
Grad Celsius (bei einem 47 kfi-Fühier), eine Meßgenauig- 
keitvon ± 5% und digitaie Meßwertanzeige mit einer Nach- 
kommasteiie. Außerdem haben Sie natürlich die Mögiich- 
keit, durch Einsatz anderer Temperaturfühler den Meß¬ 
bereich den eigenen Bedürfnissen anpassen zu können. 
Trotzdem kommen Sie mit einem Minimum an Material aus 
(Tabelle 1). 

Speziell mit einem Computer wie dem C64, der mH 
Schnittstellen reich gesegnet ist, solite es an sich sehr ein¬ 
fach sein, eine Temperaturmessung durchzuführen. Dazu 
kommt noch, daß der C64 bereits über zwei eingebaute 
Analog/Digitai-Wandler verfügt, die im 6581 Sound Inter¬ 
face Device (SID) integriert sind und mit den beiden 
Control-Ports (Joystick-Anschlüssen) in Verbindung ste¬ 
hen, Theoretisch brauchen Sie jetzt nur einen temperatur- 
abhängigen Widerstand, zum Beispiel einen NTC, an die 
Kontakte 5 und 9 des Control-Ports 1 oder 2 anzuklemmen, 
den Inhalt der entsprechenden Speicherstellen des A/D- 
Wandlers abzufragen und in Grad Celsius umzurechnen. 
Bei der praktischen Erprobung dieser Methode zeigt sich 
jedoch, daß es nicht ganz so einfach funktioniert: Wenn ein 


RI - R4 4 Poti 

25 ktl 

R5 • ns 4 NTC 

47 kfl 

Sonstiges: 2 Control-Port.Buchsenstecker 



Bild 1. Aufbau der Schaltung zum Anschluß an die Control- 
Ports des C64 (für vier Meßfühler) 


Meßfühler angeschlossen wird, muß zunächst die Genau¬ 
igkeit übereinen größeren Temperaturbereich getestet wer¬ 
den. Ein NTC ändert seinen Widerstand mit der Temperatur 
(je größer die Temperatur, um so kleiner der Widerstand). 
Wird dieser NTC an den A/D-Wandler des C 64 angeschlos¬ 
sen, so steht in der Speicherstelle 54297 ein sich mit der 
Temperatur ändernder Wert zwischen 0 und 255. Um zu 
messen, benötigen Sie mindestens zwei bekannte und 
leicht »erzeugbare« Temperaturen. Als »niedrige« Tempera¬ 
tur eignet sich Eiswasser: Ein Gemisch aus Wasser und 
Eiswürfeln hat bis zum vollständigen Schmelzen des Eises 
eine Temperatur von exakt 0 Grad Celsius. Als »hohe« Tem¬ 
peratur eignet sich die Körperwärme des Menschen, wel¬ 
che im Normalfall bei etwa 37 Grad Celsius liegt. Zunächst 
wird der NTC in Eiswasser getaucht und der Inhalt von 
Speicherstelle 54297 notiert; nach anschließender Erwär¬ 
mung des NTCs in der Achselbeuge die gleiche Prozedur. 
Ergebnis: Bei 0 Grad Celsius liefert der Wandler den Wert 



Bild 2. Die Meßfühler (NTCs In ausgegossener Kupferhülse) 


141, bei 37 Grad Celsius 28. Die Änderung errechnet sich 
demnach wie folgt: (141-28)/37= 3.05, Pro Grad Celsius 
ändert sich der Wert des Wandlers um 3.05 dezimal. 
Bei einer mit einem herkömmlichen Thermometer gemes¬ 
senen Raumtemperatur von 20 Grad Celsius liefert der 
Wandler den Wert 71. Dies bedeutet einen Meßfehler von 
16,5%, denn 71/3.05=23.3. Eine Temperaturmessung mit 
einem solch hohen Meßfehler ist aber in der Praxis 
unbrauchbar. Die Auswertung einer Meßreihe zeigt, daß 
zum einen der NTC nicht linear ist, zum anderen aber auch 
der A/D-Wandler im C64 nicht linear arbeitet. Genau hier 
können wir nun ansetzen, um das Problem zu lösen. Wir 
verfügen ja über einen Computer, und können somit soft¬ 
wareseitig sowohl die Unlinearität des NTCs als auch die 
des Wandlers ausgleichen; es muß lediglich eine Formel 
zur Berechnung beider Kennlinien (NTC und Wandler) 
bestimmt werden. Zur Bestimmung der Temperatur müs¬ 
sen die eintreffenden Meßwerte dann nur noch mit der ent¬ 
sprechenden Funktionsgleichung berechnet werden. 
Diese Arbeit nimmt Ihnen das Programm »TEMP 4« (Listing 
1) ab, vorausgesetzt, Sie verwenden einen 47 kfi-NTC. 
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C64 


Damit kann eine Meßgenauigkeit von ± 5% erreicht wer 
den, was für die meisten Anwendungen genügt. 

Offenes Konzept, einfacher Aufbau 


Die Hardware kann leicht auf einer Lochrasterplatine in 
Fädeltechnik aufgebaut werden. Diese Technik bietet den 
Vorteii, daß eigene Versuche ohne weiteres nachträglich 
hinzugefügt werden können. Beabsichtigen Sie, dieses 
Meßsystem noch weiter auszubauen, so empfiehlt es sich, 
beim Anlöten der beiden neunpoligen Buchsenstecker 
sämtliche Anschlüsse des Ports herauszuführen. Die Ver¬ 
drahtung entnehmen Sie bitte Bild 1. Die NTC-Meßfühler 
sollten zur Vermeidung von Kurzschlüssen eingegossen 
werden (Bild 2). Theoretisch besteht übrigens die Möglich¬ 
keit, auf die Platine ganz zu verzichten und die Meßfühler 
direkt am Control-Port Ihres C64 anzuschließen. Je nach 
Anwendung bleibt es Ihnen natürlich überlassen, bei¬ 
spielsweise nur einen Temperaturfühler statt vier anzu¬ 
schließen. Damitverringertsichderohnehin schon geringe 
Hardware-Aufwand abermals. Die Software ist der Hard- 


Folgende Meßreihe wurde aufgenommen: 


AX/BX 

AY/BY 

^MeBS.|kn| 

20 

19,95 

10 

50,5 

54,4 

50 

95,2 

92,0 

100 

132 

126,8 

150 

166 

159 

200 

200 

190 

250 

231 

221 

300 

250 

240 

332 


Tabelle 2. Beispiel einer MeBreihe. Deutlich sind die Unter¬ 
schiede der beiden Wandler sichtbar, bedingt durch Bau- 
telltoleranzen, Kabelwiderstände und so weiter 


Conlrf>i-Bnrl 1 f 

-1 1 n+su 

R.~10k0 

^Mfss“ ^0-332 kn 


Bild 3. Elchschaltung für den Control-Port des C 64 


wäre entsprechend konzipiert, auch hier kann durch den 
modularen Programmaufbau ohne Schwierigkeiten nach 
Herzenslust ausgebaut werden. 

Das Meßprogramm 


»TEMP4« (Listing 1) übernimmt die Umrechnung der vom 
Wandler gelieferten Werte und die Anzeige des Endergeb¬ 
nisses auf dem Bildschirm. Geben Sie das Listing mit dem 
Checksummer ein und speichern Sie es auf einem Daten¬ 
träger. Nach dem Start mit RUN wird aus den DATA-Zeilen 
zunächst ein Maschinenprogramm generiert und im Kas¬ 
settenpuffer abgelegt. Damit können die Wandler ausgele¬ 
sen werden. Haben Sie alles richtig eingegeben, so müß¬ 
ten jetzt in der ersten Bildschirmzeile die vier Werte 

-8.2 -9.6 -8.2 -9.6 

erscheinen, sofern Sie die Control-Ports noch nicht belegt 
haben. Das Unterprogramm »A/D-Wandler lesen« (Zeile 
100-190) ermittelt den Durchschnitt von jeweils zehn Ab¬ 


fragen. Dadurch wird der Meßwert »stabiler«. Das Unterpro¬ 
gramm »Funktionswert berechnen« (Zeile 200-290} ermit¬ 
telt mit Hilfe der Funktionsgleichung den Ohmschen Wert 
des angelegten Meßwiderstandes in kn. Die Multiplikation 
mit dem Korrekturfaktor 0.707 ist bei NTC-Widerständen 
notwendig. Das Unterprogramm »Temperatur berechnen« 
(Zeile 300-390) ermittelt aus dem Widerstand der NTCs die 
Temperatur in Grad Celsius. »Ausgabe-Bildschirm« (Zeile 
400-490) übernimmt schließlich die Ausgabe der Tempera¬ 
tur in der ersten Biidschirmzeile. 


Es darf gemessen werden 


Wenn Sie die Schaltung entsprechend Bild 1 aufgebaut ha¬ 
ben. schalten Sie bitte Ihren C64 und daran angeschlos¬ 
sene Peripheriegeräte ab, ehe Sie die Verbindung mit den 
Control-Ports herstellen. Schließen Sie die vierTemperatur- 
meßfühler AX, AY, BX und BY an der Platine an. Nachdem 
Sie nun Ihr Computersystem wieder eingeschaltet haben, 
brauchen Sie nur noch das Programm TEMP4 zu laden. 
Nach RUN werden die vier gemessenen Temperaturen in 
der ersten Bildschirmzeile in der Reihenfolge AX, AY, BX, 
BY angezeigt. Mit den Potis können Sie kleinere Ungenau¬ 
igkeiten ausgleichen. Auch hierfür eignet sich Eiswasser 
sehr gut. Sollte ein Wert eine ungewöhnlich hohe Abwei¬ 
chung aufweisen, ist höchstwahrscheinlich der entspre¬ 
chende NTC nicht in Ordnung. Dies können Sie leicht über¬ 
prüfen, indem Sie ihn gegen einen der anderen NTCs aus- 
tauschen. 

Ihr C64 und die von Ihnen verwendeten NTCs werden ver¬ 
mutlich andere Toleranzen und Kennlinien aufweisen, als 
dievonunsverwendeten Exemplare. Wenn Ihnen daher die 
hier voröestellte Lösung zu ungenau erscheint, um damit 
zu messen, möchten wir Ihnen die Möglichkeit bieten, das 
Programm an beide Komponenten (also an die A/D- 
Wandler Ihres Computers und an die NTCs) anzupassen. 

Anpassung für Profis 


Zu diesem Zweck müssen Sie aber ein wenig tiefer in die 
mathematischen Grundlagen einsteigen. Beschäftigen wir 
uns zunächst einmal mit den A/D-Wandlern. Das Prinzip 
der Wandlung besteht darin, daß die Ladezeit eines an den 
Pins 23 und 24 am SID angeschlossenen Kondensators 
gemessen wird. Vor jeder Messung wird der Kondensator 
durch Schalten gegen Masse entladen, der maximale Ein¬ 
gangsstrom beträgt laut Datenblatt 500 fxA. Das Ergebnis 
dieser Ladezeitmessung wird als 8-Bit-Wert (0-255) alle 512 
Takte in den Adressen $D419 (Dezimal 54297) für POTX 
und $D41 A (Dezimal 54298) für POTY bereitgestellt. Damit 
verfügen Sie über die Möglichkeit, durch Abfrage der ent¬ 
sprechenden Speicherzellen den analogen Wert an den 
Anschlüssen POTX und POTY zu verarbeiten. Wenn Sie 
die Ladekurve des Kondensators betrachten, werden Sie 
jedoch sehr rasch feststellen, daß diese alles andere als 
linear verläuft. Dieses Problem kann jedoch softwareseitig 
sehr elegant gelöst werden, indem die Funktionsgleichung 
des Wandlers berechnet wird. Dazu beschälten Sie den 
Control-Port wie in Bild 3. Beachten Sie bitte: Zum Schutz 
der Eingänge des SID sollte bei einer Beschaltung von R 
mit +5 Volt ein Vorwiderstand von etwa 10 kn eingesetzt 
werden. Rv wird bei Rmbss = 0 n so eingestellt, daß der 
8-Bit-Wert 10 angezeigt wird. Dadurch ergeben sich zwei 
Vorteile: Erstens ein Vorwiderstand gegen zu hohen Ein¬ 
gangsstrom, zweitens der Abgleich des Wandlers auf 
gleichen Anfangswert. Nun nehmen Sie eine Meßreihe wie 
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in Tabelle 2 auf. Die Unterschiede ergeben sich durch Bau¬ 
teiltoleranzen der beiden Ladekondensatoren, Sie berech¬ 
nen aus diesem Grund für jeden A/O-Wandler eine eigene 
Funktionsgleichung. Ermitteln können Sie diese Funktion 
nach der Methode der kleinsten Fehlerquadrate (Quadrati¬ 
sche Regression). Folgendes Gleichungssystem muß 
gelöst werden: 

1. E (y ■ x2) - aE (x“) - bE (xS) - cE (x^) * 0 

2. E (y ■ x) - aE (x^) - bE (x^) - cE (x) = 0 

3. E (y) - aE {x2) - bE (X) - n • c =0 


Hierbei gilt folgende Zuordnung: X ist der Meßwert des 
A/D-Wandlers. Y der berechnete Meßwert Rmgss' ist 
empfehlenswert, sich eine Tabelle anzufertigen. Für die 
weitere Berechnung benötigen Sie die Summe der jeweili¬ 
gen Wertespalte. Wenn Sie nun diese Summen in das Glei¬ 
chungssystem einsetzen, können Sie nach a, b und c auflö- 
sen. Ein Berechnungsbeispiel mit erstellter Tabelle und 
Lösungsweg sehen Sie in Bild 4, die dort eingesetzten 
Werte entsprechen denen desC64, auf dem die Tempera¬ 
turmessung entwickelt wurde. Das ermittelte Endergebnis 


Die Berechnung von AX / BX: 



x 

Y 

X’ 

X’ 

X‘ 

X Y 

X’ Y 

0,2 

0,1 

0,04 

8-10 = 

1,6‘10-=’ 

0,02 

4.10-® 

0,55 

0,5 

0,30 

0,166 

0,0915 

0,275 

0,15 

0,95 

1.0 

0,90 

0,857 

0,8145 

0,95 

0,9 

1,32 

1,5 

1.74 

2,299 

3,036 

1,98 

2.61 

1,66 

2.0 

2.75 

4,574 

7,5933 

3.32 

5,5 - 

2,00 

2,5 

4,00 

8,000 

16,000 

5,00 

10,0 

2,31 

3,0 

5,33 

12,34 

28,473 

6,93 

15,99 

2,50 

3,3 

6,25 

15,63 

39,0625 

8,25 

20,625 

11,49 

13,9 

21,33 

43,86 

95,0724 

26,725 

55,779 


1 

II 

III 

5S,B-9S,1a-43,9b-21,3o = 0 
26,7 - 43,9a - 21,3b -11,5c = 0 
13.9-21.3a-11,5b-8c - 0 


1 

95,1a + 43,9b + 21.3c ° 55,8 


II 

43.9a + 21,3b + 11,5c - 26,7 

1 *(-2,16) 

III 

21,3a + 11,5b + 8c = 13,9 

I '(-4,46) 

II 

-95,1a-46,1b-24.9c - -57,6 


l + ll 

0 - 2 , 2 b • 3.6c • -2.0 


III 

•95,1a-51,3b-35.7c - -62 


l + lll 

0.7,4b-14,40 - -6,2 


(l + ll) 

2,2b + 3,6c - 2.0 

1 '(-3,36) 

(Ulli) 

7,4b + 14,4c - 6,2 


(l + ll) 

•7,4b-12.1c - -6.7 


(l + ll) + (l + lll); 

2,3c - -0,5 
c - -0,217 


(l + ll) 

2,2b-0,78 - 2,0 

2,2b - 2,78 
b - 1,263 


III 

21,3a + 14,53- 1,736 = 13.9 
a - 0,052 


Y = 0,052X‘' + 1,263X-0,217 






Bild 4. Beispiel für die Berechnung der Funktionsgieichung 
eines A/D-Wandlers wie im C64 


findet sich logischerweise in unserem Programm (Listing 1) 
wieder, in diesem Fall für AX/BX in den Zeilen 231 und 241. 
Die entsprechenden Werte für AY/BY müssen in den Zeilen 
251 und 261 eingetragen beziehungsweise abgeändert 
werden. 

Wenn der mit einem 47-kf2-NTC zur Verfügung stehende 
Meßbereich für Ihre Zwecke nicht ausreicht, so können Sie 
natürlich einen anderen NTC Ihrer Wahl einsetzen. NTC- 
Widerstände haben einen nicht-linearen Kennlinienver¬ 
lauf. Eine Beschreibung dieser Kennlinie wird durch den 
»B-Wert« vom Hersteller angegeben. Es ist jedoch im Sinne 
einer möglichst exakten Messung nicht zu empfehlen, die 
Angaben des Herstellers zur Grundlage der weiteren 
Berechnung zu machen, da in der Praxis Toleranzen von 10 
bis 20% nichts Ungewöhnliches sind. Diese Toleranzen 
würden als Meßfehler direkt in die Berechnung eingehen. 

NTC nach Belieben 


Aus diesem Grund soll hier kurz anhand eines Beispiels 
gezeigt werden, wie Sie sowohl den »B-Wert« als auch die 
Bauformkonstante «A« selbst ermitteln können. Für die 
Messung wird ein Ohmmeter zur Bestimmung des elektri¬ 
schen Widerstands benötigt. Die Anschlüsse des NTC 
müssen Isoliert sein. Für unseren Beispielversuch wurde 
ein NTC der Serie K-164 / P = 750 mW mit einem Durch¬ 
messer von 5 mm verwendet (Preis etwa 
1,10 Mark). Zunächst wird der Widerstand im unteren Tem¬ 
peraturbereich gemessen (Eiswasser, 0 Grad Celsius). 
Gemessen wurden 152 kn. Nach etwa 10 Minuten Erwär¬ 
mung in der Achselbeuge (37 Grad Celsius) wurden 27,5 kn 
gemessen. Diese Werte werden jetzt in die Formel zur 
Bestin^rniing des »B-Wertes« eingesetzt: 



»A« läßt sich folgendermaßen berechnen: 


152 • 10^kn 
3906 
273 K 


92,9 -lo-^n 


Die Temperatur in Grad Celsius eines beliebigen Wider¬ 
standes unseres NTCs kann jetzt mit folgender Formel 
berechnet werden: 



Auch diese Formel findet sich in unserem Programm wie¬ 
der, allerdings in Basic-Schreibweise: Zeile 330, 340, 350 
und 360. 

Wenn Sie sich die Mühe machen und sowohl die Kennli¬ 
nien der Wandler Ihres Computers als auch die der NTCs 
in Funktionen packen und das Programm entsprechend 
modifizieren, so erhalten Sie eine Temperaturmessung, 
wie sie mit dem C64 ohne unverhältnismäßigen Hardware- 
Aufwand wohl kaum besser und genauer zu realisieren ist. 

(Walter Elbe/ad/pd) 
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1 REM •***#**** TEMP4 *******•«*#*•**** 

2 REM WRITTEN BY M.EL8E 

3 REM ••«*•*«**«**••««•«**»«***»««••«*• 

10 REM - 

20 REM HAUPTPROBRAMM 

30 REM 


35 BOBUB 30000 i REM MASCHINEM-PROB. 

40 QOeUB 100 : REM A/Q-WANDLER LESEN 
50 SDSUB 200 ! REM FUNKTIONSW. BERECHN. 
60 BOaUB 300 s REM TEMPERATUR BERECHN. 
70 BOBUB 400 i REM AUSGABE BILDSCHIRM 
SO QOTQ 40 

100 REM - 

110 REM A/O-WANDLER LEBEN 

120 REM 

122 AX>OsAY'>0iBX«0iBV=0 


125 

130 

140 

142 

144 

146 

150 

160 

162 

164 

166 

190 

200 

210 

220 

230 

23! 

232 

233 

240 

241 

242 

243 

250 

251 

252 

253 
260 
261 
262 
263 
290 
300 
310 
320 


FDR 

1 

I 


NEXT ! 


TO 10 
SYS es0 

AX-AX+PEEK(028) 

AY=AY+PEEK<B29) 

BX>BX+PEEK(e30> 

BV=BY+PEEK(S31> 


I AX=INT(AX/I0) 

I AY=INT(AY/1B) 

; BX«INT(BX/10) 

ü BY=INT(BY/10) 

RETURN 

REM- 

REM FUNKTIONSWERT BERECHNEN 
REM 

>AX=AX/ie0 

s AX=0.052*AXt2+l.263*AX-0.217 
lAX=AX*100 
sAX=AX*0.707 
! BX=BX/'100 

s BX=0.052*BXt2+1.263*BX-0.217 
: BX=BX»10O 

1 BX=BX*0.707 

- AY=AY/!00 

: AY=0.1751*AYT2+0.99*AY-0.06 

; AY=AY*100 

. AY=AY*0.707 

: BY=BY/100 

: BY=0.17S1*BYT2+0.99»BY-B.06 

1 BY=BY*100 

! BY=BY*0.707 

RETURN 

REM- 

REM TEMPERATUR BERECHNEN 

REM 


330 T1=(3906/LOQ(AX*1000/92.9E-3))-273 

331 T1">INT(T1#10)/1O 


<119> 

<1B4> 

<134> 

<0S6> 

<06S> 

<092> 

<119> 

<103> 

340 

341 

350 

351 

360 

361 
390 
400 

T2=<39a6/L0B<AY« 1000/92. 9E-3)>-273 
T2=INT<T2*10)/10 

T3=(3906/LOG(BX*1000/92.9E-3))-273 
T3=INT(T3*10)/1B 

T4»<3906/LOG(BY*1000/92.9E-3))-273 
T4=INT<T4*10)/10 

RETURN 

<052> 
<201> 
<038 > 
<220> 
<120> 
<239> 
<194> 



<012> 

<0S7> 

410 

REM AUSGABE - BILDSCHIRM 

<219> 

<173> 

412 

REM 


<22e> 

:076> 

420 

POKE 214,0 IREM ZEILE 


<171> 

<026> 

422 

POKE 211,0 sREM SPALTE 


<111> 

<222> 

424 

SYS 58640 iREM CURSOR 

SET 

<B04> 

<223> 

426 

PRINT"(40SPACEJ" 


<069> 

<ia 2 > 

430 

POKE 214,0 rREM ZEILE 


<lBt> 

<157> 

432 

POKE 211,3 iREM SPALTE 


<250> 

<015> 

434 

SYa 56640 iREM CURSOR 

BET 

<014> 

<147> 

436 

PRINT TI 


<209> 

<217> 

440 

POKE 214,0 {REM ZEILE 


<191> 

<139> 

442 

POKE 211,llrREM SPALTE 


<179> 

<Z52> 

444 

SYS 58640 sREM CURSOR 

SET 

<024> 

<230> 

446 

PRINT T2 


<23S> 

<234> 

450 

POKE 214,0 sREM ZEILE 


<201> 

<070> 

452 

POKE 211,19:REM SPALTE 


<197> 

<090> 

454 

SYS 58640 iREM CURSOR 

SET 

<034> 

<083> 

456 

PRINT T3 


<003> 

<103> 

460 

POKE 214',0 sREM ZEILE 


<211> 

<24a> 

462 

POKE 211,2a!REM SPALTE 


<B79> 

<066> 

464 

SYS 5S640 {REM CURSOR 

SET 

<B44> 

<240> 

466 

PRINT T4 


<031> 

<026> 

490 

RETURN 


<03a> 

<127> 

30000 REM - 


<013> 

<096> 

30010 REM UPRO A/D-WANDLER LESEN 

<1B7> 

<128> 

30020 REM 


<i 0 a> 

<152> 

30030 FOR 1=850 TO 904 


<150> 

<209> 

30040 READ J 


<i7a> 

<003> 

30050 POKE I,J 


<255> 

<210> 

30060 NEXT I 


<170> 

<234> 

30100 RETURN 


<104> 

<1535^0 V 

, .,320eS."ftTA 120,169,64,32,112,3,142,60,3,14 


<rts> 


U,61,3,169,128,32,112 

,3,142,62,3,140 

<I78> 

<036> 

32001 DATAU3,3,169,255,141 

,2,220,88,96,14 


<060> 


1,0,220,9,192,141,2,220,160,10,162,2 


<I19> 


55 


<144> 

<050> 

3200 

2 DATA 202,208,253,136, 

208,248,174,25, 


<120> 


212,172,26,212,96 


<160> 

<144> 





<a94> 





<168> 





<252> 

<^1 '?OS 

Listing 1. nTEMP4<< Nest die Wandler aus und rechnet die 

<226> 

Werte In Grad Celsius um. Bitte mit dem Checksummer 

<182> 

(Seite 159) eingeben. 
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ELEKTRONIK 


HF-Spulen einfadi beredinet 


Viele interessieren sich für Elektrotechnik und 
bauen ihre Hardware selbst. Da nicht jeder Daten¬ 
bücher zur Hand hat, hilft dieses Programm bei 
der Realisierung von Induktivitäten. 

D ie Berechnung der Induktivität von Spuien mit run¬ 
dem Schalenkern erfordert einigen Aufwand, Unser 
Programm (Listing 1) nimmt Ihnen diese Arbeit ab. Es 
werden Schalenkerne von 9 bis 36 mm Durchmesser mit 
Ein- oder Zweikammer-Spulenkörpern berechnet, Der 
Induktivitätsfaktor »AI« ist frei wählbar, so daß Sie auch 
ungenormte Werte verarbeiten können. Die Kerndaten sind 
in einer Kerntabelle enthalten. Weiter kommen Kupferlack¬ 
drähte von 0,032 bis 1,0 mm Durchmesser in insgesamt 31 
Stärken zur Anwendung, Sind die Drahtdurchmesser grö¬ 
ßer, werden zwei Drähte parallel gewickelt berechnet. Die 
Drähte sind in einer Drahttabelle enthalten. Der Kupferfüll¬ 
faktor wird auf zirka 55% berechnet. 

Das Programm berechnet HF-Spulen (Hochfrequenz- 
Spulen) für Schwingkreise, Drosselspulen und Übertrager. 
Sollen Spulen mit einer Wicklung, ohne weitere Abgriffe 
berechnet werden, so geben Sie die gewünschten Daten, 
Induktivität, Kerndurchmesser und -breite, Anzahl der 
Kammern des Spulenkörpers, den Al-Wert und die 
Betriebssequenz ein. Das Programm errechnet die Win¬ 
dungszahl der Spule, die Drahtstärke, den Gleichstromwi¬ 
derstand der Wicklung sowie den Wechselstromwider¬ 
stand, die Spulengüte und den Kupferfüllfaktor. 

Alle Berechnungsunterlagen sind entnommen aus: - 
Siemens Datenbuch 1975/76 »Sifferit und Sirufer-Material« 
Siemens Datenbuch 1976/77 »Spulen und Übertrager«. 

Spule bemhnen 


Sollen Spuien mit einer Wicklung ohne weitere Abgriffe 
berechnet werden, werden die gewünschten Daten in fol¬ 
genden Einheiten eingegeben: 

L in Henry * Induktivität 

D Kern = Kerndurchmesser 

B Kern = Kernbreite 

Kz = Anzahl der Kammern 

AI in nHenry » Induktivitätsfaktor 

f in Hertz = Frequenz 

Bel Gleichstromspulen wird f^^O eingegeben. 

Das Programm berechnet die Spule mit einem Kupfer¬ 
lackdraht, der zirka 55% Kupferfüllfaktor ergibt. Es werden 
die Eingabedaten und das Rechenergebnis aufgelistet. 

N ■ Anzahl der Windungen 

D Nennd. => Nenndurchmesser des Cul-Drahtes 

0 Außend. » Außendurchmesser des Cul-Drahtes 

RCu Gleichstromwiderstand der Wicklung 

X1 Induktanz Wechselstromwiderstand der Spule 
Q Spulengüte Qualität der Spule 
fCu Kupferfüllfaktor 

Eingabe ändern ? (wenn nein dann <RETURN>) 
DN-i-1=F1 „ DN-1=F3 Andere F7 
Ist eine Änderung erwünscht, kann mit der F1-Taste die 
Drahtstärke eine Nummer größer, mit der F3-Taste kleiner 
gewählt werden. Das neue Ergebniswird angezeigt. Milder 
F7-Taste kommt man in den Eingabemodus zurück. Die 
alten Eingaben werden angezeigt und lassen sich bei 
Bedarf überschreiben. Das neue Ergebnis wird aufgelistet. 
Bei Spulen mit nur zwei Anschlüssen kann der Kupferfüll- 
faktor größer gewählt werden. 


Wird eine Spule mit mehreren Abgriffen benötigt, ist ein 
bestimmtes Vorgehen notJWQFidig. Es soll eine Spute mit 
L3*6mH und Abgriffen b©il.i=2mH und L2=4mH berech¬ 
net werden. Dazu ist wie folgt vorzugehen: 

1. Es werden die Daten für L3 wie beschrieben eingege¬ 
ben. Ergebnis aufschreiben oder ausdrucken. 

2. Daten für L1 eingeben und die Orahtstärke so lange mit 
der F3-Taste verringern, bis die Drahtstärke von L3 erreicht 
ist. Ergebnis aufschreiben oder ausdrucken. 

3. Daten für L2 eingeben und wie unter Punkt 2 für L1 
berechnen, 

4. Dererste Abgriff der Spule ist bei der Windungszahl N1, 
der zweite bei N2 und das Ende der Spule bei N3. 

Übertrager berechnen 


Es soll ein Übertrager L1/L2=1:100 berechnet werden. 
Die Steuerwicklung soll 10% des Drahtquerschnittes von 
L2 haben. Dazu ist wie folgt vorzugehen: 

1. L1 berechnen, wie oben beschrieben. 

2. Für errechneten Drahtdurchmesser Dn in der Drahtta¬ 
belle den Widerstand R ablesen und mit 10 multiplizieren. 
Neue Drahtstärke Dn ablesen. 

3. L1 berechnen und wie oben beschrieben mit der 

F3-Taste so lange Dn verkleinern, bis abgetesener Wert für 
Dn erreicht ist. Die Summe der fCu-Werte von LI und L2 
ergibt den neuen Kupferfüllfaktor. Ist dieser Faktor zu groß, 
Drahtstärke von L2 verringern und beide Wicklungen neu 
berecKi.t,,!. (Helmut Steffes/ah) 


10 POKE 53280,l:POKE 53281,IsPRINT"<CLR,HO 

ME>" <205> 

20 PDKE 646,0tPQKE S3272,23lDl-e:□2»0 <e?0> 

50 REM *• SPULE <HF-DROB8EL) ** <122> 

100 BOSUB SB000:CLaSE 2tOPEN 2,018070 1000 <129> 
500 REM «* BET •« <eBG> 

510 POKE l<?8,eiMAIT 19e,l!GET AS: A-VAL (A*> 

1 RETURN <e9e> 

1000 REM •* MENUE •• <024> 

1010 PRINT"tCURl"!SYS BZ,0,0,TS(0>:SYS 9Z, 
0,l.TS(l>iSYS BZ,e,2,TS<2)>SY8 SZ,0,3 
,TS(3) <106> 

1020 SYS BZ,B,4,TS(4) <178> 

1030 SYS SZ,3,0,"1 - flPULE BERECHNEN" <19a> 

1040 SYS BZ,3,10,"2 » &ERNTABELLE AUFLIBTE 

N" <21S> 

1050 8YB BZ,3,12,"3 - JRAHTTABELLE AUFUIBT 

EN" <24B> 

1060 SYS BZ,3,14,"4 x CRBEBNIB AUSDRUCKEN" <11S> 

1070 SYS BZ,3,16,"S x ZABELLEN AUSDRUCKEN" <2S4> 

1080 SYS BZ,3,19,T«(0) <B6Z> 

1100 GDSUB 5009IF A<1 OR A>S THEN 1100 <190> 

1110 ON A BOBUB 2000,6000,7000,55000,56000 <112> 
1120 GOTO 1010 <:e76> 

2000 REM <* EINBABE ** <B19> 

2010 IF M4-2 THEN 2100 <e77> 

2020 Tl-l9Llxe9Dl-e:Bl-09Kl-BtAl-etPlx0iXl 

xB9Ylxe9M2x09M3xB9M4-0 <e3B> 

2100 FOR J>5 TO 23iBYS SZ,e,J,T«(7):NEXT:B 
YB BZ , 2,3 , '• SPULENDATEN 1 11 SPACE > " 9 PR 1N 
T <09Z> 

2110 BYB SZ,1,6,"L{28PACE>IN ÜENRY<28PACE> 

- "L1:SYS SZ,17,6,‘"'itINPUTtt2,ASiLlxV 
AL«A*) <176> 

2120 SYS SZ,1,B,"J]<28PACE>£ERN<68PACE>» "D 
1:BYB BZ,17,8,""5 »INPUT*2,A*:D1»VAL(A 
S) <1S4> 


LIstIng 1. Berechnung von Spulen und Drosseln. 
Bitte mit dem Checksummer (Seite 159) eingeben. 
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2130 SYS 8Z,l,10,"a<2SPflCE>J!£RN<6SPACE>= '• 

Bll SYS SZ,17,10,"";:INPUTtt2,A«tBl>VAL 
<A«) 

2140 SYS SZ,1,12,"JLZ 1-2<7SPACE>- "KliBYS 
SZ,17,12,""j sINPUT#2,A*iK1-VAL < A» > 

2150 IF KKl QR Kl >2 THEN 2140 
21t0 SYS 8Z,l,14,-'flL IN NUENRY - "AliSYS 9 
Z,17,14,""!tINPUT#2,A*iAl-VAL<A*) 

2170 SYS SZ,1,16,"F{28PACE>IN HERZ{38PACE> 

- "FliSYB 9Z,17,16 ,"'‘|iINPUT«2,A*>F1- 
VAL(A«) 

2180 QOSUB 300BIRETURN 
3000 REM KERNTABELLE LESEN ** 

3010 FOR Jl-I TO IS 

3020 IF Q(JI,1)-D1 AND Q(J1,2)-B1 AND Q(J1 
,3>-Kl THEN Xl-Q(Jl,4)iVl-Q(Jl,S)<GOT 
□ 3040 
3030 NEXT 

3040 IF XI-0 OR Yl-0 DR J1>1S THEN SYS 8Z, 
0,20,T«(10)t8Y8 BZ,0,21,T*<1I> 

3050 IF Xl-0 QR Yl-0 QR J1>1S THEN BY8 SZ, 
0,22,T*(12>'' <J/'N)"iQOTQ 3070 
3060 GQTO 3090 

3070 GQSUB 5009 IF A«-''J''THEN M4-2IQ0SUB 60 
00 

3080 GOTO 2100 
3090 Nl-SaR<Ll/<lE-9*Al>) 

4000 REM «* AUSGABE *• 

4010 M2-0IM4-B 

4020 NS-NliN-NSiGQSUB 90001 IF M4-1 THEN GO 
TO 2000 

4030 El-D3sE2-D4iNA-NSsMA-M2SRA-R!RA«-R«|L 
A-LiLA4-L«iFA-FE:Z3-B 
4040 IF F1O0 THEN Z3-2*1«F1»L1 
4050 R-Z3:BaSUB 82001R2-R3R2*-RS 
4060 DS-Z3/R9iaB-INT(Qa»10>/18 
4070 FQR J=6 TD 23lSYS SZ,0,J,T*<7)«NEXT 
4080 SYS SZ,B,6,"i.<2SPACE>lN 1]ENRV<3SPACE> 

-";L1 

4090 SYS SZ,8,7,‘'fl<2SPACE)JSERN{7SPACEJ-'’5D 
1 

4100 8YS 8Z,B,8,''2{2SPAC;E>JIERNC7SPACE>-''sB 
1 

4110 SYS SZ,0,9,"&Z 1-2<.BSPACEJ=";K1 
4120 SYS SZ,0,10,"iSL IN NaENRY<2SPACE>=";A 
1 

4130 SYS SZ,0,11,'‘F<2SPAC;E>IN I1ERZ{4SPACE> 

= ";F1 

4140 SYS BZ,B,13,"!1<13SPACE>-'‘;NA 
4150 IF MA-0 THEN PRINT TAB<24)"{UP>HINDUN 
GEN" 

4160 IF MA=1 THEN PRINT TAB124)"<UPJ*2 HIN 
D.PAR. •' 

4170 SYS SZ,0,14,"a{2SPACE>BENND.ISSPACE}- 
’'|EliTAB(24>"£UL" 

4180 8Y8 SZ,0,lS,’-a<2SPACE>aUSSEND. <3SPACE 
}-"tE2|TAB<24>"BJL" 

4190 SYS SZ.0,16,"afiU<llSPACE>-"iRA!TAB<24 
)RA» 

4200 SYS BZ,0,17, 

2|TAB<24>R2* 

4210 SYS aZ,0,lB, 

□ 

4220 SYS 8Z,0,19,"FBU<11SPACE>-"|FA|TAB<24 
) "JUJPFERFUELLFAK. " 

4230 QOSUB 50009IF M4-1 THEN RETURN 
4240 OOSUB 90801 GOTO 4030 
5000 REM •* DRAHTSTAERKE AENDERN ** 

5010 SYS 8Z,0,21.T»<13>9M3>>1 
5020 SYS SZ,0,23,"<RV8ON,SPACE>aN'i'l-Cl<2SP 
ACE>aN-l-C3t2BPACE>flNDERE £7 "iBOSUB 
500 <213> 

5030 IF A*-CHR«(13)THEN M4-1«RETURN <014> 

5040 IF A«-CHR*(136>THEN 2100 <1B3> 

5050 ZF A«-CHRS(133)AND J2-31 AND MA-1 THE 

N RETURN <093> 

5060 IF A*-CHR4(133)THEN J2-J2+liIF J2>31 

THEN J2-269MA-19BOTO 5080 <252> 

5070 GOTO 5090 <249> 

5080 D3-Q1<J2,1)«D4-01<J2,2)iZl-Ql(J2,3)9R 

ETURN <102> 

5090 IF A*=CHR*<134)THEN J2=J2-liIF J2<26 

AND M2-1 THEN J2-31iMA=0 <046> 

5100 D3-Q1(J2,l)iD4=Ql(J2,2)sZl-Ol(32,3)iR 

ETURN <122> 

6000 REM •• KERNTABELLE LE8EN *• <0G1> 


"ÄL iNDUKTANZ{28PACE>»")R 
" £{2SPACElaPULENGUETE-";0 


<06S> 

<233> 

<133> 

<113> 


<073> 

<03S> 

<129> 

< 210 > 


<037> 

<246> 

<193> 

<11B> 

<253> 

<07B> 

<252> 

<OB0> 

<248> 

<B76> 

< 222 > 

< 020 > 
<235> 
<166> 
<140> 
<251 > 

<143> 

<118> 

<099>’ 

<014> 

<159> 

<103> 

<140> 

<171> 

<132> 

<149> 

<253> 

<127> 

<1B6> 

<17B> 

<1S8> 

<235> 

<047> 

<226> 

<230> 


6010 FOR J-S TO 23tSYS SZ,0,J,T*(7)9NEXT 
6020 SYS BZ,2,3,"Ä£RNTABELLG AUFLISTEN" 
6030 SYS SZ,l,S,"{RV90N,SPACE}a<2SPA[:E>aER 
N{2SPACE>a JLZ L/tl{SPACE,DOWN> 

6040 FQR J-1 TO 15 

6050 SYS SZ,l,J-f6,0(J,t> ,Q<J,2> ,Q<J,3> ,Q<J 

, 6 ) 

6060 NEXTiBOTO 500 

7000 REM ** DRAHTTABELLE LESEN *» 

7010 FOR J-S TO 23i8Y8 8Z,0,J,T«(7)9NEXT 
7020 BYS 8Z,2,3,"aRAHTTABELLE AUFLISTEN” 
7030 8YB SZ,2,S,''{RV8QN,SPACE>aN ", 

" J^flHM/M{BPACE,DOWN>" 

7040 FQR J-1 TO 15 

7050 SYS 8Z,1 ,J-<-6,(31 <J, 1) ,Q1 (J,2> ,Q1 (J,3) I 
NEXT 

7060 PRINT"<D0WN,8PACE>WEITER MIT RETURN"« 
QOSUB 500 

7070 FOR J-6 TO 2399Ya BZ,0,J,T*(7)«NEXT 
7080 FQR JB16 TO 31 

7090 BYS SZ,1,J-9,Q1(J,l>,Q1(J,2),QI(J,3> 
7100 NEXTiQOSUB 5009RETURN 
8000 REM »* RUNDUNG VON N •* 

6010 NY=N5-INT(N5) 

8020 IF NY>.7 THEN NS-INT(NS)+lsRETURN 
8030 IF NY>.2 THEN NS-INT(NS)+.59 RETURN 
8040 RETURN 

8100 REM »* FORMATIERUNG VON L «* 

S110 IF L<lE-6 THEN L-L*1E99LS-"NÜ"«GOTO 0 
ISO 

8120 IF L<lE-3 THEN L=L*lE6iL*="UÜ"«GOTO 8 
ISO 

8130 IF L<1 THEN L=L*lE3lL*="Mll"« GOTO 8150 
8140 L*="ti" 

8150 L-INT<L+.5)«RETURN 

8200 REM ** FORMATIERUNG VON R •» 

B210 IF R>1E6 THEN R-R/1E6IR*="agHM"9GOTO 
8250 

B220 IF R>1E3 THEN R=R/lE3iR»="KflHM'': BOTO 
8250 

8230 TF R>1 THEN R*="flHM’'9 GOTO 8250 
B24i R>lE-3 THEN R=R*IE3!R»="ÜILLI BHM" 
8250 R-1NT(R»10O0)/10009RETURN 
9000 REM *• BERECHNUNG «* 

9010 D2-Y1/(EXP(L0B(N)/X1)) 

9020 IF D2>=1.068 THEN D2=SQR((D2T2)/2)9M2 
= 1 

9030 IF D2>-1.06B THEN D2-1.068:J2-31 
9040 FOR J2-1 TO 31 

9050 IF D2-<Q1(J2,2)THEN D3-Q1(J2,1)iD4-Q1 
(J2,2)9Zl-Ql(J2,3)9QOTQ 9070 
9060 NEXT 

9070 N5-INT((N5+.05)*10)/10:GOSUB 8000 
9080 N6»EXP((L0Q(Y1/D4))*X1) 

9090 FD-NS/N6tFE-INT(FD«S0'*-.5)/100lIF M2-1 
THEN FE-FE*2 

9100 Z2-Q(J1,6)9R-(Z2»NS*FD+10B>/100O«Zli I 
F M2-1 THEN R-R/2 
9110 R9-RiG05UG 8200 
9120 RETURN 

50000 REM *« VARIABLEN LESEN «• 

50010 DIM 0(15,7),Ql(31,3),T«(1S) 

50110 T*(l)-"a aat-aOFT = INDUKTIVITAETEN 
BERECHNEN =" 

50120 T«(2)-"1 


<127> 

<046> 


50130 T«(3)-"=(:38SPACE>=" 

50140 T« (4) 

50150 T#(5)-"aPULE'‘ 

50160 T*(6>-"UEBERTRABER" 

50170 T»(7)-"<398PACE>" 

S01S0 T«(B>-"aiTTE MAEHLENi" 

50190 T»<9)-"aiTTE QEWUEN8CHTE NUMMER EINT 
IPPEN" 

50200 T«(10)-"£ERNDATEN NICHT BEF." 

50210 T»{ll)-"aiTTE MEUEINBABE" 

50220 TS(12)-"aERNDATEN AUFLIBTEN ?" 

50230 TS(13>-"£INBABE AENDERN 7 (NEIN HE.T,U 
'■ 

51000 REM •• KERNDATEN «• 

51100 FOR J-1 TO 15 
51200 FOR W=1 TD 7 


<238> 

< 101 > 

<216> 

<023> 

<019> 

< 111 > 

<B64> 

<136> 

<OBS> 

<203> 

<197> 

<203> 

<231> 

< 010 > 

<19B> 

<092> 

<026> 

<0B7> 

<055> 

<224> 

<144> 

<06B> 

<O02> 

<127> 

<014> 

<151> 

<13B> 

<064> 

<160> 

<146> 

<169> 

<127> 

<237> 

<204> 

<069> 

<214> 

<134> 

<0B9> 

<180> 

<153> 

<163> 

<051> 

<193> 

<14B> 

<032> 

<092> 

<B88> 

<033> 

<1B8> 

<0Z0> 

<187> 

< 111 > 

<B82> 

<06O> 

<1B8> 

< 222 > 

<255> 

<135> 

<139> 

<139> 

<1B9> 

<B20> 

< 202 > 

< 102 > 
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ELEKTRONIK 



S12CIS 

READ Ul 

<129> 


M. -“JDI 

<2237 

5121(9 

QCJ.Ul-MliNEXT 

<2B8> 

55150 

PRINT#1,CHR»(15)SPC <12 >"a iERN-a?EIT 


51220 

NEXT 

<175> 


E<26PACE>=";B1 

<0797 

51400 

DATA 9,5,1,1.682,1.6565,16.5,10,11,7 


55160 

PRINT»l,CHR*tl5)BPC<12)"iZ 1-2 SAMME 



,1,1.636,2.3654,22,16,11,7,2,1.839 

<B73> 


R<2aPACE>-"|Kl 

<0017 

51420 

DATA 2.5075,22,16,14,8,1,1.826,3.029 


55170 

PRINT#l,CHR»(15)SPC<12>"flL IN NÜENRY 



2,26,25,14,6,2,1.832,3.2114,20,25 

<004> 


<3BPACE>=''|A1 

<1B57 

51430 

DATA 16,11,1,1.639,3.8683,35.6,44 

<196> 

55180 

PRINT#1,CHR»(15)BPC(12>"F IN HERZ<68 


51440 

DATA 16,11,2,1.661,4.1204,35.6,44,22 



PACE>-''!F1 

<1727 


,13,1,1.646,5.3375,44,63 

<245> 

55190 

PRINTHllQOSUB 55350 

<2007 

51450 

DATA 22,13,2,1.825,5.9263,44,63 

<226> 

55200 

PRINT#1,CHR» <14 > SPC(6)"SPULE (MF-SRO 


51460 

DATA 26,16,1,1.849,6.3362,52,94,26,1 



S6EL) • MUSQABE“ 

<0967 


6,2,1.634,6.9016,52,94 

< 02 e> 

55210 

GOSUB 55350 

<0867 

51470 

DATA 30,19,1,1.635,7.6774,60,136 

<037> 

55240 

PRINT#1,CHR» (15) 8PC (12) •’M<14BPACE>-" 


514B0 

DATA 30,19,2,1.831,6.5916,60,136,36, 



jNA! 

<2497 


22,1,1.827,9.1729,73,201 

<169> 

55250 

IF MA=0 THEN PRINTttl,CHR»(1S)CHR»(16 


51490 

DATA 36,22,2,1.824,10.0917,73,201 

<077> 


) CHR» (51) CHR» (50) ■' HI NDUNGEN " 

<0117 

52000 

REM •* DRAHTTABEULE «• 

<00B> 

55260 

IF MA=1 THEN PRINTttl,CHR»(15)CHR«(16 


52100 

FOR J«1 TO 31 

<ia3> 


)CHR»(51)CHR*(50)’'2 HIND. PARALLEL" 

<1117 

52200 

FOR W=1 TO 3 

<Be2> 

55270 

PRINTttl,CHR»(15)SPC(12)"S HENN.CBBPA 


52205 

READ Ml 

<iii> 


CE 7-"1E11CHR»(16)CHR»(51)CHR»(SO)"£U 


52210 

Ol (J,M)>W1>NEXT 

<B63> 


L" 

<0517 

52220 

NEXT 

<I57> 

55260 

PRINTttl,CHR»(15)SPC(12)"a MUSS.CBSPA 


52400 

DATA .032,.04,21.44,.04,.05,13.72,.0 



CE )=" 1 E2 s CHR» (16) CHR» (51) CHR» (SO) " JSJ 



5,.062,8.781,.063,.078,5.531 

<B23> 


L" 

<1427 

52420 

DATA .071,.088,4.355,.OB,.098,3.43,. 


55290 

PRINTttl ,CHR»(l5)aPC( 12) '■AfiU<12SPACE> 



09,.11,2.71,.1,.121,2.195 

<246> 


= "t RA1CHR»(16)CHR»(51)CHR«(50 > RA» 

<0337 

SZ440 

DATA .112,.134,1.75,.125,.149,1.405, 


55300 

PRINTttl,CHR»(15)BPC(12)"HL iNDUKTANZ 



.14,.166,1.12,.16,.187,.8575 

<076> 


<38PACE "J RZJ CHR»(16)CHR»(51)CHR»(5 


52460 

DATA .18,.209,.6775,.2,.23,.5488,.22 



0)R2» 

<1597 


4,.256,.4375,.25,.284,.3512 

<243> 

55310 

PRINT#1,CHR»(lS)SPC(12)"a SPULENGUET 


52460 

DATA .28,.315,.28,.315,.352,.2212,.3 



E <ZSPACE>=”J OO;CHR»(16)CHR«(51)CHR»( 



55,.395,.1742,.4,.442,.1372 

<235> 


50)R2» 

<1617 

52500 

DATA .45,.495,.1084,.5,.548,.08761,. 


55320 

PRINTttl,CHR»(15)SPC(12)"FfiU<12SPACE> 



56,.611,.07,.63,.684,.05531 

<073> 


="jFA! 

<1357 

52520 

DATA .71,.767,.04355,.75,.609,.03903 


55330 

PRINT*1,CHR»(16)CHR»(51)CHR»(50)"HUP 



,.8,.861,.0343,.85,.913,.03038 

<0367 


FERFUELLFAKTOR"iPRINT#1« GOSUB 55350 

<0517 

52540 

DATA .9,.965,.0271,.95,1.017,.02432, 


55340 

02=0:PRINTtt19 PR1NTttl:CLOSE 19 RETURN 

<2447 


1,1.068,.02195 

<251 > 

55350 

PRINTttl,CHR«(15>SPC(12)j;F0R I-l TO 


53000 

REM ** SPALTE UND ZEILE ** 

<054> 


569 PRINTttl 19 NEXTs PRINTttl 9 RETURN 

<0287 

53010 

X-0:FOR 1=52216 TQ 52243sREAD AsPOKE 


56000 

REM •« DRUCKEN «• 

<1797 


I,A:X=X-^A9NEXT 

<150> 

56100 

CLOSE IsOPEN 1,4,7 

<0707 

53020 

IF X03662 THEN PRINT"DATA-FEHLER ! " s 


: 5611» 

1». SUB S6450S PRINTttl, CHR* (14) SPC (4) "A 



STOP 

<097> 


ERNTABELLE"s BOSUB 56450 

<1437 

53030 

SZ=S2216sGOTO 54000 

<08B> 

56120 

PRINTttl,CHR»(15)SPC(8)"a-ÜERN"? 

<0787 

53040 

DATA 32,253,174,32,158,183,138,72,32 


56130 

PRINTttl,CHR«(16)CHR*(49)CHR#(54)"Ä-A 



,253,174,32,156,183,104,168,24,32,24 



ERN"t CHR»(16)CHR»(50)CHR»(52)"AZ"| 

<0347 


0 

<010> 

56140 

PRINTttl,CHR«(16)CHR»(51)CHR*(50)"Al" 


53050 

DATA 255,32,253,174,76,164,170,96, 

<Z06> 


5 CHR»(16)CHR»(52)CHR»(48)"il"; 

<0157 

54000 

REM «• BIDSCHIRMFARBE «* 

<163> 

56150 

PRINTttl,CHR»(16>CHR»(53)CHR»(52)"AN" 


S4010 

I=lSiJ=0 

<21S> 


;CHR»(16)CHR»(54)CHR»(50)"OE" 

<1027 

54020 

POKE 53280,IzPOKE 53281,IsPOKE 646,J 

<1B6> 

56160 

PRINTttl 

<0027 

54030 

PRINT"1CLR>"5T*<0)jT»(l)»T»(2)jT*(3) 


56200 

FOR J=l TO 15sPRlNTttl,CHR»(15)SPC(B) 



ST«(4) 

<129> 


9 

<1167 

54040 

8VS 8Z,B,3," JBILDSOHIRMFARBE UAEHLEN 


56210 

PRINTttl,Q(J,1> jCHR»(16)CHR*(49)CHR»( 



•• 

<151> 


54)Q(J,2)( 

<0817 

54050 

SYS BZ,6,8,"2ITTE 2ILDSCHIRMFARBE MI 


56220 

PRINTttl,CHR»(16>CHR»(SB)CHR»(52>0(J, 



T" 

<147> 


3)!CHR»(16)CHR»(51> CHR»(50)0(3,4); 

<1487 

54060 

SYS 8Z,6,10,“DEN JlU.IUlOJt-.TASTEN MAEHL 


56230 

PRINT#1,CHR»(16)CHR»(52}CHR»(48)0(3, 



EN"l8YS 8Z,6,12,I|J 

<049> 


5))CHR»(16)CHR»(53)CHR»(52)0(3,6); 

<1367 

54070 

GOSUB 500 

<197> 

56240 

PR1 NT«1,CHR»(16)CHR»(54)CHR»(50)0 <J, 


54060 

IF A*«CHR*(17>THEN I-I+liIF 1>15 THE 



7) 

<1307 


N 1=0 

<1B5> 

56250 

NEXT 

<1237 

54090 

IF A«=CHRS(17)THEN 54020 

<116> 

56300 

GOSUB 564501PRINTttl9 PRINTttl9 PRINTttl 

<1387 

54100 

IF A»=CHR*(145)THEN I-l-liIF I<0 THE 


56310 

GOSUB S6450IPRINTttl,CHR«{14)SPC(4)"S 



N 1 = 15 

<2067 


RAHTTABELLE"9G0BUB 56450 

<2357 

54110 

IF A«>CHR«(14S>THEN 54020 

<1037 

56320 

PRINTttl,CHR»(IS)BPC(B>"B-MENN"; 

<0117 

54120 

IF A»-CHR»(29)THEN J-J+lsIF J>7 THEN 


56330 

PRINTttl, CHR»(16)CHR*(50>CHR»(4B)"a-a 



J=0 

<1447 


U8SEN”) 

<1267 

54130 

IF A*-CHR*(29)THEN 54020 

<1617 

56340 

PRINTttl,CHR»(16>CHR*(S1)CHR»(S0)"A fl 


54140 

IF A*«CHR»<157)THEN J=J-tiIF J<0 THE 



HM/M"9PRINT«1 

<1957 


N J-7 

<0337 

56400 

FOR J-1 TO 3liPRINT#l,CHR»(15)SPC(B) 


54150 

IF A«=CHR«(157)THEN 54020 

<1537 


9 

<0597 

54160 

IF A«=CHRS<13)THEN POKE 52214,llPOKE 


56410 

PRINTttl,01(3,1);CHR#(16>CHR»(50)CHR» 



52214,IiPOKE 52215,JgRETURN 

<2167 


(48)01(3,2); 

<2287 

54170 

GOTO 54070 

<0627 

56420 

PRINTttl,CHR«(16)CHR»(51)CHR»(50)01(3 


54160 

RETURN 

<1337 


,3) 

<0457 

55000 

REM •• DRUCKEN «* 

<1957 

56430 

NEXTiGOSUB 56450 

<1807 

55010 

SYS 8Z,3,3,"aftUCKEN" 

<1497 

56440 

PRINTttlzCLOSE IzRETURN 

<2027 

55100 

CLOSE liOPEN l,4,7t008UB 55350 

<0327 

56450 

PRINTttl,CHR«(15>SPC(8)J9FCR I-l TO 6 


55110 

PRINT#1,CHR*(14)SPC(6)"SPULE (üF-aRO 



0:PRINTttl,9 NEXTz PRINT#19 RETURN 

<0637 


S6EL) « aiNGABE" 

<2227 




55120 

GOSUB 55350 

<2527 

e 64'er 


55130 

PRINT#!,CHR*<15)SPC(12)"t IN üENRYtS 






SPACE>="(L1 

<2147 




55140 

PRlNT#1,CHR»(15)SPC C12)"3 ÄERN-SURCH 


Listlng 1. (Schluß) 



SONDERHEFT 23 


127 











TIPS & TRICKS 


C64 


So weiden 
Hankopies 
programmiert 

Im Prinzip sind alle Hardcopy-Routinen für einen 
grafikfähigen 8-Nadeldrucker ähnlich. Ein paar 
wenige Programmier-Techniken bringen ihre 
Monitorbilder zu Papier. Sogar ohne A^embler- 
kenntnlsse können Sie auch ein Hardcopy- 
Programm für Ihren Drucker schreiben. 

D ie Problematik einer Hardcopy liegt im Grunde darin, 
die Punktauflösung des Grafikbildschirms in die des 
Druckers umzuwandeln. Die den Druckernadeln 


ben werden. Die Hardcopy soll ja auf der Mitte des Papiers 
erscheinen. Zu diesem Zweck wird eine Tabelle angelegt, 
in der die entsprechenden Druckersequenzen enthalten 
sind. Diese Tabelle wird dann vollständig zum Drucker 
geschickt. In derTabelle darf als Druckersequenz kein Null- 
Byte stehen, da dieses als Abschluß-Byte der Tabelle fun¬ 
giert. Gehen wir vom ESC-P-Code aus, der für Epson- 
Drucker und Kompatible gilt (ESC-P heißt: Epson Standard 
Code for Printers). Zum Initialisieren sendet man »ESC @«, 
dezimal 27,64 (also hexadezimal $1b,$40). Der Zellenab¬ 
stand muß auf ”/ 2 i 8 *Zoll eingestellt werden. So erzielen wir 
einen nahtlosen Übergang der einzelnen Zeilen. Im ESC-P- 
Code heii^ dies »ESC 3 n (n=24)«, dezimal 27,51,24 und 
hexadezinial $1b,$33, $18. Der linke Rand wird durch »ESC 
I n (n=12)« auf die zwölfte Spalte verschoben (dez.: 
27,108,12 ; hex.: $1b,$6c,$0c). Danach schließen wir die 
Druckersequenzen mit einem Carriage Return ab (»CR«; 
dez.: 13 ; hex,: $0d). Dann setzen wir noch ein Nullbyte 
(dez.:0 ; hex,: $00) als Ende der Tabelle, Benötigen Sie 
andere Werte für Ihren Drucker, ändern Sie die Werte in der 
Tabelle, die maximal 255 Byte lang sein darf. Jedoch die 
Carriage Return-Sequenz muß am Schluß stehen, das 
Label »CR« darf nicht verändert oder verschoben werden. 


zugeordneten Bitnummern sehen Sie in Bild 1. Es ist für 
deren richtige Ansteuerung wichtig, zu wissen, wie Grafi¬ 
ken im Speicher desC64 untergebracht sind. Eine ausführ¬ 
liche Beschreibung finden Sie in dem Artikel »Auf den 
Punkt gebracht« auf Seite 132 dieses Sonderheftes. 

Während die Bytes in der Bitmap waagerecht angeord¬ 
net sind, stehen die Drucker-Bytes senkrecht aufeinander. 
Wir müssen also den 8-Byte-Block um 90 Grad im Uhrzei¬ 
gersinn drehen, oder mathematisch: an der ersten Winkel¬ 
halbierenden des ersten Quadranten, der Mediane, spie¬ 
geln. 

Es ist möglich, daß bei Ihrem Drucker die Wertigkeit der 
Nadeln genau umgekehrt angeordnet ist. In diesem Fall 
müssen Sie in die entgegenges,etzte Richtung spiegeln 
oder drehen. Doch dies ist auch kein Problem. 

ln einem Flußdiagramm soll der Ablauf des Programms 
schematisch dargestellt werden. Sie sehen dieses in Bild 2. 

Den Drucker ansprechen 


Zu Beginn wird ein logisches File eröffnet, das den Drucker 
anspricht, Nun werden die Ausgaben mit dem Kommando 
Communication direct (CMD) auf den Drucker umgeleitet. 
In Assembler sieht das folgendermaßen aus: 


490 

Ida #$04 

; logische Filenummer 

500 

Idx #$04 

; Geräte-Adresae 4 für Drucker 

510 

Idy #$01 

; Sekundäradresae 1 für 



Linearkanal 

520 

Jsr setfls 

; Fileparameter setzen ($ffba) 

530 

jar open 

! File öffnen ($ffc0) 

540 

Idx #$04 

; logische Filenummer 

550 

jsr chkout 

; Ausgabe auf Drucker umleiten, 


Filenummer ln X {$ffc9) 


Möglicherweise brauchen Sie für Ihren Drucker (je nach 
verwendetem Interface) andere Werte, zum Beispiel 
Sekundäradresse 1 für den Linearkanal. Ist das der Fall, so 
ändern Sie die Werte im Assembler Source-Programm, 
Beachten Sie aber, daß Sie die Werte hexadezimal ange¬ 
ben, wenn ein »$« davorsteht. Lassen Sie das »$« weg, kön¬ 
nen Sie dezimale Werte eingeben. Ein Beispiel soll Ihnen 
das verdeutlichen: 

Ida #$0f j lade Akku mit dem Wert 15 
Ida #15 ! lade Akku mit dem Wert 15 

Im nächsten Schritt muß der Drucker initialisiert, der Zei¬ 
lenabstand richtig eingestellt und der linke Rand verscho¬ 


DieTabellewird durch die Interpreterroutine »strout« (String 
out) an den Drucker geschickt; dabei spielt die Länge der 
Tabelle keine Rolle, solange sie kleiner als 255 ist. 

590 Ida #((lnit) i Low-Byte des Vektors auf 

die Tabelle 

600 Idy #)(init) j High-Byte des Vektors auf 

die Tabelle 

610 Jsr Btrout j String ausgeben ($able) 

Die Tabelle mit den ESC-P-Code-Werten sieht folgender¬ 
maßen aus: 

.byte $lb,$40 j init: ESC @ 

'Mo^ .byte $lb,$33,$18 ! linefeed: ESC 3 n 
' (n=24) 

1750 .byte $lb,$6c,$0c ; left raargin: ESC 1 n 
(n=12) 

1760er .byte $0d,$00 ; Carriage Return 

Nun heißt es »Dummy füllen« und »Line=i25«. Aber was 
heißt denn »Dummy«? Das ist ganz einfach: Unser Pro¬ 
gramm soll mit dem Trick der Selbstmodifizierung arbeiten, 
das heißt, in den Programmtext werden Operanden erst 
während des Ablaufs geschrieben. Angenommen, im 
Quelltext steht »Ida #$ff« und während des Ablaufs wird 
der Wert $ff verändert, dann heißt das Selbstmodifizierung. 
Den Wert $ff nennt man ein »Dummy«. In unserem Beispiel 
haben wir ein 16-Bit-Dummy, das wir zuerst mit der Start¬ 
adresse der Bitmap füllen. »Bitmap« ist ein Label, dem 
ganz am Anfang des Sourcetextes ein Wert zugewiesen 
wild. Diesen Wert können Sie nach Belieben verändern. 


e-Bit- 

stm Nr. stifte Schnittstelle 

1 


2^ ■ 128 

2 

• 

2® = 64 

3 

• 

2® e 32 

4 

• 

2 * = 16 

5 

• 

2® - 8 

6 

• 

22 = 4 

7 

• 

2’ = 2 

8 


2 ° = 1 

o 


Bild 1. Die Anordnung der Druckernadeln 
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TIPS & TRICKS 


aber beachten Sie dabei, daß das Prozessor-Ausgaberegi¬ 
ster (Zeropage $01) den richtigen Wert enthält, wenn Sie die 
Bereiche unter dem ROM ansprechen. Vordem Befehl mit 
dem Dummy-inhait steht das Label »dummy«; 

910duininy Ida ; Bltmap-Byte 

Ein Dummy zu füllen ist ganz einfach. Man lädt ein Regi¬ 
ster (Akku, X oder Y) mit dem Low-Byte und speichert den 
Wert in Dummy-fl. Das High-Byte behandelt man 
genauso, nur speichert man es in Dummy-i-2, da immer die 
Reihenfolge Isb-msb (Isb heißt least significant Byte = 



Bild 2. Das Flußdiagramm der Routine 


Low-Byte; msb heißt most significant Byte * High-Byte) 
eingehalten werden muß. 

Das Label »line« ist eine Speicherzelle, die im Anschluß 
der Routine steht: 

I6901ine .byte 0 

Die Wertzuweisung ist noch einfacher. Man lädt ein Regi¬ 
ster mit einem Wert und speichert ihn in »line«. 

Das Ganze kurz zusammengefaßt: 

670 Ida # < (bitmap) ; leb 

680 sta dummy+l 

690 Ida #> (bitmap) ; msb 

700 ata dianmy+2 

720 Ida #25 ; dez. 25, denn 25 Zellen 

730 sta line 

Schließlich muß der Grafikmodus des Druckers einge¬ 
schaltet werden. Dies geschieht durch Anspringen der 
Routine »strout«, die Druckersequenzen aus einer Tabelle, 
an deren Ende ein Nullbyte steht, an den Drucker ausgibt. 
Im ESC-P-Code gibt es verschiedene Arten von Grafikmodi 
— und somit auch verschiedene Druckersequenzen. Für 
unsere Hardcopy nehmen wir »ESC L n1 n2«. Diese 
Sequenz schaltet für eine Zeile den Grafikmodus in doppel¬ 
ter Punktdichte ein. Oie Parameter »n1« und »n2« geben an, 
für wieviele Byte diese Sequenz gilt. »n1«und »n2« sind 
hexadezimal in Low- und High-Byte aufgeteilt. Wenn wir 
doppelte Punktdichte haben und die Grafik dennoch nicht 
zu schmal werden soll, müssen wir jedes Byte doppelt aus- 
drucken; wir haben dann 640 Byte pro Zeile. Die Zahl 640 
entspricht hexadezimal dem Wert $0280; in »n1« und »n2« 
aufgeteilt hieße das n1 =$80, n2=$02. Nun ist die Sequenz 
schon fertig. Wie schon gesagt, sollte Ihr Drucker andere 
Sequenzen benötigen, ändern Sie die im Programm vor¬ 
kommenden Sequenzen entsprechend dem Druckerhand- 
huch %i:; 

Für den ESC-P-Code lauten die Programmzeilen: 
1780grafilc .byte $lb,$4c,$80,$02,$00 ; 

ESC L nl n2 (nl=128, n2=2) 

Die Sequenz wird so übermittelt; 

780Lnloop Ida # < (grafik) ; Isb ; Zellenschleife 
790 Idy #> (grafik) ; msb 

800 jsr etrout ; String ausgeben 

Das Label »Lnloop« wird benötigt, da an diese Stelle oft 
wegen der Schleifenprogrammierung gesprungen wird. 
»Lnloop« ist die Abkürzung für »Lineloop« und heißt auf 
deutsch »Zeilenschleife«. Die Schleife wird 25mal durch¬ 
laufen, da auch der Grafikbitdschirm »25 Zeilen« hat (40 
8-Byte-Blöcke entsprechen einer Zeile). Die Schleifenva¬ 
riable, der Zähler, ist »line«. 

Jetzt beginnen wir mit den Vorbereitungen der zweiten 
Schleife, der »Blockschleife«. Sie wird 40mal durchlaufen. 
Als Schleifenvariable dient »block«. Auch »block« ist ein 
Byte am Ende der Routine: 

I 680 block .byte 0 
Wir weisen »block« den Wert 40 zu; 

840 Ida #40 ; dez. 40, denn 40 Blöcke 

pro Zelle 

850 sta block 

Nun muß der e-Byte-Block gespiegelt werden. Das Ist 
wohl der schwierigste Teil der Routine. Es ist besser Ich 
stelle Ihnen den Teil zuerst vor, und erkläre ihn dann, 
890bkloop Idy #0 ; Blockschleife 

900tuml Idx #0 

910dutiimy Ida $ffff,y ; Bltmap-Byte in Akku 
920turn2 asl ; Bit aus Bildschirm-Byte 

auslesen 

930.If nadel 

940 rol ehr,x j Bit in Drucker-Byte schieben 

950.eise 
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960 

ror chr,x 

; Bit ln Drucker-Byte schieben 

970.endif 

980 

Inx 


990 

cpx #8 

; x=8? 

1000 

bne turn2 

! x()8, 

Bitmap-Byte ist noch nicht 
abgearbeitet 

1010 

Iny 


1020 

cpy #8 

i y=8? 

1030 

bne tuml 

; y()8, Drucker-Bytes noch 


nicht fertig 

Zunächst wird das Y-Register auf Null gesetzt, Hier 
beginnt die Blockschleife. Danach wird das X-Reglster mit 
Null geladen, denn dieser Teil arbeitet mit zwei verschach¬ 
telten Schleifen. Beide Register können aber nur Werte 
zwischen Null und Sieben enthalten; so wird der Kernteil 
der Schleife insgesamt 64mal durchlaufen. Nun wird das 
Bitmap-Byte in den Akku geladen; hier spielt das Y- 
Register eine große Rolle. Es bestimmt, welches Byte des 
8-Byte-Blocks in den Akku geladen wird. Das BItmap-Byte 
wird nun um 1 Bit nach links verschoben: das siebte Bit 
kommt ins Carryflag. Das nullte Bit wird auf Null gesetzt. 



Bild 3. Diese Hardcopy wurde mit der Routine (Listing 1) 
erstellt 


Das ausgelesene Bit, das im Carryflag steht, wird nun ins 
Drucker-Byte hineingeschoben. Dabei ist es gleich, wel¬ 
chen Inhalt die Drucker-Bytes (8 Byte) haben, denn diese 
werden vollständig überschrieben. Das X-Register 
bestimmt, in welches Drucker-Byte geschrieben wird. Nun 
wird das X-Register um eins erhöht und geprüft, ob es 
schon den Wert 8 enthält. Falls nein, wird wieder ein Bit des 
Bitmap-Byte ausgelesen und in das nächste Drucker-Byte 
geschoben. Hat das X-Register schließlich den Wert 8 
erreicht, ist das Bitmap-Byte vollständig ausgelesen wor¬ 
den, und die Bits sind in die Drucker-Bytes verteilt. Oie 
Bits sind nur noch nicht an der richtigen Stelle, aber dieses 
Problem löst sich von selbst. Jetzt wird das Y-Register um 
eins erhöht und dieselbe Prozedur beginnt von vorne, aber 
diesmal mit den nächsten Bitmap-Byte, Das erfolgt so 
lange, bis das X-Register den Wert 8 enthält. Dann sind alle 
Bildschirm-Bytes abgearbeitet. Die alten Inhalte der 
Drucker-Bytes sind auch vollständig überschrieben, weil in 
jedes Drucker-Byte achtmal ein Bit von derselben Seite hin¬ 
eingeschoben wird, womit das Byte völlig überschrieben 
wurde. Durch das achtmalige Schieben pro Byte, wurden 
beim letzten Rotate-Befehl die Bits richtig gestellt. Wie Sie 
bestimmt schon gesehen haben, ist der Quellcode mit 
»bedingter Assemblierung« ausgestattet. Je nachdem, wel¬ 
chen Wert das Label »nadel« enthält, wird einer der beiden 
Rotate-Befehle assembliert. Ist »nadel« gleich null, so wird 
der »else«-Zweig behandelt. Bei jedem anderen Wert wird 
der »if«-Zweig assembliert. Es ist standardmäßig eins ein¬ 
gestellt, also der »if«-Zweig. Die Einstellung dieses Wertes 
wird in der Labeldeklaration vorgenommen. Sie können, je 
nachdem welchen Drucker Sie besitzen, »nadel« verän¬ 


dern, Das Ganze hängt mit der Drehung um 90 Grad 
zusammen, »nadel« entscheidet, ob gegen oder mit dem 
Uhrzeigersinn gedreht wird. Soll im Uhrzeigersinn gedreht 
werden, muß die Wertigkeit der Druckernadeln so wie in 
Bild 1 angeordnet sein. Für Epson und-kompatible Drucker 
muß »nadel« einen Wert ungleich null haben {das ist schon 
eingestellt). Ist die Wertigkeit der Nadeln andersherum 
angeordnet, so muß gegen den Uhrzeigersinn gedreht wer¬ 
den und »nadel« erhält den Wert null. Beim Drucker »Oki 
20« ist dies bespielsweise der Fall. 

Erst eine Zeile drucken... 


Nun müssen die gespiegelten Bytes nur noch ausgedruckt 
werden. Die oben erwähnten Drucker-Bytes stehen in einer 
Tabelle am Programmende: 

I670chr .byte 0,0,0,0,0,0,0,0 j Drucker-Bytes 
Diese Bytes werden durch eine Schleife einzeln zum 
Drucker geschickt. Das kann nicht durch »strout« gesche¬ 
hen, denn in der Tabelle könnten Nullbytes enthalten sein, 
und außerdem wird wegen des gewählten Grafikmodus 
jedes Byte zweimal gedruckt. Für den Schleifen-Index ver¬ 
wenden wir das X-Register. Es fungiert erstens als Schlei¬ 
fenzähler und zweitens als Index für die Drucker-Bytes. 
Man setzt das X-Register auf null, lädt ein Drucker-Byte X- 
indiziert in den Akku und druckt dieses zweimal aus. 
Anschließend wird das X-Register um eins erhöht und 
geprüft, ob es schon den Wert 8 enthält; falls nein, wird das 
nächste Zeichen geladen ... 

1070 Idx #$00 ; Index auf 0 setzen 
lOSOprnt Ida chr,x j lade x-tes Druckerbyte 
1090 jsr print ; drucke Byte in Akku 

UjUPPj, jsr print ; drucke Byte ln Akku 

lllö inx ; erhöhe x 

1120 cpx #$08 ; ist x schon 8 ? 

1130 bne prnt ; nein, x {) 8 

Der erste 8-Byte-Block wäre ausgedruckt. Um den näch¬ 
sten 8-Byte-Block zu behandeln, muß das Dummy um 8 
erhöht werden, damit es auf den nächsten Block zeigt. 
Zuerst löschen wir das Carryflag, laden dann das Low-Byte 
des Dummy in den Akku. Jetzt addieren wir 8 hinzu und 
speichern das Low-Byte wieder. Aber es könnte ja ein Über¬ 
trag aufgetreten sein. Dazu prüfen wir das Carryflag mit 
einem Branch-Befehl. So wird bei »Branch if Carry Clear« 
(bbc) der nächste Befehl übersprungen, wenn kein Über¬ 
trag auftritt. Ist aber das Carr^lag gesetzt, so wird das 
High-Byte des Dummy um eins erhöht. 

1170 clc 

1180 Ida dummy+l j Isb 

1190 ado #$08 ; -t-a 

1200 eta dummy+l 

1210 bcc notlno j kein Obertrag 

1220 inc duriniy+2 j mab j +1 

Nun wird der Zähler der Blockschleife um eins erniedrigt 
und geprüft, ob er schon null ist. Ist das nicht der Fall, wird 
wieder in die Blockschleife verzweigt. 

1260notlnc dec block j block = block - 1 
1300 bne bkloop j block {) 

zurück zur Blockschleife 

Eine Zeile ist somit gedruckt. Um einen Zeilenvorschub zu 
erhalten, sendet man ein Carriage Return. Die Sequenz 
wird wieder mit »strout« ausgegeben. 

1340 Ida #< (er) j lab 

1350 Idy # > (er) ; msb 

1360 jsr strout j er zum Drucker senden 
Jetzt wird der Zähler der Zeilenschleife um eins ernied¬ 
rigt und geprüft, ob er schon null ist. Bei ungleich null wird 
wieder in die Zeilenschleife verzweigt. 
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1400 dec line ; llne = llne -1 

l440 bne Inloop ; line <> 0 

zurück zur Zellensehleife 
Nur noch ein paar kleine Schritte vervollständigen 
unsere Hardcopy-Routine. Als erstes müssen wir den 
Drucker initialisieren. Dazu gibt es wieder eine kurze 
Tabeiie der Sequenz. 

18001nit2 .byte $lb,$40,$00 j init = ESC @ 

Wie gewohnt, schicken wir diese Tabelle mit »strout« an 
den Drucker. 

1480 Ida #< {inlt2} j lab 

1490 Idy #> (inlt2) j msb 

1500 jar strout ; Druckeraequena an den 

Drucker senden 

Nun mu6 »Communication direct« (CMD) aufgehoben 
und das File geschlossen werden. Schließlich fehlt noch 
ein »rts«. 

1540 Jar dreh ; Communication direct aus 
($ffcc} 

1580 Ida #$04 ; logische Filenummer 
1590 Jsr cloae j File schließen ($ffe^) 

1630 rta ; ende 

Nehmen Sie bitte Ihr Druckerbuch zur Hand, laden 
»Giga-Ass«, den neuen Assembler aus dem Sonderheft 21, 
und ändern den Source-Text so ab, wie Sie ihn für Ihren 
Drucker benötigen. Danach assemblieren Sie den Source¬ 
text mit <X>. 


Kommen wir noch kurz auf das Prozessor-Ausgaberegi¬ 
sterzurück. Es steht in der Zeropage in der Adresse 1. Das 
Register bestimmt, welcher Teil - ROM oder RAM - in 
den Computerspeicher eingeblendet wird. Wollen Sie eine 
Hardcopy von Bereichen, die unter dem ROM liegen, müs¬ 
sen Sie folgende Programmzeiien einfügen und verän¬ 
dern. 


882bkloop Bei j Interrupt verhindern 


684 

Ida 

#$34 

! Wert für RAM 

866 

sta 

$01 

; ln Register 

890 

Idy 

#0 


1132 

Ida 

#$37 

5 Wert für ROM 

1134 

sta 

$01 

} ln Register 

1136 

oll 


; Interrupt zulassen 


In Bild Ssehen Sie eine Hardcopy, die mit dieser Routine 
erstellt wurde. 

Der Quelltext und Objektcode sind auf der Leser- 
Service-Diskette enthalten. 

In Listing 1 ist noch einmal der Source-Text zusammen¬ 
gefaßt. Das Listing 2 geben Sie bitte mit dem MSE ein. In 
Listing 2 sind keine Änderungen vorgenommen. 

Der Aufruf der Hardcopy-Routine erfolgt von Basic aus 
mit SYS 49152, von Assembler mit ISR $C000. 

Sie können natürlich noch die verschiedensten Eigen¬ 
schaften in der Routine einbauen, wie zum Beispiel Dop¬ 
peldruck mit V 216 Zoll Zeilenvorschub. 

(Thomas Lipp/ad) 


glfia-ass ready 
100 : 

110 ;»«* *** 

120;»»* 90 werden hardoopys »** 

130;»** • »»* 

140;»»* prograiuoiert *** 

IBO;*** »*» 

160 ;«»»»»»»»*»»»**»»•»««*«*«»*»«»»* 

170;*** »** 

180;*** (o) 1987 by 64'or *** 

190;»»» »»* 

200; »»»x**««»»*»*»»**»»»»«»»«»«*** 

210 ;*** »*» 

220 ;»»» progrannierer: «** 

230;**» **» 

240;**» thonaa llpp »«* 

260;»** **» 

280;»»»***»»»»*«»»«•***»*»»*»»»«*»« 

270; 

2 B 0 ;»»» baae und atartadresse *** 

290; 

800. baae goOOO 

SlO.obJeot "hardcopy.objip,»'' 

320; 

330;»»» label-deklaratlon *»» 

340; 

SSO.equate bltnap»l2000 ; atart-adreaae der bltiaap 
SSO.equate atrou«=table ; atrlng auageben 

370.e4uate aetfla^tffba ; flleparameter aetcen ' 

380.equate open»tf2a0 ; open flla 

SSO.eduate oIoae:Sfta3 ; oloae 2ile 

400.eqaato ohkoutsgffcB ; ond-aiodua ein 

41D.e4uate slrch*Sflca ; ond-modua aua 

420.eqaate prlnts(f8d2 ; prlnt oharaoter 

430.a4uabe nadel»! ; von o nach u: 128 - 1 

440; 

4S0;*»» prograiun beginn *** 

460; 

470;»»» open 4.4,1 ; omd 4 **> 

460; 

490 Ida «SO* ; logiashe fllenunner 

SOO Idx 8104 ; geraete-adreaae 4 fuer druokar 

210 Idy «101 ; aekundaer-adreaae 1 fuer llnearkanal 

620 Jar aetfla ; fileparameter aataan 

630 Jar open ; file eaffnen 

640 Idx «104 ; log. fllenr 

660 Jar ohkout ; oonnunicatlon direct »ln 

880; 

570;*** eao 1. eao 3 n, eao 1 n »»» 

680; 

690 Ida tt<(lnlt) ; leb 

600 Idy «Xlnit) ; nab 

610 Jar atrout ; druokkeraeauenaen an druoker Banden 

820; 

630:»»» Inltiallalorung **» 

640;*»* duBny fuellen »*« 

660;»»* llne : 25 «»* 

660: 

670 Ids «<(bltnap]; lab 

880 ata dumny»! 

890 Ida «>(bitmapj; nab 




700 
710; 

720 
730 
740; 

760;*** eac 1 nl n2 »»* 

jrgOjjlf* ..raflkraodua elnachalten *«» 


ata dajiunyt2 

Ida «25 
ata lino 


7801nloop 

Ida ll<(grafik): Isb 

790 

Xdy »Xgraflk) 

; msb 

600 

Jar fltrout 

; druckeraaqudnsäD an 

810; 


druokar senden 

820;*»» blook * 40 

*** 

830; 



840 

Ida «4D 


850 ’ 

860; 

sta block 


870;»»* einen block spiegeln »»» 

860; 

690bkloop 

Idy «0 

: blockachlalfe 

OOOturnl 

Idx «0 


910dunny 

Ida *fJtf,y 

; bltnapbyte ln akku 

920turn2 

aal 

bit aua bildachlrAbyte eualeaen 

930.11 nadel 


; true » von o nach u: 126 - 1 

940 

rol chr.x 

bit ln druokerbyte relnachleben 

aSO.elae 


; 2alae * von o nach u: 1 - 126 

980 

070.endll 

960 

ror ohr.x 

bit ln druokerbyte relnachleben 

Inx 


990 

cpx «6 

x«B7 

1000 

bne turn2 

X <> 6, bltnapbyte noch 
nicht abgearbeitet 

1010 

Iny 


1020 

opy «8 

yra7 

1030 

bne turnl 

y <> 6, drüokerbytea noch 

1040; 


nicht fertig 

1050;»»» block auadruoken 
1080; 

•** 

1070 

Idx «0 

Index auf null aetaen 

lOBOprnt 

Ida Qhr,x 

lade x-tea druokerbyte 

1000 

Jar prlnt 

byte drucken 

1100 

Jar print 

byte drucken 

1110 

Inx 

erhoehe x 

1120 

opx MB 

lat X aohon 6 7 

1130 

1140; 

bna prnt 

nein, x <> 8 

1160;»»* dunny erhoehen 

1160; 

**» 

1170 

olo 


1160 

Ida dumny^l 

lab 

1190 

ado ffB 

t8 

1200 

ata dutnmy+l 


1210 

boo notlno 

kein uebertrag 

1220 

1230; 

Ino durarBy+2 

»1 


1240;»»* blook = block - 1 
1250; 

12B0notlno deo blook 


blook E block-l 


Listing 1, Der Source-Code im Giga-Ass-Format 
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12701 

1280 block : 0 ? 

1290; 

1300 bno bkloop 

1310; 

1320:«*• caTriBge return senden 
1330; 

1340 Ids R<(ar) 

13B0 Idy «>(or) 

1360 Jsr strout 

1370; 

13B0;»** llne s llne -1 
1390; 

1400 deo llne 

1410; 

1420;«** llne «07 
1430; 

1440 bne Inloop 

1460; 

1460;*** eso 1 
1470; 

1480 Ids tt<(lnlt2) 

1490 Idy «>(lnlt21 

1600 Isr atrout 

1610; 

1620;«*» ond 4 aufhaban 
1630: 

1640 Jsr slüoh 

1660; 

1660;*** sloae 4 
1670; 

1680 Ida «S04 

1690 dar oloae 

1600; 

1610;**« rta 
1620; 

1830 rta 

1640; 

1660;**« hlldaaellen o. tabaUen **» 

1660; 

1670ohr .byte 0,0,0,0,0,0.0.0 

leSOblook .byte 0 

169011ne .byte 0 

1700; 

1710;*** druokerseiiuensan *** 

1720; 

17301nlt .byte *lb,$40 ; Inlt = esc : 

1740 ,byte Slb,133,318; llnefeed « esc 3 n (d«24) 


»»* 

wenn block <> 0 


; lab 
; mab 

; er sun drucker senden 
•»* 

: llne « llne ~ 1 
*«* 

; Kann llne c> 0 
*•* 

lab 

nab 

druokerseduana sun druokar senden 

»»* 

ooAmunlcatlon dlneob aus 
*** 

log tllenr 
flle Bohlieaaen 

«** 

ende 


1760 

1760or 

1770; 

1780gcaflk 

1790; 

18001 nlt 2 

1810; 

1820.end 


.byte Slb,S6o,S0o; left nargln « eso 1 n [n«12) 
.byte tOd.gOO , ur 

.byte $lb,d4a,se0,$02.t00; esc 1 nl n2 

(nl =128 n 2 = 2 ) 

.byte Slb,S4O,I00; Inlt eso : 

; ende der asaembllerung 


glga-aea ready 



Uatlng 2 

Salt« I 

von 1 





Nama 


hardcapy.obi 


COOO C0a3 


COOO 

r 

a9 

04 

a2 

04 

«0 

01 

20 

ba 

de 


cOOB 

1 

tt 

20 

cO 

44 

a 2 

04 

20 

C9 

a6 


cOlO 

1 

H 

a9 

91 

aO 

eO 

20 

la 

ab 

39 


COIG 

1 

a9 

00 

Bd 

36 

cO 

a9 

20 

Bd 

21 


cO 20 

1 

39 

cO 

a9 

19 

Bd 

90 

cO 

a9 

4b 


c 02 e 

t 

9b 

aO 

cO 

20 

le 

ab 

a9 

26 

7b 


c050 

1 

Bd 

B4 

cO 

aO 

00 

a 2 

00 

b9 

52 


c03a 

0 

44 

44 

Oa 

3a 

07 

cO 

aS 

eO 

65 


c04t> 

t 

OB 

dO 

47 

cB 

cO 

OB 

dO 

ad 

33 


c04a 

0 

a2 

00 

bd 

B7 

cO 

20 

d2 

44 

a3 

Llstlng 2. 

coao 

1 

20 

d2 

44 

aS 

«0 

OS 

dO 

f 2 

6a 

cose 

1 

IB 

ad 

36 

cO 

69 

06 

Bd 

3S 

aa 

Der Objekt-Code 
im MSE-Format. 

COfcO 

1 

cO 

90 

03 

ae 

39 

cO 

ca 

B4 

4b 

c068 

cO70 

1 

9 

CO 

le 

dO 

ab 

c9 

ca 

a9 

90 

99 

cO 

aO 

dO 

cO 

bO 

20 

a9 

d9 

d2 

Bitte mit MSE, 

c078 

1 

aO 

aO 

dO 

20 

ie 

ab 

20 

cc 

46 

(Seite 159) 

cOBO 

• 

44 

39 

04 

20 

c3 

44 

60 

00 

17 

coaa 

t 

00 

00 

00 

00 

00 

00 

00 

00 

B9 

eingeben, 

c:090 

1 

00 

Ib 

40 

Ib 

33 

IB 

Ib 

6c 

Cb 


c09B 

t 

Oc 

Od 

00 

Ib 

4c 

60 

02 

00 

54 


cOaO 


ib 

40 

00 

c2 

20 

e4 

if 

40 

3f 


Auf den Punkt gebradit 


Setzen, Löschen und Invertieren von Punkten — 
Kernpunkte der Grafik-Programmierung. Eine 
sehr schnelle Maschinensprache-Routine Ist hier 
das nötigste Werkzeug. Die Routine »Set Point« 
ist eine der schnellsten für den C 64. 

ie hochauflösende Grafik belegt einen Speicherplatz 
von 8 KByte. Die hierfür verwendeten Bytes werden 
durchnumeriert von $0000 bis $1F3F.'Der Startwert 
der Bitmap muß zu jeder Adresse hinzuaddiert werden. 
Das heißt, liegt der Grafikspeicher ab $6000, befindet sich 
der Grafikbereich von $8000 bis $9F3F. Das Bild 1 verdeut¬ 
licht den genauen internen Aufbau. 8 Bit sind jeweils zu 1 
Byte zusammengefaßt, wobei jedes Bit einem Punkt der 
Grafik entspricht: 

Bit = 1 : Punkt gesetzt 

Bit = 0 : Punkt gelöscht 

Die ersten 8 Byte in der Bitmap, wie man den Grafikspei¬ 
cher auch nennt, stehen immer untereinander, daneben 
die nächste Gruppe von 8 Byte. Das geht so weiter, bis man 
am Ende einerZeile angelangt ist. Nun beginnt man mit der 
nächsten Zeile etc. Ein genaues Studieren von Bild 1 macht 
diesen Sachverhalt deutlicher. 

Bei Computern ist es üblich, Punkte durch eine X- und Y- 
Koordinate zu bestimmen wie in Bild 2 zu sehen ist. Die X- 
Koordinate, die horizontale Achse, besitzt Einheiten von 
links nach rechts von 0 bis 319. Die Y-Koordinate, die verti¬ 
kale Achse, wird von oben nach unten mit den Nummern 0 
bis 199 numeriert. 

Oie Frage, die nun brennend interessiert, ist, wie wandle 
ich diese Koordinaten in das Bit/Byte-System um. Jetzt 
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Bild 1. Interner Aufbau einer Bitmap 

heißt es, einen Algorithmus zu finden. Bestimmen wir 
zunächst die Adresse des Bytes, in dem das Bit liegt, wel¬ 
ches unseren Punkt darstellen soll. Als erstes ermitteln wir. 
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Bild 2. 

Koordinatensystem 
des Bildschirms 

wie viele Bildschirmzeilen übersprungen werden müssen, 
um zu unserem Punkt zu gelangen. Wir erinnern uns, daß 
pro ZeileS Byte immer untereinander stehen. Eine Zelle hat 
320 X-Werte, also 40 8-Byte-Blöcke (320:8=40). Die Anzahl 
der Bildschirmzeilen errechnet sich aus der ganzzahligen 
Division des Y*Wertesdurch acht. Im Klartext heißt das, den 
Y-Wert durch acht teilen und nur die Vorkommaatellen be¬ 
trachten. Mathematisch sieht das so aus: [Y/8] {[43/8]=5). 
Die eckige Klammer steht hier also für Integer-Operatio- 
nen. Multipliziert man das Ganze mit 320, sind alle Bild¬ 
schirmzeilen erfaßt. Bis jetzt haben wir also: 

Byte = (Y/8 J * 320 -h ... 

Im nächsten Schritt ist die Zahl der zu überspringenden 
8-Byte-Blöcke zu bestimmen. Sie errechnet sich durch 
ganzzahlige Division des X-Wertes durch acht, also IX/8]. 
Das Ergebnis muß mit acht multipliziert werden, da wir es 
mit 8-Byte-Blöcken zu tun haben. Daraus folgt; 

Byte = [Y/8]*320 -i- (X/8]'8 -i- ... 

Nun müssen wir noch berechnen, das wievielte Byte 
unser gesuchtes ist. Das ist ganz einfach der Rest der Divi¬ 
sion des Y-Wertes geteilt durch acht. Mathematisch hat 
dies eine etwas kompliziertere Form, nämlich Y-(Y/8]*8. 

Das Byte hat also die Nummer; 

Byte = [Y/8] * 320 + [X/8] * 8 -t- Y - [Y/8] '8 ' '' 

Aber wir sollten nicht vergessen, die Startadresse der 
Bitmap zu addieren. Die endgültige Form lautet dann: 

Byte = (Y/8] • 320 + [X/8] • 8 + Y - IY/8] • 8 + Start¬ 
adresse Bitmap 

Die Bestimmung des Bits komplettiert unsere Berech¬ 
nung. Der Rest der Division des X-Wertes durch acht muß 
berechnet werden, um festzustellen, an welcher Stelle 
unser Bit steht. Allerdings werden die Bits von Sieben bis 
Null — also rückwärts — gezählt (siehe Bild 3). Unser vori¬ 
ges Ergebnis müssen wir von sieben abziehen. Als Formel 
ergibt sich: 

Bit = 7-{X-IX/8]*8) 


Bild 3. Interne 
Darstellung 
eines Byte 

Der Algorithmus ist vollständig. Ersieht noch etwas kom¬ 
pliziert aus, läßt sich aber bei der Umsetzung in Assembler 
noch enorm vereinfachen. Einige Arithmetiktricks, mit 
denen wir unsere Routine ausstatten, werden uns dabei 
unterstützen. Durch dreimaliges »Verschieben« einer binä¬ 
ren Zahl nach rechts, erhält man das Ergebnis (A/8], mit A 
= Zahl im Akkumulator (siehe Bild 4). 

Möchte man das Ergebnis von [A/8] * 8 binär ermitteln, 
verschiebt man die binäre Zahl einfach dreimal nach rechts 
und anschließend dreimal nach links. Doch bei genauem 
Ansehen des Ergebnisses in Bild 5, stellt man fest, daß 
lediglich die letzten drei Bit gelöscht wurden. Dasselbe 
Ergebnis erhält man auch, wenn man das Low-Byte mit 
AND #$F8 ($F8 = %11111000) verknüpft. Das High-Byte 
bleibt unverändert. 

Das binäre Ergebnis von A - [A/B] ♦ 8 läßt sich genau 
andersherum ermitteln. Die letzten drei Bits bleiben erhal¬ 



0 

319 


X—Achse 


Y-Achse 

199 



ten, und der Rest wird gelöscht. Wir nehmen dazu AND 
# $07 ($07 =%00000111) (siehe Bild 6). Jetzt haben wir nur 
noch ein Problem, die Multiplikation mit 320. Dazu bedie¬ 
nen wir uns einer algebraischen Umformung: 

A*320 = A*5*64 = (A*4+A)*64 

TrUkreicKe AssembleivArithmetik 


Dies siehtzwar komplizierter aus, jedoch lassen sich Multi¬ 
plikationen und Divisionen mit Zweier-Potenzen durch ein¬ 
faches Verschieben ausführen. Die Multiplikation mit 64 
verbraucht jedoch viel Rechenzeit, denn man muß sechs¬ 
mal 16 Bit verschieben. Wird von einem 8-Bit-Wert ausge¬ 
gangen, so kopiert man den 8-Bit-Wert in das High-Byte, 
setzt das Low-Byte auf Null und dividiert den 16-Blt-Wert 
durch 4 (denn: A * 64 = A * 256/4). Das spart Rechenzeit, 
und da [Y/8] * 5 für ein maximales Y=199 nur 120 ist, also 
ein 8-Bit-Wert, können wir diesen Trick durchaus verwen¬ 
den. 

Das Ergebnis des Bit-Algorithmus werden wir aus einer 
Tabelle der Zweier-Polenzen auslesen. Damit die Subtrak¬ 
tion von der Sieben entfällt, kehrt man die Tabelle um, man 
fängt von der höchsten Potenz an. 

($80, $40, $20, $10, $08, $04, $02, $01) muß die Tabelle 
lauten. 



Jetzt haben wir alle wichtigen Informationen und können 
anfangen, die Routine zu programmieren. Als erstes holen 
wir die Parameter mit Interpreterroutinen. Es ist auch wich¬ 
tig, daß die Routine die Anfangswerte nicht verändert, denn 
sie soll auch von Maschinenroutinen angesprochen wer¬ 
den, die mit den Anfangswerten noch weiterrechnen müs¬ 
sen. Unsere Zwischenspeicher legen wir in die Zeropage. 
Das spart Rechenzeit. 

Zunächst löschen wir das Low-Byte »BAL« (Byte Adresse 
Low). 

LDA #$00 
STA BAL 

Die ganzzahlige Division des Y-Wertes durch acht 
erfolgt, wie schon gesagt, durch dreimaliges Verschieben 
nach rechts. Da wir hier nur einen 8-Bii-Wert haben, führen 
wir die ganze Division auf der 8-Bit-Basis durch: 

LDA YWERT j Y 
LSR J [Y/8] 

LSR 

LSR 

Das vorliegende Ergebnis müssen wir mit fünf multipli¬ 
zieren. Dies geschieht durch zweimaliges Verschieben 
nach links (Multiplikation mit vier) und durch Hinzuaddieren 
des Anfangswertes. Den Anfangswert müssen wir natürlich 
noch speichern, und zwar im High-Byte »BAH« (Byte 
Address High), denn wir bereiten alles vor, um durch 4 zu 
teilen, statt mit 64 zu multiplizieren. Vor einer Addition muß 
normalerweise das Carry-Flag gelöscht werden. Da aber 
beim zweiten ASL das Carry-Flag sowieso gelöscht wird 
(man kann dies nachrechnen) entfällt das CLC. 

STA BAH 

ASL j A » 4 
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(A/8)»8: 

Bsp.: (255/8)*8 = (31.875)»8 = 31*8 = 248 



Bild 5. Arithmetiktrick [A/8] • 8 zum Nachvollziehen In 
anschaulicher Darstellung 

ASL 

ADC BAH j + A 

Jetzt kommt die angekündigte 16-Bit-Division durch vier. 
Das High-Byte steht im Akku, das Low-Byte im Speicher, 
LSR ' 

ROR BAL 
LSR 

ROR BAL 

Auch jetzt ist das Carry-Flag wieder geiöscht, und das 
High-Byte steht immer noch im Akku. Wir addieren nun die 
Startadresse der Bitmap hinzu. Diese ist im Normaifall bei 
$2000, also müssen wir $20 zum High-Byte addieren. 

ADC #520 
STA BAH 

Als nächster Punkt im Algorithmus folgt die Bestimmung 
der zu überspringenden Bytes durch die Division [X/8] * 8. 
Dies ist, wie schon vorher gesagt, nur ein AND #$F8. Das 
High-Byte bleibt unverändert, daesja schon durch acht teil¬ 
bar ist. Das Ergebnis mu8 in einer 16-Bit-Addition zu »BAL/ 
BAH« addiert werden. Das Carry-Flag wurde zuletzt bei der 
Addition der Bitmap-Adresse beeinflußt. Da dort kein Über¬ 
lauf auftrat, verzichten wir hier wieder auf ein CLC:' 

LDA XWERTL J [X/8] * 8 
AND #5F8 
ADC BAL 


A-(A/8)*8: 





Bsp.: 255-(255/8)*8 - 

255-248 

- ? 

1 

1 1 

1 

1 

1 1 1 

- 255 

and 0 

0 0 

0 

0 

1 1 1 

= 7 

0 

0 0 

0 

0 

1 1 1 

= 7 


Bild 6. Arithmetiktrick A - [A/8] • 8 


STA BAL 
LDA XMERTH 
ADC BAH 
STA BAH 

Nun fehlt noch das letzte Glied des Byte-Algorithmus. 
Um die Zeropage effektiv nutzen zu können, wird ein Index 
benötigt. Dazu eignet sich dieser Summand bestens, da er 
nur Werte zwischen null und sieben enthält. Unsere 
Zeropage-Byte-Adresse, wäre also fertig. Berechnen wir 
nun den Index, der dann im Y-Register stehen soll: 

LDA YWERT 

AND #$07 i Y - [Y/8] « 8 
TAY i Index 

Auch zur Ermittlung des Bit werden wir das Ergebnis als 
Index verwenden, allerdings diesmal im X-Register: 

LDA XWERTL 

AND #$07 ; X-[X/8] * 8 

TAX ; Index 

So, jetzt können wir den Punkt setzen. Dazu lesen wir mit 
Hilfe des X-Index das Byte mit dem richtig gesetzten Bit in 
den Akku und transferieren es mit einer ODER- 
Verknüpfung in die berechnete Speicherstelle. Der Punkt 
ist damit gesetzt: 

LDA POTjX ; Byte aus Tabelle lesen 
ORA {BAL),Y ; Byte mit Grafikbyte verknüpfen 
STA {BAL),Y } Verknüpftes Byte aurückschrelben 
RTS 

Der Punkt ist gesetzt, aber wie wird er wieder gelöscht? 
Nichts einfacher als das. Statt dem ORA (BAL),Y müssen 
zwei Befehle ausgeführt werden. 

EOR #$FF 1 Umkehrung 
AND {BAL),Y 





■ ' 5' 

.obJect "G;aetpoint.obj.p.w" 

10 

,b&se ScOQO 


20 

,e<4uate bal-Sf9 

30 

.equate bah=Sfa 

40 

.equate }’vert= 

Sfb 

60 

,equate xwertl 

=$14 

60 

.equate xwerth 

,=815 

70 

, equate chkcoin=Saefd 

60 

.equate setpar 

=8b7ob 

90 

Jsr ahkcoin 


100 

Jar getpar 

; xund y holen 

110 

atx yuert 


120set 

Ida »SOO 

1 bal loaachen 

130 

ata bal 


140 

Ida ywort 

i y 

150 

ler 

;Cy/Bl 

160 

Isr 


170 

Isr 


180 

ata bah 

;a(Cy/6] )*6 s a*4-fa 

190 

aal 


200 

aal 


210 

ado bah 


220 

lar 

; a(6*Cy/81)*64=a*Z66/4 

230 

ror bal 

; =>mab nlt lab vertauachen 

240 

iBr 

i l9-bit-divlalon mit 4 

250 

rer bal 


260 

ade »820 

; bltmap addieren 

270 

ata bah 

iaOZOaCy/S^+SeOOO) 

280 

Ida xwertl 

;l8b(x] 

260 

and »Sf8 

;Cx/6]»6 

300 

ade bal 

ia[Cx/6l*B)+ba 

310 

ata bal 


320 

Ida xwerth 


330 

ade bah 


340 

ata bah 


360 

Ida ywert 

:y-ry/ 8 ]* 0 ,ro 8 t der dlviaion 

360 

and ff$07 


370 

tay 

i Index 

380 

Ida xwertl 

;lBb(x) 

360 

and »907 

;x-tx/8]*8,erblbt blt/nummer 

400 

tax 

1 Index 

410 

Ida pot.x 

;Punkt setaen 

420 

ora (bal),r 


430 

ata (bal),r 


440 

rta 


460pot 

.byte seo,$40. 

820,810 

460 

.byte 808,804,802,SOI 

Listing 1. 

»SETPOINT.SRC« 

Der Source-Code der Set- 


Point-Routine im Giga-Ass-Format 
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Llstlng 2. 
»SETPOINT.OBJ» 
Der Objekt-Code 
der Set-Point- 
Routine. Bitte mit 
dem MSE (Seite 159) 
eingeben. 


NamB t setpoint 


cOOO t 20 fd as 
cOOQ 1 a9 00 aS 
cOiO I 4a BS ta 
cOia I ää tf 4a 
c020 I ia aS 14 
c02e I f9 a5 15 
c030 t (t> 29 07 
C03B I aa bd 41 
C040 > 60 ao 40 
c04B I 01 00 ft 


Qbj cOOO c049 


20 Bb b7 86 ^b Sd 
(9 aS fb 4a 4a - 4a 
Oa Oa 65 fa 4a 69 
66 <9 69 20 es Bl 
29 tB 65 t9 05 C5 
65 fa 8S fa aS f9 
aa aS 14 29 07 44 
cO ll 49 9t 49 44 
20 10 08 04 02 4a 
00 44 00 44 00 49 


Das EOR #$FF kann man weglassen, wenn die Werte 
aus einer Tabelle gelesen werden, deren Inhalt schon 
umgekehrt Ist: 

($7F, $BF, $DF, $EF, $F7, $FB. $FD, $FE). 

Einen Punkt invertiert man, indem man bei normaler 
Tabelle statt einem ORA (BAL),Y ein EOR (BAL),Y schreibt. 

In Llstlng 1 finden Sie den Quellcode im Giga-Ass- 
Format. Der Makro-Assembler Giga-Ass wurde im Sonder¬ 
heft 21 (Basic/Assembler) veröffentlicht. 

In Llstlng 2 ist das fertige Objektfile, das Sie bitte mit dem 
MSE eingeben. Das Programm hat eine Laufzeit von 98 
Taktzyklen (zirka 98 Mikrosekunden = 0.1 Millisekunden). 
Der Aufruf der Routine kann von Basic oder Assembler aus 
erfolgen. In Basic verfährt man folgendermaßen: 

Laden des Objektcodes mit 
LOAD "SETPOINT.OBJ",8,1 
NEW (Rücksetzen der Zeiger) 

Danach muß die Bitmap vom Basic-Programm aus ein¬ 
geschaltet und der Farbspeicher sowie die Bitmap selbst 
gelöscht werden. Um einen Punkt zu setzen, ruft man nun 
die Routine mit 

SYS 49152, x-Koordinate, y-Koordlnate 


1 PRINT CHR*<1471sINPUT "X-KOORDINftTGt "{X <153> 

2 INPUT "Y-KOORDINftTEi "jY <033> 
10 POKE S6S76,PEEK(56S76) OR ts REM VIC AD 

RESSE AUF «6000 <212> 
20 POKE S3272,PEEK(53272) OR B <0il> 
30 POKE S6S76,PEEK(S6S76> OR li REM ViC AD 

RESSE AUF «6000 <Z32> 
40 POKE S3Z65,PEEK(53Z65>0R 32iREM BITMAP 

EIN <157> 
50 FOR 1-1024 TO 2023lPQKE I.liNEXT I <039> 
60 BASE-ei92iREM STARTADRESSE BITMAP <0627 
70 FOR I-BASE TO BABE + 7999iP0Ke I,0|NEXT 

ItREM BITMAP LOESCHEN <ies> 
80 SYS 49152,X.Y <224> 
90 POKE 198,0sMAIT 196,1 <06Z> 


Llstlng 3 »TEST» Ein kleines Demo-Programm zur Set- 
Polnt-Routlne. Bitte mit dem Checksummer (Seite 
159) eingeben. 


auf, Eine BereichsüberprCifung der Koordinaten wird von 
der Setpolnt-Routine aus Geschwindigkeitsgründen nicht 
vorgenommen, Ein kleines Demoprogramm zum Setzen 
eines Punktes, welches dies alles übernimmt, hierzu fin¬ 
den Sie In Listing 3. 

Von Assembler aus verfährt man folgendermaßen: 

Nach der Vorbereitung (Bitmap einschalten und löschen, 
Farbspeicher löschen) werden die Koordinaten in folgende 
Adressen gebracht: 

Low-Byte X-Koordinate: $14 

High-Byte X-Koordinate: $15 

Y-Koordinate $FB 

Der Einsprung erfolgt dann beim Label »SET« an der 
Adresse $C008 (49169 dezimal). Auf der Programm¬ 
service-Diskette sind sowohl Source- als auch Objei^-Code 
enthalten. (Thomas Lipp/ad) 


Hodiauflösende 
Grafiken im Textmoclus 


Will man hochauflösende Grafiken darstellen, 
muß man Immer in den Grafikmodus umschalten. 
Wenn aber nur kleine Grafiken benötigt werden, 
kann man diese auch mit Hilfe von Sprites im Text¬ 
bildschirm verwirklichen. Mit einer komfortablen 
Basic-Erwerterung ergibt sich nicht das geringste 
Problem für den Programmierer. 

B ei »Spritegrafik V1« (Listing 1) handelt es sich um eine 
Basic-Erweiterung, die das Erstellen einer Minigrafik 
aus sechs zusammengesetzten Sprites ermöglicht 
(Bild 1). Diese Kleinstgrafik läßt sich durch verschiedene 
Befehle verändern und bearbeiten. Die Grafik verfügt über 
eine Auflösung von 71 x 41 Bildpunkten. Durch diese zwar 
kleine, aber dennoch ausreichende Auflösung können 
kleine Grafiken im normalen Textmodus gezeichnet wer¬ 
den. 

Da die Grafik nicht an eine bestimmte Bildschirm Position 
gebunden ist, lassen sich auch die verschiedensten Effekte 
durch das Verschieben der Grafik erzielen. 

Eine solche Grafik ist deshalb so außerordentlich vorteil¬ 
haft, weil man nicht zwischen Text- und Grafikmodus in 
Form einer hochauflösenden Grafik hin- und herschalten 


muß, um die Darstellung verschiedener Grafiken im Pro¬ 
gramm zu erhalten. Der Fantasie sind bei der Gestaltung 
der Minigrafik keinerlei Grenzen gesetzt. 

Bedienungsanleitung 


Spritegrafik VI wird ganz normal wie ein Basic-Programm 
geladen und mit RUN.gestartet. Es wird nun automatisch 
In seinen endgültigen Speicherbereich verschoben und Ini¬ 
tialisiert. Man verfügt hiernach noch immerhin über 35156 


Bild 1. Nach diesem 
Schema sind die 
Sprites in der »Sprite- 
graflk VI« angeordnet 

Byte für Basic-Programme. Diese Speicherplatzverminde¬ 
rung ergibt sich, da Spritegrafik VI den Basic-Bereich von 
2048 ($0800) bis 5799 ($16A7) für die Grafik sowie das 
eigentliche Spriteprogramm verwendet. Dieser Lösungs- 
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weg ergab sich, weil man durch diese Änderung des Pro¬ 
gramms den viel verwendeten Speicherbereich von 49152 
(SCOOO) bis 53247 ($CFFF) weiter zur Verfügung hat. Als 
weiteres entfiel das Umschalten in einen freien Bereich, um 
Platz für die Sprites der Grafik zu erhalten. 

Sollte Spritegrafik VI durch einen Reset ausgeschaltet 
worden sein, ist es möglich, Spritegrafik VI durch »SYS 
2620» neu zu starten. 

Die Befehle von Spritegrafik 


Spritegrafik Vl-Befehle werden durch »-« gekennzeich¬ 
net. Dadurch ist eine schnelle Abarbeitung der Befehlser¬ 
kennung gewährleistet. Die Spritegrafik Vl-Befehle lassen 
sich nicht abkürzen, Eine weitere Einschränkung besteht 
darin, daß die Befehle, die dem Basic-Befehl »THEN« fol¬ 
gen, mit einem Doppelpunkt»;« getrennt werden müssen. 
Beispiel hierzu: 

IF A = 100 THEN : - KILL 


Diverse Speicherbelegung von Spritegrafik VI 
2040 bis 2047 - Spritepointer 
2048 bis 2431 - sichtbares Spritegrafik-Blld 
2432 bis 2815 - Spritegrafik Bild 2 bei —TRANS. — EX. 
-AND. -OR 


Interne Zwiechenepelcher von Spritegrafik 
2937 bis 2954 - Daten der Fehlermeldung 

2955 - X-Koordinale der Grafik beim - SET-, — JOY- 

und -HiRES-Befehl 

2956 - Y-Koordlnate der Grafik beim -SET-, —JOY- 

und -HIRES-Befehl 

2957 bis 2966 - 10-Byte-Zwlschenspelcher beim - LOAD-Befehl 
2967 bis 3042 - Befehlstabelle von Spritegrafik 

3043 bis 3167 - Titel/Wortsohatz 


Sinuskurve mit Koordinatenkreuz: 0 
10 -HIRES,0,0,1:-KILL 
20 -XLINE,0,71,21,0 


Die Befehle Im einzelnen: 

- HIRES,X,Y.C 

Schaltet Spritegrafik an, plaziert sie an 

- DOWN 

Zylindrisches Scrollen der Grafik nach 


angegebener X/Y-Koordinate. »C« steht für 


unten. 


die Farbe. 

- NIRQ 

Normalzustand aller interruptgesteuerten 

- ON 

Anschalten der Spritegrafik. 


Befehle, Der —QUICK-Befehl wird somit 

- OFF 

Ausschalten der Spritegrafik. 


gestoppt. 

- KILL 

Löschen der Grafik. 

- SAVE,(FILE),Z 

Speichert beide Grafikbilder. »Z« gibt hierbei 

- INV 

Invertieren der Grafik. 


die Geräteadresse an. 

- ZOOM 

Vergrößert die Grafik auf das Doppelte. Die 

- LOAD,(FILE).Z 

Lädt beide Grafikbllder. »Z« gibt wieder die 


Auflösung der Grafikpunkte bleibt hierbei 


Geräteadresse an. 


bestehen. Die Grafik läßt sich In diesem Fall 

- PLOT.X.Y.F 

Setzt einen Grafikpunkt an die X/Y- 


nicht über den Bildschirm bewegen. Sie Ist 


Koordinate. Die erlaubten Werte sind hier 


somit an die linke obere Ecke gebunden. 


X=(0-71), Y=(0-41). »F« bestimmt hier wie 

- MINI 

Bringt die Grafik wieder auf NormalgröBe! ' - ^ 


bei den nächsten Befehlen den Plotmodus. 

- EX 

Vertauschen von zwei Grafikbildern, wobei 


(F=0 Punkt setzen, F'=1 Punkt löschen, 


sich das zweite Grafikbiid im internen Spei- 


F=2 Punkt invertieren.) 


Cher von Spritegrafik befindet. 

- BLOCK, 

Zeichnet ein ausgefülltes Rechteck, wobei 

- TRANS 

Kopiert das sichtbare Grafikbild In das 

X,Y,X,Y.F 

Start- und Endadresse angegeben werden. 


zweite hinein. 

- REC,X,Y,X,Y,F 

Zeichnet ein Rechteck. Die Koordlnatenzu- 

- AND 

Verknüpft beide Grafikbilder in Form einer 


Weisung entspricht dem —BLOCK-Befehl. 


AND-Verbindung. 

- XLINE,X,X,Y,F 

Zeichnet eine Linie auf einer festen Y- 

- OR 

Verknüpft beide Grafikbllder in Form einer 


Koordinate. Es werden Start- und Endpunkt 


OR-Verbindung. 

. 

angegeben sowie die feste Y-Koordlnate. 

- FILL,(WERT) 

Füllt die Grafik mit angegebenem Wert. 

- YLINE,Y.Y,X,F 

Wie —XLINE, nur feste X-Koordlnate. 

- COL,(FARB- 

Änderung der Qraflkfarbe. 

- JOY 

Erlaubt das Verschieben der Grafik mit dem 

WERT) 


Joystick in Port 2 während des laufenden 

- SET.X.Y 

Positioniert die Grafik an angegebener X/Y- 


Programms. Die Grafik wird In die entspre- 


Koordinate. Der maximale Wert der X- 


chenden Richtungen des Joysticks um ein 


Koordinate Ist 248 und der Y-Koordlnate 


Bit verschoben. Wird der Feuerknopf 


beträgt 158. Höhere Werte werden durch 


gedrückt, schaltet sich der — JOY-6efehl 


eine Fehlermeldung quittiert. 


automatisch ab und die Grafik bleibt auf 

- QUICK, 

Bewirkt einen Farbwechsel Im Zeitrhythmus. 


ihrer gewünschten Stelle stehen. Oer Befehl 

(WERT) 

Der Zeltrhythmus wird durch die Werten- 


läßt sich außerdem mit -NIRQ abstellen. 

gäbe gesetzt. Bel 0 - schnell und bei 265 

- GRAB.Z 

Ändert die Priorität gegenüber den 


sehr langsam. 


Textbuchstaben. Bei *Z« » 0 ist die Priorität 

- UP 

Zylindrisches Scrollen der Grafik nach 


Grafik vor Textbuchsfaben, bei »Z« » 1 Gra- 


oben. 


fik hinter Textbuchstaben, 


Zeropage-Zwischenspelcher für die Spritegrafik 

$C1 - X-Startkoordlnate bei-XLINE,-REC, 

$02 - Flag für Plot (0>setzen, 1-I08chen, 

-BLOCK und so weiter 

2>invertieren) 

$C2 - Y-Startkoordina!e bei — YLINE, — REC, 

$22 - Flag für Fehlermeldung 

—BLOCK und so weiter 

$gE - Zeitkonstante beim -JOY-Befehl 

$C3 - X-Endkoordlnate bei-XLINE.-REC. 

$9F - Zähler beim —JOY-Befehl 

—BLOCK und so weiter 

$A5 bis SAA - Zwischenspeicher beim Scrollen 

$C4 - Y-Endkoordinate bei-YLINE,-REC, 

SB2 bis 3B4 - Zwischenspeicher beim Scrollen 

-BLOCK und so weiter 

$B5 - Zeltkonstante beim -OUICK-Befehl 

$FA - Low-Adresse bei Plot 

$B6 - Zähler beim-OUICK-Befehl 

SFB - HIgh-Adresse bei Plot 

$B7 - Zwischenspeicher 

SFC - X-Koordinate bei Plot 

SBB - Zwischenspeicher 

$FD - Y-Koordlnate bei Plot 

SBC - Zwischenspeicher 

SFE - Zwischenspeicher 
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C64 


TIPS & TRICKS 


30 -YLINE,0,41, 34,0 
40 -F0RX=0T071STEP,5 
50 -Y=20»SIN(X/ll)+20 
60 •“PL0T,X,Y,0 
70 NEXTX 

Möglichkeit für den BLOCK-Befehl: 

10 -HIRES,0,0,1:-KILL 
20 G0SUB50:-BLOCK,A,B,C,D,0 
30 G0SUB50:-BLOCK,A,B,C,D,l 
40 GOT020 

50 A=INT(72«RND(1)) 

60 B=INT(42*RND(1)) 

70 C=INT(72»RND(1)) 

80 D=INT(42»RND(1)) 

90 RETURN 

Bewegung mit dem —REC-, —XLiNE- und —YLiNE- 
Befehi: 

10 -HIRES,0,0,1:-KILL 
20 FORA=0TO35 


30 -KILL:-REC,A,A*. 56 ,71-A,4l-A».56,0 

35 -XLINE,A,71-A,20,0 

36 -YLINE,A«.56,41-A*.56,35,0 
40 FORB=0TO6:NEXTB,A 

60 FORA=35TOOSTEP-1 

70 -KILL:-REC,A,A*.56,71-A,41-A».56,0 

75 -XLINE,A,71-A,20,0 

76 -YLINE,A*.56,41-a«.56,35,0 
80 FORB=0T06:NEXTB,A 

90 GOT020 

Simuiation eines bewegten Mini-Weltraums: 

10 -HIRES,0,0,3:-KILL 
20 X=INT(72«RND(1)) 

30 -PLOT,X,0,0 
40 -XLINE,0,71,41,1 
50 -DOWN 
60 GOT020 

{Stefan Bartnitzky/sk) 
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C64 


STATISTIK 



Daten im Griff mit Statistikus 


Das Basic V 2.0 des C64 eignet sich für statisti¬ 
sche Auswertungen nur sehr begrenzt. Mit Stati¬ 
stikus erhalten Sie 42 zusätzliche Befehle, mit 
denen Sie viele Probleme der Kombinatorik und 
Statistik leicht in den Griff bekommen. 

D urch die Basic-Erweiterung »Statistikus» stehen dem 
Anwender 42 neue Befehle zur Verfügung. Dabei sind 
die dem mageren Basic V2.0 des C 64 fehlenden Ar¬ 
cus-, Hyperbel- und Area-Funktionen ebenso implemen¬ 
tiert, wie hochkarätige Berechnungen aus Statistik und 
Kombinatorik. Auch eine sehr genaue Berechnung des 
Elllpsenumfangs und ein besonderer Modulo-Befehl wur¬ 
den mit aufgenommen. Die meisten Befehle lassen sich bei 
der Eingabe abkürzen. Darüber hinaus ist es bei einigen 
Funktionen möglich, den Funktionswert logarlthmisch 
berechnen und anzeigen zu lassen (LN-Modus). Dies hat 
den Vorteil, daß auch bei großen Werten, die den Bereich 
des Computers übersteigen, kein »Overflow Error« auftritt. 
Von Anfang an Ist der Normal-Modus (NRM) eingestellt. 

logarithmisfhe- oder 
Hormaldorstellung 


Die Basic-Erweiterung ist vollkommen in Maschinenspra¬ 
che geschrieben und belegt den Bereich von $C000 bis 
SCFFF. Ab $CE7F sind Tabellen angesiedelt. Laden Sie 
das Programm, das Sie vorher mit dem MSE eingegeben 
haben (Eingabehinweise Seite 159) mit 
LOAD »STATISTIKUS.,8,1 


Nach dem Laden und der Eingabe von NEW muß Statisti¬ 
kus mit SYS 49260 initialisiert werden. Abgeschaltet wird 
die Erweiterung mit SYS 49274. Tabelle 1 enthält den 
Befehlsvorrat, mit Abkürzungen und Einsprungstellen für 
diejenigen unter Ihnen, die gerne die Berechnungen der 
einzelnen Funktionen verfolgen und eventuell verbessern 
wollen. Bei den Abkürzungen sind die mit <SHIFT> ein¬ 
zugebenden Buchstaben in Klammern gesetzt. Ist eine 
Abkürzung nicht möglich, so enthält die Spalte einen 
Strich. 

Parameterübergabe in Bask 


Notwendige Parameter werden von Basic aus in die Varia¬ 
blen PI. P2, P3, P4 übergeben (siehe Beispiele bei den ein¬ 
zelnen Befehlen). Der Funktionswert Ist nach Aufruf des 
Funktionsnamens in der Variablen FW enthalten und kann 
von Basic aus dann weiterverarbeitet werden. Die Parame¬ 
ter für Winkelfunktionsberechnungen sind Im Bogenmaß 
anzugeben. Das Programm stellt zwei Befehle für derartige 
Umrechnungen zur Verfügung. Zu den einzelnen Befehlen 
sind die zulässigen Argumentbereiche angegeben. Enthal¬ 
ten diese Argumentbereiche nur Zirka-Zahlen, so bedeutet 
dies, daß der Bereich wohl noch über- oder unterschritten 
werden kann, es jedoch aus Qenauigkeitsgründen nicht 
ratsam ist. Die Einhaltung der Argumentbereiche wird von 
Statistikus nicht überprüft. 

Nachfolgend wollen wir Ihnen zeigen, wie Sie die 42 
neuen Befehle benutzen können und mit welcher Syntax 
sie angesprochen werden. Einige Beispiele und Bilder ver¬ 
anschaulichen die trockene Mathematik. 
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B*ient 

At>- 

kUraung 

Elniprung 

Betshi 

Ab¬ 

kürzung 

Einsprung 

QRA 

Gifl) 

$CE6C 

PSN 


SC6S7 

RAG 

H(A) 

SCE7e 

OSN 

— 

SC6C5 

ARCS 

AIR) 

$C391 

ASN 

— 

sceoe 

ACOS 

A(C) 

$C39a 

BINV 


$CBA1 

ACOT 

— 

SC3A9 

HYPV 

H(Y) 

$0906 

KSIN 

H(S) 

SC3ED 

PSONV 

PS(0) 

SCA06 

HC08 

H(C> 

SC409 

TNULL 

T(N) 

$CA41 

HTAN 

HfT) 

SC433 

TEINS 

T{6) 

$CA7C 

HCOT 

— 

$C43A 

TZWEI 

T(Z) 

SCAAD 

AHSIN 

AH(8) 

SC44e 

TDREI 

T(D) 

SCADE 

AHCOS 

AH(C) 

$C471 

TVIER 

T(V) 

$C0OF 

AHTAN 

AH(T) 

SC4AB 

PSUMF 

PS(U) 

SCB40 

AHCOT 

— 

$C4E3 

CSQR 

C(8) 

$CBFF 

FAK 

F(A) 

$C706 

OWP 

— 

BCCCF 

OAU 

Q(A) 

$C7BB 

OWKO 

OW(f<) 

SCCb2 

SINK 

B(l) 

$C897 

MWKO 

MW(K) 

SC010 

ELU 

E(L) 

$C4FE 

OWV 

— 

$CCD3 

DNV 

D(N) 

$CSC2 

MWV 

— 

$CD52 

NPSUM 

N(P) 

SC616 

LN 

— 

$CD76 

NQSUM 

N(Q) 

$C61D 

NRM 

N(fl) 

SCDEC 

NASUM 

N(A) 

$C62E 

MOD 

U(0) 

$C274 



Inliiallsleren: SYS 49260 





Abschalten: 

SYS 49274 




Tabelle 1. Diese 42 neuen Befehle stehen Ihnen mit der 
Basic-Erwelterung Statlskus zur Verfügung 


Umrechnung von Grad In Bogenmaß 
PI: X in Grad 

Argumentbereich: zirka-1E10 < x < zirka 1E10: 

X Fließkommazahl 
FW; Bogenmaß 

Beispiel: 90 Grad soll in Bogenmaß umgerechnet werden. 
PI = 90 : GRA : PRINT FW ergibt 1,57079633 

RAG 

Umrechnung von Bogenmaß In Grad 
PI: X in Bogenmaß 

Argumentbereich: zirka •1.7E8 < x < zirka 1.7E8: 

X Fließkommazahl 
FW: Grad 

Beispiel: Das Bogenmaß 3.141592654 soll in Grad 
umgerechnet werden. 

Pl • 3.141592654 : RAG : PRINT FW ergibt 180 

ARGS 

Berechnung des Arcussinus 
PI; X 

Argumentbereich: zirka -.9999 < x < zirka .9999; 

X Flleßkommazahl 
FW: Arcsln(x) 

Beispiel: 

Pl = .523598776 ! ARCS : PRINT FW ergibt .551069583 

ACOS 

Berechnung des Arcuscosinus 
P1:x 

Argumentbereich: zirka -.9999 < x < zirka .9999; 
x Fließkommazahl 
FW: Arccos(x)- 
Beispiel: 

Pl = .5 i ACOS : PRINT FW ergibt 1.04719755 


ACOT 

Berechnung des Arcuscotangens 
P1:x 

Argumentbereich: zirka-1E8 < x < zirka 1E4; 
x Flleßkommazahl 
FW: Arccot(x) 

Beispiel: 

Pl = 4.25 : ACÖI : PRINT FW ergibt .231090667 
HSIN 

Berechnung des Hyperbelsinus 
Pl: X 

Argumentbereich: -88 < x < 88; x Fließkommazahl 
FW: Sinh(x) 

Beispiel: 

Pl . 2.11 : HSIN : PRINT PW ergibt 4.06350166 

NCOS 

Berechnung des Hyperbelcoslnus 
Pl: x 

Argumentbereich: -88 < x < 88; x Fließkommazahl 
FW: Co8h(x} 

Beispiel: 

Pl = 32 : NCOS : PRINT FW ergibt 3.94814801 E13 

HTAN 

Berechnung des Hyperbeltangens 
Pl: X 

Argumentbereich: -88 < x < 88; x Flleßkommazahl 
FW: Tanh(x) 

Beispiel: 

Pl » -5.5 : HTAN : PRINT FW ergibt-.999966597 

OnciP r ■■ 

HCOT 

Berechnung des Hyperbelcotangens 
P1:x 

Argumentbereich: -88 < x < 88; x Flleßkommazahl 
FW: Coth{x) 

Beispiel: 

Pl « 1.5 : HCOT : PRINT FW ergibt 1.10479139 


AHSIN 

Berechnung des Areasinus 
Pl; X 

Argumentbereich; zirka -20 < x < 1E18; x Flleßkommazahl 
FW; Arsinh(x) 

Beispiel: 

Pl ■ 18 : AHSIN : PRINT FW ergibt 3.58428965 


AHCOS 

Berechnung des Areacosinus 
Pl; x 

Argumentbereich; 1 < x < 1E18; x Flleßkommazahl 
FW; Arcosh(x) 

Beispiel: 

Pl ■ 45 : AHCOS : PRINT FW ergibt 4.49968619 


AHTAN 

Berechnung des Areatangens 
P1:x 

Argumentbereich: zirka -.9999 < x < zirka .9999; 
X Flleßkommazahl 
FW: Artanh(x) 

Beispiel: 

Pl « -.745 : AHlÄN : PRINT FW 
ergibt -.961623144 
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AHCOT 

Berechnung des Areacotangens 
P1:x 

Argumentbereich: zirka -1000 < x < zirka -1.0001 
und zirka 1.0001 < 

X < zirka 1000; x FiieBkommazahl 
FW: Arcoth(x) 

Beispiei: 

PI ■ 22 : AHCOT : PRINT PW 
ergibt .0454858892 


DNV 

Dichtefunktion der standardisierten Normaiverteiiung 
(Bild 1) 

P1:x 

Argumentbereich: -13 < x < 13; x Fiie8kommazahi 
FW: ^(x) 

Beispiei: 

Pl » -2.5 : DNV : PRINT FW 
ergibt 0,0175283005 


FAK 

Berechnung der Fakultät 
Pl:x 

Argumentbereich NRM-Modus: 0 ä x ä 33 
LN-Modus: 0 ä x < zirka 1E4; x ganzzahlig 
FW: x! 

Beispiel 1: 

Pl « 12 : FAK : PRINT FW ergibt 479001600 
Beispiel 2: 

LN : Pl = 5000 : FAK : PRINT FW 
ergibt 37591.1435, entsprechend zirka 4.229 £18325 
Im LN-Modus wird das Ergebnis als Logarithmus zur Basis »e« 
(Eulersche Zahl) angegeben. 

GAM 

Berechnung der Gammafunktion 
P1:x 

Argumentbereich NRM-Modus: 1 < x < 34 
LN-Modus: 1 s x < zirka 1E4; x Fließkommazahl 
FW: GAMMA(x) 

Beispiel 1: 

Pl = s- : GAM : PRINT FW ergibt 2.28803779 
Beispiel 2: 

LN : Pl = 7135.17 : GAH : PRINT FW 

ergibt 56170.1873 entsprechend zirka 2.526 E24394 


BINK 

Berechnung des Binomialkoeffizienten (pg) 

P1: obenstehendes Argument 
P2: untenstehendes Argument 

Argumentbereich NRW-Modus: 0 s Pl s 130; 0 s P2 s 130; 
Pl a P2 

LN-Modus: 0 s Pl < zirka 1E4: 0 s P2 < zirka 1E4; Pl z P2 

Pl, P2 Fließkommazahl 

FW: 

Beispiel 1: 

Pl » 5 : P2 » 3 : BINK : PRINT FW ergibt 10 
Beispiel 2: 

LN : Pl ■ 400.35 : P2 « 123.67 i BINK : PRINT FW 
ergibt 244.3612 entsprechend zirka 1.33266 E106 



Bild 1. Dichtefunktion der standardisierten Normal¬ 
verteilung 


NPSUM 

Summenfunktion der standardisierten Normalverteilung (P) 
(Bild 2) 

P1:x 

. Argufjsc’bereich: 0 s x < zirka 5; x Fließkommazahl 

FW: i'f(x)dx 
Beispiel; 

Pl = 1.645 : NPSUM : PRINT FW ergibt .95001511 



ELU 

Hochgenaue Berechnung des Ellipsenumfangs 
Dieser Befehl wurde mit aufgenommen, well das ent¬ 
sprechende Integral nicht in geschlossener Form lösbar Ist 
und dis In den meisten Büchern angebotsnen Formeln nur 
recht ungenaue Näherungswerte ergeben. 

Pl: große Halbachse 
P2: kleine Halbachse 

Argumentbereich; zirka 1 E-19 < Pl < zirka 1 E18; 

zirka 1 E-19 < P2 < zirka 1E18 

Pl > P2; Pl, P2 Flieflkommazahlen 

FW: Ellipsenumfang 

Beispiel: 

Pl = 32.5 : P2 = 2.33 : ELU : PRINT FW 
ergibt 131.178437 


Bild 2. Summenfunktion der standardisierten Normaivertei¬ 
iung (P) 


NQSUM 

Summenfunktion der standardisierten Normalverteilung (Q) 
(Bild 3) 

Pl: X 

Argumentbereich: 0 ^ x < zirka 5; x Fließkommazahl 
FW: ff(x)dx 

X 

Beispiel: 

Pl = 3.2 ! NQSUM : PRINT FW 
ergibt 6.87202079 E-04 
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Bild 3. Summenfunktion der standardisierten Normalvertei¬ 
lung (Q). Befehl; NQSUM 

NASUM 

Summenfunktion der standardisierten Normalvertellung (A) 
(Bild 4) 

PI: X 

Argumentbereich; 0 s x < zirka 5; x Fließkommazahl 

FW: j'f(x) dx 
Beispiel: 

Pl a 3.291 : NASUH : PRINT FW 
ergibt .999001563 



Bild 4. Summenfunktion der standardisierten Normelvertel- 
lung (A) 


PSN 

Schranke der standardisierten Normalverteilung (P) (Bild 5} 
PI: Fläche P 

Argumentbereich; 0.5 < P < zirka 0.9999999; 

P Fließkommazahl 
FW; Schranke (P) 

Beispiel: 

Pl • .95 : PSN ! PRINT FW ergibt 1,64521144 



QSN 

Schranke der standardisierten Normalvertellung (Q) 
(Bild 6) 

Pl: Fläche 0 

Argumentbereich; 0 < 0 s 0.5; 0 Fließkommazahl 
FW. Schranke (0) 

Beispiel: 

Pl » .1 : QSN : PRINT FW ergibt 1.28172876 



Bild 6. Schranke der standardisierten Normalverteilung (Q) 
ASN 

Schranke der standardisierten Normalverteilung (A) 

(Bild 7) 

Pl: Fläche A 

Argumentbereich:, 0 £ A < zirka 0.9999999; 

A Fließkommazahi 
FW: Schranke (A) 

Beispiel; 

Pl = .9995 : ASN : PRINT FW ergibt 3.48093442 



Bild 7. Schranke der standardisierten Normalvertellung (A) 


BINV 

Binomialverteilung 

Die Wahrscheinlichkeiten der Binomialverteilung werden am 
verständlichsten beschrieben durch den Urnenversuch; In 
einer Urne befindet sich ein Bruchteil p von schwarzen und 1 - 
p von weißen Kugeln. Es werde eine Kugel herausgezogen und 
anschließend wieder zurückgelegt. Die Wahrscheinlichkeit b«, 
daß nach n solcher Züge gerade s schwarze Kugeln gezogen 
werden, berechnet dieser Befehl. 

P1:n; P2:8;P3;p 

Argumentbereich NRM-Modus: 0 < n < zirka 100; 0 < s < n 
< zirka 100 ; 0 < p < 1 

LN-Modus: 0 < n < zirka 1E6; 0 < s < n < zirka 
1E6; 0 < p < 1 

n,s ganzzahlig; p Fließkommazahl 
FW; b* 

Beispiel 1: 

Pl = 10 : P2 = 1 : P3 = .3 : BINV : PRINT FW 


ergibt ,121060822 



Bild 5. Schranke der standardisierten Normalverteilung (P) 
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Beispiel 2: 

Pl « 5000 : P2 « 100 : P3 • .1 : LN I BINV : PRINT FW 
ergibt -259.541735 entsprechend zirka 1.91627 E-113 


Beispiel 2: 

Es sei der t-Wert für den Freiheitsgrad f • 100 und die zwei¬ 
seitige Sicherheit 99.9% zu ermitteln. 

Pl = 100 : TDREI ; PRINT FW ergibt 3.38965742 


HYPV 

Hypergeometrische Verteilung 

Auch die Wahrscheinlichkeiten der hypergeometrischen Vertei¬ 
lung sollen am Urnenversuch erläutert werden: Die Urne ent¬ 
halte N Kugeln, darunter S schwarze. Man ziehe n Kugeln 
ohne zurückzulegen heraus. Die Wahrscheinlichkeit h», daß 
hierunter s schwarze Kugeln sind, berechnet dieser Befehl. 
P1:N:P2;S: P3:n;P4:8 

Argumentbereich NRM-Modus: 0 < N < zirka 100; 0 < S < 

N < zirka 100; 

0 < s s n < zirka 100; 0 < n < N < zirka 100; 

LN-Modus: 0 < N < zirka 1E6; 0 < S < N < zirka 1E6; 

0 < n < N < zirka 1E8; 0 < s s n < zirka 1E6 
N,S,8,n ganzzahlig 
FW; h, 

Beispiel 1; 

Pl » 49 : P2 = 6 : P3 » 6 : P4 = 3 : HYPV : PRINT FW 

ergibt .0176504052 
Beispiel 2; 

Pl s 1E5 : P2 = 32000 : P3 = 2000 : P4 » 3 : LN : HYPV : 
PRINT FW 

ergibt -762.051952 entsprechend 1.10928 E-331 


PSONV 

Poissonverteilung 

Die Poissonverteilung wird verwendet zur Beschreibung selte¬ 
ner Ereignisse. Ist \ die mittlere Anzahl der Ereignisse einer 
großen Zahl verschiedener Stichproben, dann ist p« die VWilir- 
scheinlichkeit dafür, daß eine beliebig gezogene Stichprobe 
genau s Ereignisse aufweist. 

Pl: X P2: s 

Argumentbereich NRM-Modus: 0 < X < zirka 100; 0 s s < 
zirka 100 

LN-Modus: 0 < X < zirka 1E6; 0 s s < zirka 1E6 
X Fließkommazahl, s ganzzahlig 
FW: p, 

Beispiel 1: 

Ein radioaktives Material hat eine mittlere Zerfallsrate von 25 
Zerfällen pro Sekunde. Wie groß ist die Wahrscheinlichkeit ps, 
daß genau 18 Zerfälle registriert werden? 

Pl = 25 : P2 ■ 18 : PSONV : PRINT FW 
ergibt 0.0315658214 
Beispiel 2: 

Pl « 300 : P2 - 100 ! LN : PSONV : PRINT FW 
ergibt -93.361128 entsprechend zirka 2.843003 E-41 

TNULL, TEINS, TZWEI, TDREI, TVIER 

Student’sche t-Verteilung (Bild 8) 

Den folgenden 5 Befehlen ist gemeinsam, daß sie für 
zweiseitige statistische Sicherheit gelten. Oie t-Werte sind 
abhängig vom Freiheitsgrad f. 

Es wurden die für statistische Zwecke am meisten verwende¬ 
ten Sicherheiten 90%, 95%, 99%, 99.9% und 99.99% 
implementiert. Die entsprechenden Befehlsnamen heißen In 
gleicher Reihenfolge TNULL, TEINS, TZWEI, TDREI, TVIER. 
P1:f 

Argumentbereich: 1 s f < zirka 1E4; f ganzzahlig 
FW: TNULL, TEINS, TZWEI, TDREI oder TVIER 
Beispiel 1: 

Es sei der t-Wert für den Freiheitsgrad f = 3 und die zweisei¬ 
tige Sicherheit 95% zu ermitteln. 

Pl = 3 : TEINS : PRINT FW ergibt 3.18415257 


noch« 90X,9SX.99%,99.9X oder 99.99X 



Bild 8. Die Kurve der Student'schen t-Verteilung 
Fläche 90%, 95%, 99%, 99,9%, oder 99,99% 

PSUMF 

F-Vertellung (Bild 9) 

Die F-Verteilung ist eine statistische Verteilung, die bevorzugt 
verwendet wird zum Nachweis systematischer Unterschiede 
zweier Standardabweichungen. Sie ist abhängig von den Frei¬ 
heitsgraden fl, f2 und F. 

Der Befehl berechnet die Fläche <t> (F) 

Pl: F; P2; fl; P3: f2 

Argumentbereich: 1 < F < zirka 100; fl > 4; f2 > 4; 

F Fließkommazahl; fl, f2 ganzzahlig 
FW: 0 (F) 

Beispiel: F = 2.35; fl = 10; f2 = 20; gesucht 0 (F). 
□pa.inar^- : P2 =« lO ; P3 = 20 : PSUMF : PRINT FW 
ergibt .950207617 oder zirka 95.0% 



CSQR 

Chl-Quadrat-Vertellung (Bild 10) 

Pl: Fläche P2; Freiheitsgrad f 

Argumentbereich; 0.5 < * (x2) < 1; ^ (x®) Fließkommazahl; f 

ganzzahlig 



Bild 10. Eine charakteristische Chl-Ouadrat-Vertellung 
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FW;x2 

Beispiel: = 0(x^O.g5;f > 15; 

Pl • .95 : P2 • 15 : CSOR : PRINT FU 
ergibt 25.0057207 

OWP 

Permutationen ohne Wiederholung 
PI: Anzahl Elemente n 
Argumentbereich NRM-Modus: 0 < n < 34 
LN-Modus: 0 < n < zirka 1E4 
n ganzzahlig 

FW: Anzahl der Permutationen ohne Wiederholung 

Beispiel 1: Anzahl Elemente 3 

Pl » 3 : OWP : PRINT FW ergibt 6 

Drei Dinge x, y, z lassen sich auf 6 Arten anordnen: 

xyz. xzy, yzx, yxz, zxy, zyx 

Beispiel 2: 

Pl = 100 : LN : OWP ! PRINT FW 

ergibt 363.739375 entsprechend 9.33262 E157 


OWKO 

Kombinationen ohne Wiederholung 
P1: Anzahl Elemente n; P2; Klasse r 

Argumentbereich NRM-Modus: 0 < n < 131; 0 < r s n < 131 
LN-Modus: 0 < n < zirka 1E4; 0 < r s n < zirka 1E4 
n,r ganzzahlig 

FW: Anzahl der Kombinationen ohne Wiederholung von n Ele¬ 
menten zur r-ten Klasse 
Beispiel 1: 4 Elemente zur zweiten Klasse 
Pl = 4 : P2 = 2 : OWKO ; PRINT FW ergibt 5.99999999 (=6) 

Vier Dinge a, b, c, d lassen sich auf diese Art folgendermaBen 
zur zweiten Klasse anordnen; 
ab, ac, ad, bc, bd, cd 
Beispiel 2: 

Pl = 400 : P2 = 200 : LN ; OWKO : PRINT FW 
ergibt 274.036724 entsprechend zirka 1.02953 E119 

MWKO 

Kombinationen mit Wiederholung 

Jede Kombination darf dasselbe Element mehrfach 

enthalten. 

P1; Anzahl Elemente n; P2: Klasse r 
Argumentbereich NRM-Modus; 0 < n < 65; 0 < r < 65 
LN-Modus: 0 < n < zirka 1E4: 0 < r < zirl« 1E4 
n,r ganzzahlig 

FW: Anzahl der Kombinationen von n Elementen zur r-ten 

Klasse mit Wiederholung 

Beispiel 1: 4 Elemente zur zweiten Klasse 

Pl = 4 : P2 ■ 2 : MWKO : PRINT FW ergibt 10 

Vier Dinge a. b, c, d lassen sich auf diese Art folgendermaBen 

zur zweiten Klasse anordnen: 

aa, ab, ac, ad, bb, bc, bd, cc, cd, dd 

Beispiel 2: 

Pl - 400 : P2 « 200 : LN : MWKO : PRINT FW 
ergibt 378.137105 entsprechend zirka 1.67068 Eie4 


owv 

Variationen ohne Wiederholung 

Jedes Element kommt In einer Variation nur einmal vor. 

Pl: Anzahl der Elemente n; P2: Klasse r 
Argumentbereich NRM-Modus: 0 < n < 34; 0 < r < 34 
LN-Modus: 0 < n < zirka 1E4: 0 < r < zirka 1E4 
n,r ganzzahlig 

FW: Anzahl der Variationen von n Elementen zur r-ten Klasse 
ohne Wiederholung 


Beispiel 1: 3 Elemente zur zweiten Klasse 

Pl « 3 : P2 * 2 : OWV : PRINT FW ergibt 6 

Drei Dinge a, b, c lassen sich auf diese Art folgendermaßen 

zur zweiten Klasse anordnen; 

ab, ac, bc, ba, ca, cb 

Beispiel 2: 

Pl » 400 I P2 ■ 200 : LN : OWV : PRINT FW 
ergibt 1137.26871 entsprechend zirka 8.11942 E493 


MWV 

Variationen mit Wiederholung 

Jedes Element kann in einer Variation mehrfach 

Vorkommen. 

Pl; Anzahl der Elemente n; P2: Klasse r 
Argumentbereich NRM-Modus: 0<n<27;0<r<27 
LN-Modus: 0 < n < zirka 1E4: 0 < r < zirka 1E4 
n,r ganzzahlig 

FW: Anzahl der Variationen von n Elementen zur r-ten Klasse 
mit Wiederholung 

Beispiel 1: 3 Elemente zur zweiten Klasse 

Pl = 3 : P2 = 2 : MWV ; PRIKT FW ergibt 9 

Drei Dinge a, b, c lassen sich auf diese Art folgendermaßen 

zur zweiten Klasse anordnen; 

aa, ab, ac, bb, bc, ba, cc, cb, ca 

Beispiel 2: 

Pl = 400 : P2 = 200 : LN : MWV : PRINT FW 

ergibt 1196.29291 

entsprechend zirka 2.58225 E520 

LN 

Nach Aufruf dieses Befehls ohne Parameter werden die Ergeb- 
Befehle FAK, GAM, BINK, BINV, HYPV, PSONV, 
OWP, OWKO, MWKO, OWV und MVW logarithmisch zur Basis 
e angezeigt. Der jeweilige Modus läßt sich mit PEEK(52993) 
nachprüfen. Es ergibt eine »1« für LN-Modus und eine »0» für 
NRM-Modus. 

Für Maschinensprache-Programmierer, die sich eine andere 
Kontrollmöglichkelt der Anzeige des eingestellten Modus wün¬ 
schen, etwa eine andere Rahmen- oder Hintergrundfarbe, ist 
von $CE49 bis $CE5C Freiraum gelassen worden. 


NRM 

Zurückstellen des LN-Modus. Nach dem Laden ist automatisch 
NRM-Modus eingestellt. Die Ergebnisse werden nach Aufruf 
dieses Befehls wieder In normaler Form angezeigt. 

MOD 

Eine besondere Form der Modulo-Funktlon. 

Mit diesem Befehl lassen sich nicht nur Reste normaler 
Divisionsaufgaben berechnen, sondern auch einfache 
Kongruenzen der Form: 
a“ “ x mod c 
P1:a: P2: b; P3: c 

Argumentbereich: 0 ^ a < 65536; 0 < b < 65536; 0 < c < 
65536 

a, b, c ganzzahlig 
FW:x 

Beispiel 1: Welchen Rest ergibt die Division 437®^ durch 15377? 
Pl » 437 : P2 » 97 : P3 « 15377 : MOD : PRINT FW 
ergibt 12053 

Beispiel 2: Wie heißen die 3 letzten Stellen von 89^®^? 

Pl = 89 : P2 = 107 : P3 = 1000 : MOD ; PRINT FW 
ergibt 529 

Die Laufzeit des Befehls Ist stark von dem Exponenten b 
abhängig. Für b - 1000 beträgt die Laufzeit zirka 8 Sekunden, 
fürb = 10000 zirka 80 Sekunden. 



144 


SONDERHEFT 23 





C64 


STATISTIK 


Das Programm »Statistikus« zusammen mit den Grundlagen, 
die Ihnen im Beitrag »Statistik — Kein Buch mit sieben Sie¬ 
geln« aut Seite 147 vermittelt werden, bilden eine solide 
Grundlage für Anwendungen In dieser Richtung. Zur grafi¬ 
schen Veranschaulichung Ihrer Ergebnisse können Sie sich 
des Programms »Qrafic-Calc« aus dem Sonderheft 11/86 bedie¬ 
nen. So werden aus den Daten und trockenen Zahlen 
anschauliche Grafiken, die sich auch für Präsentationszwecke 


sehr gut eignen. Ebenso Ist es natürlich möglich, mit Statisti- 
kus ein komplettes Programmpaket in Basic zu entwickeln, das 
Funktionen wie die Darstellung der Ergebnisse im Grafikmo¬ 
dus und eine Hardcopy-Funktion beinhaltet. Sollten Sie ein 
derartiges Programm schreiben, so können Sie uns dieses 
gerne zusenden. Wir sind schon jetzt auf die Ergebnisse Ihrer 
Programmierarbeit gespannt. 

(R. Reber/Dr. Rudolf Egg) 
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Statistik - kein Buch mit 
sieben Siegeln 


Statistik istfürvieie ein Zauberwort, das Behaup¬ 
tungen Gewicht verleiht, aber auch Mißtrauen 
schafft. Wir sagen ihnen, was sich wirklich hinter 
diesem Begriff verbirgt. 

M it Statistik läßt sich alles und nichts beweisen - 
behaupten manche, und noch bösere Stimmen 
raten: »Trau’ keiner Statistik, die Du nicht selbst 
gefälscht hast;« Nein, Statistiken und statistische Verfahren 
stehen bei vielen Personen wirklich nicht in gutem Ruf, was 
vor allem daran liegen dürfte, daß nicht jedem klar ist, wel¬ 
che Vor- und Nachteile statistische Auswertungen bieten. 
Zweifellos kommt es aber sicher auch tatsächlich vor, daß 
statistische Ergebnisse über-oder fehlinterpretiert werden. 
Dennoch ist ein generelles Mißtrauen in die Statistik nicht 
gerechtfertigt: Zum einen sind nämlich die methodischen 
Grundlagen gar nicht so schwer zu verstehen, zum ande¬ 
ren sollte man diese Methoden nicht schon allein deshalb 
ablehnen, weil sie auch fehlerhaft oder gar mit Absicht miß¬ 
bräuchlich verwendet werden können. 

Was aber ist eigentlich Statistik? Grundsätzlich muß man 
dabei zwischen zwei Dingen unterscheiden: 

- »Statistiken« sind geordnete Ansammlungen von Infor¬ 
mationen in Form von Zahlen, Tabellen oder Grafiken. Bei¬ 
spiele hierfür sind die jährliche Umsatzstatistik eines Unter¬ 
nehmens, die Kriminalstatistik eines Landes, aber auch der 
»Klassenspiegel« eines Lehrers, der die Häufigkeit der Ver¬ 
gabe bestimmter Notenstufen aufzeigt. 

- »Statistik« als Methode meint dagegen jene Verfahren, 
mit denen man empirische Zahlen gewinnt, darstellt und 
weiterverabeitet. - 

Statistik ist zweieriei 


Wir wollen uns hier zunächst mit ein paar grundlegenden 
statistischen Verfahren beschäftigen und dann aufzeigen, 
welche Möglichkeiten der Anwendung es diesbezüglich für 
den C64 gibt. 

Der einfachste Fall einer statistischen Auswertung 
besteht darin, für ein Merkmal, das sich in verschiedene 
Klassen oder Gruppen einteilen läßt, die entsprechenden 
Häufigkeiten zu bestimmen. Dazu ein paar einfache Bei¬ 
spiele; 

- Ein Lehrer will wissen, wie viele Jungen und Mädchen 
jeweils in den von ihm unterrichteten Klassen sind, ferner, 
wie viele Schüler zu Fuß und wie viele mit dem Fahrrad 
kommen. 

- Ein Verlag erfaßt monatlich die Zahl der verkauften 
Bücher oder Zeitschriften, wobei ihn nicht nur die Gesamt¬ 
zahl, sondern auch die Verkaufszahl pro Objekt interes¬ 
siert. 

- Ein Reisebüro will feststellen, wie häufig in diesem Jahr 
Buchungen für die verschiedenen Reiseländer waren und 
welches Transportmittel dabei gewählt wurde. 

Derartige Auszählungen stellt man am einfachsten in 
Form einer Tabelle dar oder, wenn das Ganze etwas 
anschaulicher sein soll, man bedient sich einer Balken¬ 
oder Kuchengrafik (siehe Bild 1 und 2). Neben dieser blo¬ 
ßen Gegenüberstellung kann man auch noch eine Art »zen¬ 



Bild 1. Oie Verkehrsbeobachtungen der 64'er-Redaktion 
veranschaulicht anhand einer 3D-Balkengrafik 

traler Tendenz« bestimmen, also beispielsweise das 
beliebteste, weil am häufigsten gewählte Reiseland, den 
Best^oüar des Verlages etc. Auch das Gegenteil läßt sich 
ermitteln, also die Kategorie mit der geringsten Häufigkeit, 
und schließlich ist es auch noch möglich, die einzelnen 
Gruppen größenmäßig zu ordnen. 

Eine etwas kompliziertere statistische Auswertung liegt 
vor, wenn wir bei unserem Merkmal nicht nur verschiedene 
Kategorien unterscheiden können, man spricht dabei übri¬ 
gens von einer Kategorial- oder Nominaiskala, sondern 
wenn von vornherein eine gewisse Rangordnung oder 
Abstufung der einzelnen Gruppen existiert (= Rang- oder 
Ordinalskala). Dieser Fall ist zum Beispiel dann gegeben, 
wenn bei einer Verkehrszählung mehrere Größenklassen 
von Kraftfahrzeugen unterschieden werden und getrennt 



Bild 2. Eine genauere Aufschlüsselung der Statistik aus 
Bild 1 — allerdings als Kuchendlagramm 
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nach diesen Klassen gezählt wird. Ein anderes Beispiel 
wäre eine bundes- oder landesweite Statistik, die die rela¬ 
tive Anzahl von Eheschließungen (oder Scheidungen) in 
einem bestimmten Zeitraum erfaßt, und dabei jeweils eine 
in vier oder fünf Stufen geordnete Größe der Wohnge- 
meinde berücksichtigt. Die Auswertungsmöglichkeiten sol¬ 
cher ranggeordneter Daten entsprechen weitgehend 
denen der vorher genannten Nominalklassen, doch bietet 
diefixe Reihenfolge der einzelnen Gruppen einige zusätzli¬ 
che Mögiichkeiten. Dazu zählt die Bestimmung des soge¬ 
nannten Median-Wertes. Dies ist jener Rangplatz, der die 
nach ihrer Größe geordnete Reihe von Beobachtungswer¬ 
ten genau halbiert und der deshalb ein besseres Maß der 
zentralen Tendenz darstellt als der (nach wie vor bestimm¬ 
bare) häufigste oder Modal-Wert. 

Wenn unsere Beobachtungsgröße nicht nur eine Rang¬ 
ordnung darstellt, sondern sich auf einerSkalamit gleichen 
Abständen abbilden läßt, so sprechen wir von einer 
Intervall-Skala. Beispiele dafür sind die Kalenderzeit oder 
die Temperaturskala nach Celsius. Gibt es auch einen 
festen Nullpunkt, dann liegt eine sogenannte Verhältnis- 
Skala vor. Daten, die wir auf dieser höchsten Stufe der Ska¬ 
lierung erhalten, heißen Meßwerte und sind uns bestens 
bekannt aus Längen-, Flächen- und Raummaßen sowie 
aus der Messung von Zeit, Gewicht, Geschwindigkeit, 
Druck, Stromstärke etc. Solche Meßwerte erlauben kom¬ 
plexere Rechenoperationen als Rangwerte oder Nominal¬ 
klassen. Als Maß der zentralen Tendenz kann nun neben 
Modal- und Medianwert auch das arithmetische Mittei 
bestimmt werden; außerdem lassen sich Varianz und Stan¬ 
dardabweichung ais Sireuungsmaße sowie die Schiefe als 
Parameter der Verteilungsform bestimmen. Durch die line¬ 
are Transformation von Meßwerten können verschiedenar¬ 
tige Maßeinheiten sowie Ergebnisse unterschiedlicher Ver¬ 
teilungen besser miteinander verglichen werden, ein-für 
die statistische Aufbereitung von Zahlen nicht zu unter¬ 
schätzender Vorteil. 

Beschreiben und Prüfen 


Alle bisher genannten Auswertungsmöglichkeiten be¬ 
schreiben einen vorhandenen Datensatz, das heißt sie ver¬ 
anschaulichen durch Bildung von Klassen, Prozentwerten, 
Diagrammen, Mittel- und Streuungswerten die in den Da¬ 
ten enthaltene Information. Man könnte auch sagen, sie 
verdichten und ordnen die Datenvielfalt und machen auf 
einfache Weise das Wesentliche deutiich. Zu diesen als 
»deskriptive Statistik« bezeichneten Verfahren zählen auch 
Methoden der Regressions- beziehungsweise Korrela¬ 
tionsrechnung, die den Zusammenhang verschiedener 
Meßgrößen analysieren. So ist zum Beispiel bekannt, daß 
Schulnoten und die Ergebnisse von Intelligenztests nicht 
unabhängig voneinander sind, sondern eine gewisse 
Kovariation aufweisen. Ein Korrelationskoeffizient würde 
die Stärke dieses Zusammenhangs in Form einerZahl (zwi¬ 
schen 0 und 1) ausdrücken und könnte so dazu verwandt 
werden, im Einzelfall eine Schätzung der zu erwartenden 
Schulleistung bei Kenntnis des Testergebnisses vorzuneh¬ 
men. Noch aufwendiger sind Verfahren der Faktorenana¬ 
lyse: diese analysieren die Korrelationen mehrerer Varia¬ 
blen eines abgegrenzten Bereichs bezüglich der gemein¬ 
samen Anteile oder Faktoren. In der Testpsychologie führte 
dies unter anderem zur Definition verschiedener, auch 
inhaltlich voneinander abgrenzbarer Intelligenzfaktoren. 

Im wissenschaftlichen Bereich genügt es oft nicht, stati¬ 
stische Daten nur zu beschreiben. Denken wir uns einen 
Arzt, der ein neues Medikament erproben will. Er gibt einer 
Gruppe seiner Patienten das neue Präparat, einer zweiten 


Gruppe ein anderes Mittel. Die für den Therapie-Erfolg 
relevanten Meßergebnisse für beide Gruppen kann er nun 
mit den übiichen Methoden der deskriptiven Statistik ge¬ 
genüberstellen und dabei vielleicht für das neue Medika¬ 
ment ein günstigeres Ergebnis erhalten als für das alte. 



Bild 3. Die Gaußsche Glockenkurve — Grundlage vieler sta¬ 
tistischer Tests und Auswertungen 

Dennoch weiß er noch nicht genau, ob dieses neue Mittel 
tatsächlich besser geeignet ist als das andere. Zur Erpro¬ 
bung hatte er nämlich nur eine kleine Stichprobe von Per¬ 
sonen zur Verfügung gehabt; ein zahlenmäßiger Unter¬ 
schied zwischen den zwei Gruppen könnte daher leicht 
- auch |5e, Zufali entstanden sein. Zur Klärung solcher und 
ähnlicher Hypothesen bedient man sich verschiedener 
Verfahren der »Prüf- oder Inferenzstatistik«. Wesentlich 
dabei ist, daß man die empirisch gewonnenen Daten als 
Stichproben einer Grundgesamtheit (Population) ansieht. 
Mit Hilfe statistischer Modelle schätzt man nun die den 
Stichproben entsprechenden Populationskennwerte (Mit¬ 
telwert, Streuung etc.). Damit läßt sich beispielsweise fest¬ 
stellen, ob beziehungsweise mit welcher Wahrscheinlich¬ 
keit die beiden Stichproben aus ein und derselben oder aus 
zwei verschiedenen Populationen stammen. Man kann 
somit abschätzen, ob der gefundene Unterschied ein 
Effekt des Medikaments ist oder noch als zufallsbedingt 
betrachtet werden muß. Üblicherweise wird hierzwischen 
einer sogenannten Nullhypothese (= kein Unterschied der 
Werte in der Population) und der oder den Alternativhypo¬ 
thesen unterschieden. Der Grad der Wahrscheinlichkeit für 
die irrtümliche Zurückweisung der Nullhypothese wird 
dabei als Signifikanz-Niveau oder Irrtumswahrscheinlich¬ 
keit bezeichnet. In der Praxis gilt vielfach ein Signifikanzbe¬ 
trag von 5% (und kleiner) als kritischer Grenzwert, das 
heißt erst bei Unterschreiten dieses Betrages wird ein 
Ergebnis als statistisch gesichert betrachtet. Auch daraus 
folgt im übrigen noch nicht eine eindeutige inhaitiiche Inter¬ 
pretation des Ergebnisses, man muß also zwischen einer 
statistischen und einer praktischen Signifikanz unterschei¬ 
den. Ein bekanntes und in vielen Statistik-Lehrbüchern 
zitiertes Beispiel ist der statistisch signifikante Zusammen¬ 
hang zwischen der Geburtenrate und der Zahl der nisten¬ 
den Störche in bestimmten Regionen. Nicht immer freilich 
sind die Grenzen der inhaltlich vertretbaren Interpretation 
eines statistischen Ergebnisses so offenkundig wie in die¬ 
sem Fall, weshalb eine gewisse Skepsis in Schlußfolgerun¬ 
gen, die sich auf vermeintlich statistisch gesicherte Daten 
beziehen, mitunter durchaus gerechtfertigt sein kann. 
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Inferenzstatistische Methoden (Tests) sind übrigens 
nicht auf den Bereich der Meßwerte beschränkt, sondern 
stehen auch für Daten auf Rang- oder Nominalniveau zur 
Verfügung. Beispielsweise prüft der Chi-Quadrat-Test die 
Übereinstimmung von empirisch ermitteiten Häufigkeits¬ 
werten für bestimmte Merkmalsklassen mit einer theore¬ 
tisch erwarteten Verteilung, Damit könnte der Lehrer unse¬ 
res obigen Beispiels also prüfen, ob in seinen Klassen die 
Anteile von Jungen und Mädchen als gleich groß anzuse¬ 
hen sind, oder ob überzufällige Unterschiede bestehen. 

Vbn Statistiken und Störchen 


Eine Reihe statistischer Tests beruht auf bestimmten 
Annahmen über die zugrundeliegende Population. So wird 
insbesondere häufig vorausgesetzt, daß die Daten der 
Grundgesamtheit normalverteilt sind, also der Gaußschen 
Glockenkurve (siehe Bild 3) entsprechen. Zu diesen para¬ 
metrischen Tests zählen insbesondere der »t-Test« für Mit¬ 
telwertsvergleiche sowie Varianzanalysen. Da nicht alle 
Daten diesen Voraussetzungen entsprechen, bedient man 
sich gegebenenfalls auch verteilungsfreier oder nonpara¬ 
metrischer Tests, zu denen auch der bereits erwähnte Chi- 
Quadrat-Test zählt. Diese Verfahren können zwar einen 
gewissen Informationsverlust bedeuten, doch ist deren 
Anwendung oft eine sehr sinnvolle Alternative, wenn den 
strengen Bedingungen der parametrischen Tests nicht hin¬ 
reichend genau entsprochen werden kann. 

Wie man sieht, kann man mit Statistik tatsächlich sehr 
viel feststellen und verdeutlichen, obschon nicht »alles 
beweisen«. Stets ist dafür jedoch ein größerer Rechenauf¬ 
wand nötig, der sich mit herkömmlichen Tisch- oder 
Taschenrechnern nur mit Mühe erledigen läßt. Es ist daher 
verständlich, daß eine breitere Anwendung statistischer 
Verfahren erst durch den Einsatz von Computern realisiert 
werden kann. Dazu wurden — neben Einzelprogrammen 
für spezifische Problemlösungen—schon relativ frühzeitig 
komplexe Statistik-Programm-Pakete für Großrechneranla¬ 
gen erstellt, die es gestatten, einen einmal eingebenen 
Datensatz auf unterschiedliche Weise auszuwerten. Diese 
Systemewurden in der Vergangenheit schrittweise verbes¬ 
sert und erweitert, und die wohl bekanntesten Pakete die¬ 
ser Art, »SPSS«, »BMDP« und »SAS«, liegen mittlerweile 
auch in Versionen für IBM-PCs und Kompatible vor. Die 
Kauf- beziehungsweise Lizenzpreise für diese Software¬ 
produkte sind jedoch so hoch, daß sich eine Anschaffung 
für eine Einzelperson kaum lohnen dürfte. Für den C64 und 
den C128 gibt es ohnedies keine Adaptionen dieser Pro¬ 
gramme, und aus verschiedenen Gründen wird damit auch 
in Zukunft nicht zu rechnen sein. Was also tun, wenn man 
mit dem C64 statistische Auswertungen durchführen 
möchte? 

Statistik-Programme 


Eine verhältnismäßig einfache Möglichkeit besteht darin, 
ein Tabellenkalkulationsprogramm, zum Beispiel Multi¬ 
plan, zu verwenden. Damit können unter anderem Häufig¬ 
keiten ausgezählt oder Mittelwerte und Streuungsmaße 
berechnet werden; gegebenenfalls lassen sich damit auch, 
etwa mit Vizastar oder Kalkumat, verschiedene Grafiken 
erstellen. Bei komplexeren Datensätzen und/oder Frage¬ 
stellungen erfährt man jedoch bald die Grenzen dieser Kal¬ 
kulationsprogramme, deren Anwendungsbereich im 
Grunde auch auf anderen Gebieten liegt. 

Ein anderer möglicher Weg ist, sich geeignete Basic- 
Programme selbst zu schreiben. Wer darin noch nicht 


geübt ist, kann sich Beispiele aus einschlägigen Büchern 
abschreiben und auf die individuellen Bedürfnisse abstim¬ 
men. Leider ist das Basic des C 64 aber für statistische Aus¬ 
wertungen nur bedingt geeignet. Wir präsentieren Ihnen 
daher in diesem Heft eine Befehlserweiterung, mit der sich 
viele Aufgaben aus Kombinatorik und Statistik ohne große 
Mühe lösen lassen. Mit Hilfe von »Statistikus« (Seite 139) 
kommen Sie also als Basic-Anwender Ihrem persönlichen 
Statistik-Programm einen Riesenschritt näher. Ein grund¬ 
sätzliches Problem solcher Berechnungen ist allerdings 
stets die Art der Eingabe beziehungsweise die Verwaltung 
der auszuwertenden Daten. Viel zu mühsam, obwohl 
grundsätzlich machbar, ist es beispielsweise, alle Daten in 
Form von einfachen Variablenzuweisungen per LET- 
Statement im Programm selbst anzugeben. Man wird des¬ 
halb bestrebt sein, die Anweisungen für die Auswertung 
und die eigentlichen Daten als getrennte Teile zu behan¬ 
deln. Dies kann bereits dadurch erreicht werden, daß man 
die Daten durch INPUT-Abfragen erfaßt. Ein einfaches Pro¬ 
gramm zur Berechnung des arithmetischen Mittels von 
Meßwerten sähe dabei zum Beispiel folgendermaßen aus: 
10 REM MITTELWERTSDERECHNUNG 
20 INPOT N : REM ANZAHL DER WERTE 
30 FOR I = 1 TO N 

40 INPUT X{N) : REM EINGABE DER WERTE 
50 SUM = SUM + X(N) 

60 NEXT I 
70 MW = SüM/N 

80 PRINT "MITTELWERT ="; MW 
90 END 

Der Nachteil dieses Verfahrens ist, daß die einzelnen 
Werte nicht permanent gespeichert werden und daher 
nach Abschluß der Berechnungen auch nicht mehr aufge¬ 
rufen'.*.'“rden können. Sie müßten deshalb bei Bedarf stets 
wieder neu eingegeben werden. Diesen Luxus wird man 
sich nur bei kleinsten Auswertungsvorgängen leisten wol¬ 
len. Erheblich günstiger ist es, die statistischen Werte in 
DATA-Zeilen anzugeben und im Programm mit READ- 
Statements aufzurufen. Dabei bleiben aber die Daten zu 
sehr an das Programm gebunden, müssen auch mit die¬ 
sem gespeichert werden, und eine Weiterverwendung bei 
anderen Auswertungen kann nur mit Mühe erfolgen. Der 
eleganteste Weg schließlich besteht darin, die Daten ein¬ 
malig mit einem Eingabeprogramm zu erfassen, in sequen¬ 
tiellen oder relativen Dateien zu speichern und nach Bedarf 
von dem jeweiligen Auswertungsprogramm zu lesen. 
Geschieht dies so, daß damit eine ganze Reihe statisti¬ 
scher Verfahren an ein und demselben Datensatz ange¬ 
wandt werden kann, dann sprechen wir von einem Statistik- 
Programm-Paket mit speziellen System-Dateien zur Ver¬ 
waltung der Daten, Für Personen, die primär an der statisti¬ 
schen Praxis interessiert sind, dürfte freilich in der Regel 
die Erstellung solch umfangreicher Pakete zu langwierig 
und zu schwierig sein. So viel Mühe ist aber auch nicht 
unbedingt nötig, denn glücklicherweise gibt es einige 
Komplett-Angebote auf dem Softwaremarkt, die für eine 
Reihe von Problemlösungen gut geeignet erscheinen. Die 
wichtigsten derartigen Statistik-Programme stellen wir 
Ihnen im nächsten Beitrag kurz vor. 

(Dr. Rudolf Egg/rf) 
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Statistik mit dem C64 - 
Programme im Veigieidi 


Ohne Frage ein Spezialgebiet und eine schwie¬ 
rige Aufgabe für den C64. Dennoch ist Ihr Com¬ 
puter in der Lage, statistische Auswertungen vor¬ 
zunehmen. Wir zeigen Ihnen, was es auf dem 
Markt gibt und inwieweit sich die einzelnen Pro¬ 
gramme zu diesem Zweck eignen. 

O hne den Einsatz von Computern ist die moderne Sta¬ 
tistik heute nicht mehr denkbar. Meist sind dazu aber 
Personal Computer oder gar Groß-Computer notwen¬ 
dig, Daß sich auch dem C64 statistische Ergebnisse ent¬ 
locken lassen, beweisen einige Bücher und Programme, 
die sich schon seit längerer Zeit auf dem Markt befinden. 

Das Statisfik-Bu<h zum Commodore 64 


Das von Data Becker vertriebene Buch mit separat erhältli¬ 
cher Diskette stammt aus der Feder eines Statistik- 
Professors und versteht sich als ein Lehr- und Arbeitsbuch. 
Schon beim ersten Durchblättern fällt die sehr übersichtli¬ 
che Gliederung auf. Dieser positive Eindruck verstärkt sich 
beim Durcharbeiten der einzelnen Abschnitte, denn dem 
Autor gelingt es vorzüglich, auch schwierige Sachverhalte 
auf einfache und anschauliche Weise darzustellen. So 
beginnt jeder Abschnitt mit einer konkreten Fragestellung, 
die in einer Problemanalyse erörtert wird. Anschließend 
wird ein geeignetes Programm als Lösungsvorschlag prä¬ 
sentiert und Schritt für Schritt erläutert, Den Schluß bilden 
Ergänzungen, die einige weiterführende Hinweise geben 
und zum eigenen Experimentieren anregen sollen. Gewis¬ 
sermaßen als Nebeneffekt erhält man dabei einen Grund¬ 
kurs in Basic und erfährt einiges über die Grafik-Pro¬ 
grammierung des C64. 

Die Palette der behandelten Themen reicht von den 
Grundlagen der Datenein- und -ausgabe über Häufigkeits¬ 
verteilungen (einschließlich deren grafischer Aufberei¬ 
tung), Mittelwerts- und Streuungsberechnungen sowie 
Korrelationsverfahren bis zur Analyse von Zeitreihen und 
einfachen Hochrechnungen. Am Ende wird ein kleines Pro¬ 
grammpaket präsentiert, das aus acht verschiedenen Tei¬ 
len besteht und für bis zu 200 Einzelwerle oder Wertepaare 
Analysen bezüglich der vorher erörterten Verfahren gestat¬ 
tet. Wer dieses Buch gründlich durcharbeitet, wird In die 
Lage versetzt, eigenständig Erweiterungen und zusätzli¬ 
che Problemlösungen ln Angriff zu nehmen. Weil zu 
Beginn keine spezifischen Kenntnisse vorausgesetzt wer¬ 
den, wird auch ein Anfänger gut damit zurechtkommen und 
sich systematisch in das Gebiet einarbeiten. Wer die Pro¬ 
grammdiskette zum Buch erwirbt, spart sich das umständli¬ 
che Eintippen und kann dadurch den Kurs rascher absol¬ 
vieren. Freilich geht eine derartig gründliche Unterweisung 
zu Lasten der inhaltlichen Breite. Es werden eben nur 
einige der wichtigsten Statistik-Routinen behandelt. Wer 
mehr wissen will, braucht weitere Literatur, wofür übrigens 
das Buch selbst bereits einige hilfreiche Hinweise gibt. 

Ebenfalls ein Lehr- und Einführungsbuch, aber doch von 
ganz anderer Art, Ist das Buch von D. Herrmann. Es enthält 
auf 70 Seiten 30 Programme aus den Bereichen Wahr¬ 


scheinlichkeitsrechnung und Statistik. Dabei wird jedes 
Problem nur kurz erörtert, dann folgt das entsprechende 
Basic-Llsting sowie der Ausdruck eines Musterdatensat¬ 
zes. Für didaktische Finessen bleibt bei dieser Kurzdarstel¬ 
lung selbstverständlich kein Raum, und der Benutzer sollte 
sowohl von Statistik wie von Basic bereits Grundkenntnisse 
mitbringen, um mit dem Buch arbeiten zu können, Bel den 
Programmen selbst, die übrigens auch auf Diskette erhält¬ 
lich sind, handelt es sich um knapp gehaltene, leicht ver¬ 
ständliche und übersichtliche Routinen. Sie bilden kein 
integriertes Paket, sondern stehen jeweils für sich. Die aus- 
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Bild 1. Balkengrafik ist die einfachste Methode, um Daten 
grafisch und vor allem anschaulich darzustellen 

zuwertenden Daten müssen entweder direkt über INPUT- 
Anweisungen eingegeben werden oder in DATA-Zeilen ste¬ 
hen, die über »READ« bearbeitet werden. Für eine breitere 
praktische Anwendung ist dies natürlich zu umständlich 
und müßte erst durch bessere Prozeduren ersetzt werden, 

30 Basii-Programme im Buch 


Das Hauptgewicht des Buches liegt aber nicht in der Prä¬ 
sentation von Komplettlösungen, sondern in der baustein¬ 
artigen Darstellung einzelner Verfahren, Dabei wird nur 
Standard-Commodore-Basic verwendet. Die Programme 
sind also ohne Änderung auf allen Commodore- 
Computern verwendbar, auf dem C128 zum Beispiel auch 
im80-Zeichen-Modus. Der Bogen der berücksichtigten sta¬ 
tistischen Verfahren ist verhältnismäßig weit gespannt: 

Zu Beginn werden einige wichtige Verteilungsarten 
(Binominal-, Normal-, Poisson- und Hypergeometrische 
Verteilung) vorgestellt, es folgen mehrere Signifikanz-Tests 
(z.B, t-Test, F-Test, einfache Varianzanalyse), wobei erfreu¬ 
licherweise auch einige relevante »nonparametrische« Ver¬ 
fahren (neben Chi-Quadrat-Test unter anderen auch 
Medlan-Test, Mann-Whitney-Test, Wilcoxon-Test) berück¬ 
sichtigtwurden. Den Abschluß bilden Rang- und Maßkorre¬ 
lationskoeffizienten sowie verschiedene Regressions- 
Berechnungen. Gänzlich ausgespart bleiben jedoch grafi¬ 
sche Darstellungsmöglichkeiten statistischer Ergebnisse, 
auch die Frage der Druckausgabe von Resultaten wird 
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nicht angesprochen. Der engagierte Anwender wird daher 
mit diesem Buch aiiein seine Statistik-Probieme nicht 
bewäitigen können. Bestens geeignet erscheint diese Pro¬ 
grammsammlung dagegen aisBegieitmaterial für Statistik- 
Kurse an Schuien und Hochschuien, ais Hiifsmittei für kiei- 
nere Probiemiösungen oder als Fundgrube für Basic- 
Programmierer, die statistische Auswertungsprozeduren in 
kompiexeren Programmen berücksichtigen wollen. Eine 
interessante Aufgabe wäre es zum Beispiel, die Routinen 
für Signifikanz-Tests mit den entsprechenden Befehlen der 
in diesem Heft vorgestellten Basic-Erweiterung »Statisti- 
kus« zu kombinieren. 

Keine Sammlung von Einzelprogrammen, sondern ein 
komplettes Statistik-Programm-Paket ist Comm-Stat, ein 
Produkt des amerikanischen Softwarehauses StatSoft. Es 
ist vollständig In Basic geschrieben, kann kopiert und geli¬ 
stet werden und läßt sich so leicht für individuelle Sonder¬ 
wünsche abändern. Die übersichtlich aufgebaute Anlei¬ 
tung liegt leider nur in Englisch vor und setzt auch voraus, 
daß man sich mit den einzelnen statistischen Verfahren 
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Grafikmodus : Grafik - Calc 


Bild 2. Eine dreidimensionale Säulengrafik mit »Graflc- 
Calc« verschafft einen sehr guten Überblick 


bereits auskennt, da jeweils nur kurz auf deren Bedeutung 
und Anwendung eingegangen wird. Daß das Handbuch 
dennoch einen Umfang von mehr als 100 Seiten hat, liegt 
an der Vielzahl der Verfahren und Möglichkeiten, die gebo¬ 
ten werden. Dabei ist die grundsätzliche Bedienung denk¬ 
bar einfach und erfordert dank einer kombinierten Dialog- 
und Menütechnik keinerlei Auswendiglernen von Befehlen 
oder Funktionstasten. Will man das Programm kurzzeitig 
anhalten, etwa um sich Auswertungsergebnisse länger 
betrachten zu können, so drückt man einfach die STOP- 
Taste: durch den Befehl CONT setzt man den Ablaufan der 
unterbrochenen Stelle wieder fort, Bei verschiedenen Stö¬ 
rungen, beispielsweise Eingabe eines falschen Filena¬ 
mens, bleibt das Programm mit einer Fehlermeldung ste¬ 
hen, kann aber durch RUN ohne Datenverlust wieder 
gestartet werden. Dies sind zwar programmtechnisch 
keine Meisterstücke, für den eigentlichen Zweck aber voll¬ 
kommen ausreichende und vor allem sichere Lösungen, 
Nach dem Laden erscheint das Hauptmenü mit 17 Unter¬ 
punkten. Einige grundlegende Funktionen können von dort 
aus direkt ausgeführt werden, bei anderen muß man Pro¬ 
grammteile von der Diskette nachladen. Durch diese soge¬ 
nannte Overlay-Technik steht mehr Platz für die zu analy¬ 
sierenden Daten zur Verfügung. Comm-Stat kann maximal 
Datenfiles von etwa 1500 Einzeldaten (je nach Unterpro¬ 
gramm) verarbeiten, wobei das Verhältnis zwischen Fällen 
(beispielsweise Personen) und Variablen unterschiedlich 
sein darf. Es könnte sich dabei um Daten von 1500 Perso¬ 
nen mit jeweils einem Wert (zum Beispiel Körpergröße) 


oder um je 15 Werte von 100 Personen handeln. Dies dürfte 
für viele Zwecke genügen. Bei größeren Datenbeständen 
ist zu überlegen, wie man geschickt Aufteilungen vorneh¬ 
men kann. Auf der Systemdiskette befindet sich bereits ein 
Musterdatensatz, mit dem verschiedene Funktionen aus¬ 
probiert werden können. 

Comm-Stat-Paket aus USA 


Zunächst ist es selbstverständlich möglich, sich den 
gesamten Datensatz, also jeden einzelnen Wert, auf dem 
Bildschirm anzeigen zu lassen. Der nächste Schritt besteht 
darin, die verschiedenen Variablen deskriptiv auszuwer¬ 
ten, das heißt entweder Mittelwert, Streuung, Schiefe der 
Verteilung etc. zu bestimmen oder die Gruppierung der 
Häufigkeitswerte in Form von Balkendiagrammen anzuzei¬ 
gen. Zur Verdeutlichung des Zusammenhanges von je zwei 
Variablen stehen Kreuztabellen, Streuungsdiagramme 
und verschiedene Korrelationsmaße zur Verfügung. Im 
Bereich der Prüfstatistik finden wir neben t-Tests für unab¬ 
hängige und abhängige (zum Beispiel wiederholte) Meß¬ 
werte auch diverse Varianz- und Kovarianzanalysen für bis 
zu vier Faktoren. Daneben gibt es auch - in einem eigenen 
Unterprogramm - eine ganze Reihe nonparametrischer 
Verfahren. Ein weiteres Subprogramm ist der multiplen 
Korrelations- und Regressionsrechnung gewidmet. Hier 
können die Zusammenhänge für bis zu 25 (Prädiktor-) 
Variablen mit einer Ziel- oder Kriteriumsvariablen ermittelt 
werden. 

Bei all diesen Berechnungen bestehen komfortable Mög¬ 
lichkeiten zur Auswahl von Untergruppen und Variablen. 
Ein bei empirischen Erhebungen sehr häufiges Problem ist 
die Berücksichtigung sogenannter »missing values«, also 
fehlenoer Werte in Datenreihen. Diese Lücken entstehen 
zum Beispiel dadurch, daß bei einer Befragung eine 
Antwort vergessen wurde oder nicht eindeutig zugeordnet 
werden kann. Um nicht auf den gesamten Datensatz des 
jeweiligen Falles verzichten zu müssen, wird an der ent¬ 
sprechenden Stelle ein »Missing-Value-Code« eingetra¬ 
gen, der vom Programm als solcher erkannt wird und zu 
einem Ausschluß des Wertes aus den Analysen führt. 

Voraussetzung für all diese Analysen ist natürlich ein 
Datensatz, der - will man sich nicht auf den Demo-File 
beschränken - zunächst einmal eingegeben werden muß. 
Dabei bedient man sich des leistungsfähigen Dateneditors 
von Comm-Stat. Bei einer neuen Datei gibt man zunächst 
die gewünschte Anzahl an Fällen und Variablen ein. 

Fehlererkennung bei der Analyse 


Anschließend verlangt das Programm die Werte für die ein¬ 
zelnen Zellen der so definierten Datenmatrix. Nach Ein¬ 
gabe von »999999« springt man zu einer bestimmten Stelle 
des Datensatzes oder beendet die Eingabe. Ebenso ein¬ 
fach sind spätere Korrekturen sowie das Hinzufügen von 
weiteren Fällen oderVariablen. Will man unter Verwendung 
der vorhandenen Variablen neue Werte berechnen lassen 
(zum Beispiel DM in Dollar umrechnen), so geschieht dies 
auf einfache Weise in einem Menüpunkt, wo in Form von 
Basic-Anweisungen bis zu 100 Transformationsgleichun¬ 
gen eingegeben werden dürfen. Da Comm-Stat eigene 
System-Dateien verwendet, besteht zusätzlich die Mög¬ 
lichkeit, eine Datei in ein Standardformat zu transformieren 
oder umgekehrt aus einem Standard-ASCIi-File eine 
System-Datei zu erstellen. Damit steht eine interessante 
Schnittstelle für den Datentransfer zwischen Comm-Stat 
und anderen Programmen zur Verfügung. 
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Eine andere Form von >>Außenbe 2 iehungen« ist die Mög¬ 
lichkeit der Druckausgabe von Ergebnissen. Dies 
geschieht einfach dadurch, daß man die Option »Printer« 
auf den Wert »ON« stellt, wodurch alle Resultate auf einem 
angeschlossenen Drucker mitprotokolliert werden. Dabei 
werden jedoch standardmäßig nur Commodore-Drucker 
(und Kompatible) am seriellen Port unterstützt. Benutzer 
anderer Drucker müßten daher gegebenenfalls erst eine 
entsprechende Anpassung vornehmen. 

Insgesamt hinterläßt Comm-Stat einen guten Eindruck. 
Das Programm eignet sich für vielfältige Anwendungs¬ 
zwecke, ist einfach zu bedienen und läßt kaum Wünsche 
offen. 

»STS« — Statisfik-ftiket mit Zugaben 


Was auf den ersten Blick »nur« wie ein Statistik-Buch mit 
Diskette aussieht, entpuppt sich bei näherem Hinsehen als 
ein sehr komfortables, umfangreiches und überaus preis¬ 
wertes Programm-Paket. Der Autor von STS gab sich offen¬ 
bar große Mühe, ein möglichst benutzerfreundliches 
System zu schaffen und nutzte dabei die Möglichkeiten des 
C 64 geschickt aus. Der überwiegende Teil des Pakets ist in 
Basic geschrieben, daneben gibt es aber einige zentrale 
Assembler-Routinen, die auch unabhängig vom Statistik- 
Teil zur Verfügung stehen. Ganz nebenbei erhält man so 
ein paar Werkzeuge zur Benutzung der hochauflösenden 
Grafik des C 64, die sich in eigenen Basic-Programmen ver¬ 
wenden lassen. EineähnlicheZugabe ist der Programmteil 
»STS-MVO« mit Operationen zur Matrizen- und Vektorrech¬ 
nung, mit dem sich unter anderem auch umfangreiche line¬ 
are Gieichungssysteme lösen lassen. Das gut gegliederte, 
leicht lesbare Handbuch erläutert nicht nur die Anwendung 
der einzelnen Teile, sondern bietet auch auf rund 80 Seiten 
eine kurze Einführung in die theoretischen Grundlagen der 
verschiedenen Verfahren - wiederum ein Extra, das den 
Gebrauchswert des Angebots deutlich erhöht. 

Die Arbeit mit dem Programm-Paket beginnt stets mit 
dem Startprogramm STS, welches die Grundroutinen und 
statistischen Tabellen einliest. Anschließend kann jedes 
weitere Teilprogramm aufgerufen werden, wobei die Rei¬ 
henfolge beliebig ist. Bereits eingelesene Daten bleiben 
bei einem Programmwechsel erhalten, so daß sich ein 
ständiges Wechseln von System- und Datendiskette weit¬ 
gehend erübrigt. STS verwaltet alle Daten in Form ein¬ 
beziehungsweise zweidimensionaler Felder. Für die Matrix 
der Rohdaten stehen maximal 1200 Zellen (mit je 5 Byte) 
zur Verfügung. Liegt der gesamte Datenumfang über die¬ 
sem Betrag, so kann man die Ausgangsmatrix in mehrere 
Bereiche aufteilen, die bei der späteren Verarbeitung suk¬ 
zessive von der Diskette nachgeladen und miteinander ver¬ 
kettet werden können. Dies ist für bis zu 24 Teilmatrizen 
möglich, so daß sich mit STS maximal 24 x 1200, also 28800 
Einzelwarte verarbeiten lassen. Das ist eine recht beachtli¬ 
che Zahl, die vergleichbare Programme in den Schatten 
stellt. Bei voller Ausschöpfung dieses Umfanges müssen 
allerdings rechnerbedingt gewisse Wartezeiten für die Aus¬ 
wertungen in Kauf genommen werden. 

Eingabe, Ergänzung und Korrektur von Datensätzen 
erfolgen bei STS direkt bei den jeweiligen Auswertungstei¬ 
len. Teilgruppen und Werteklassen lassen sich bequem 
definieren, so daß ein Datensatz auf verschiedene Weise 
auswertbar ist. In etlichen Fällen ist neben der Verarbeitung 
vorher gespeicherter Datenmatrizen auch eine direkte Ein¬ 
gabe von Werten möglich. Dadurch sind zum Beispiel Mit¬ 
telwertsvergleiche auch dann durchführbar, wenn die 
Ursprungsdaten nicht eingegeben wurden - eine sehr 
praktische Lösung. Selbstverständlich kann STS auch 


»missing values« berücksichtigen, die bei der Eingabe ein¬ 
fach als Leerfeld markiert werden. 

Die eigentlichen Auswertungsmöglichkeiten verteilen 
sich auf insgesamt acht Teilprogramme. Der erste Teil 
ermittelt verschiedene statistische Kenngrößen wie Mittel¬ 
wert und Standardabweichung sowie Häufigkeitsverteilun¬ 
gen zur Deskription der Datensätze: definierte Werteberei¬ 
che und Teilgruppen lassen sich dabei berücksichtigen. In 
einem zusätzlichen Grafikteil können neben den bekann¬ 
ten Säulendiagrammen auch sogenannte Box- und 
Whisker-Plots erzeugt werden, die eine sehr gute Veran¬ 
schaulichung der Werteverteilung liefern. Für den Ver¬ 
gleich von Häufigkeiten im Rahmen von Kontingenztafeln 
(zum Beispiel zwei Spalten mit je zwei Zeilen) steht ein Teil¬ 
programm zur Berechnung des Chi-Quadrat-Tests und 
damit verwandter Verfahren zur Verfügung. Die auszuwer¬ 
tende Kontingenzmatrix kann hier entweder direkt einge¬ 
geben oder aus der Original-Datenmatrix generiert wer¬ 
den. Mittelwertsvergleiche sind in weiteren Unterprogram¬ 
men in Form von t-Tests, ein- und zweifachen, sowie mehr- 



Bild 3. Auch eine sogenannte Tortengrafik eignet sich gut, 
um Daten zu Präsentationszwecken aufzubereiten 


dimensionalen Varianzanalysen möglich. Schließlich gibt 
es noch Routinen für Korrelations- beziehungsweise 
Regressionsverfahren, die von der Bestimmung einfacher 
Regressionsgeraden (auf Wunsch auch mit grafischer Dar¬ 
stellung) bis hin zur Berechnung von Faktorenmatrizen und 
Möglichkeiten zur Rotation der Faktoren reichen. Alle 
Ergebnisse einschließlich der hochauflösenden Grafiken 
können selbstverständlich auch ausgedruckt werden, 
wobei aber nur MPS 801-Drucker oder kompatible Geräte 
ansprechbar sind. 

Gnific-Calc: 

Bilder sagen mehr als Zahlen 


Obwohl es sich bei Grafic-Calc, das wir in unserem Sonder¬ 
heft 11/86 veröffentlichten, im strengen Sinne nicht um ein 
Statistik-, sondern um ein Grafik-Programm handelt, möch¬ 
ten wir es Ihnen dennoch in dieser Übersicht vorstellen. 
Grafic-Calc bietet nämlich sehr weitgehende, einfach zu 
bedienende Möglichkeiten der grafischen Aufbereitung 
von Zahlenmaterial unterschiedlichster Art und eignet sich 
daher bestens als Ergänzung zu Verfahren, die auf die zah¬ 
lenmäßige statistische Analyse abgestimmt sind. 

Nach dem Programmstart befindet man sich zunächst im 
sogenannten Datenmodus, in dem die auszuwertenden 
Daten verwaltet werden. Zunächst muß man eine Datei 
eröffnen und dabei angeben, wie viele Datenblöcke (Spal- 
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ten) pro Datensatz (Zeilen) Vorkommen werden, wobei bis 
zu 20 Blöcke möglich sind. Aus dem auf der Datendiskette 
noch verfügbaren Speicherplatz berechnet Grafic-Calc 
nun die maximale Zahl an Datensätzen und resen/iert - 
nach entsprechender Eingabe - den benötigten Platz. 
Datenblöcke und -Sätze können nun mit Namen versehen 
werden, die später beim Ausdruck erscheinen. Anschlie¬ 
ßend trägt man die einzelnen Datenelemente In die vorge¬ 
sehenen Felder ein, wobei die Datei aber nicht auf einmal 
gefüllt werden muß, sondern laufend, zum Beispiel monat¬ 
lich, ergänzt werden kann. Fehlerhafte Einzelwerte lassen 
sich auch nachträglich leicht korrigieren, eine Abänderung 
der einmal festgelegten Dateigrenzen ist jedoch nicht 
durchführbar. Vor der eigentlichen Auswertung muß man 
sich zunächst eine so erstellte Datei wieder ganz oder teil¬ 
weise in den Arbeitsspeicher laden. 

Nun wechselt man über in den zweiten Programmteil, 
also in den Grafikmodus, der von der Systemdiskette nach¬ 
geladen wird. Im Hauptmenü dieses Teils hat man 
zunächst die Auswahl zwischen zwei verschiedenen Bal¬ 
kengrafiken, einer Säulengrafik, zwei Arten von Torten¬ 
oder Kreissegmentgrafiken (2-oder3 D-Darstellung)sowie 
einer Kurvengrafik (Bild 1 bis 3). Schon dabei sind jeweils 
unterschiedliche Darsteliungsweisen möglich, das Beson¬ 
dere an Grafic-Calc ist jedoch, daß sich die erstellten Grafi¬ 
ken bequem nachbearbeiten lassen. Beispielsweise las¬ 
sen sich Beschriftungen in unterschiedlicher Form und 
Größe vertikal und horizontal anbringen, Flächen (zum Bei¬ 
spiel unter Kurven) können mit einem von 36 verfügbaren 


Mustern ausgefüllt werden, und in einem eigenen Zeichen¬ 
modus lassen sich Punkte, Linien, Rechtecke und andere 
Figuren erstellen und ausfüllen. Durch verschiedene 
Blockoperationen ist es zusätzlich möglich, die Grafik ganz 
oder teilweise zu verschieben, zu kopieren, zu verkleinern 
etc. DaGrafic-Calc zwei verschiedene Grafikseiten verwen¬ 
det, kann man mit diesen Operationen auch Teile einer Gra¬ 
fik in eine andere »einblenden« und dadurch sehr komplexe 
Abbildungen erzeugen. Natürlich lassen sich alle Grafiken 
auch ausdrucken. Werseine Grafiken noch weiter verarbei¬ 
ten möchte, kann diese speichern und mit praktisch jedem 
anderen Grafik-Programm, zum Beispiel auch mit Hi-Eddi, 
wieder laden. Ebenso ist es möglich, die von Grafic-Calc 
erzeugten Bilder mit Hilfe geeigneter Textverarbeitungs¬ 
programme (zum Beispiel Textomat plus) in Textfiles einzu¬ 
binden. Dies ist beispielsweise dann von großem Vorteil, 
wenn man einen Bericht über statistische Auswertungen 
verfaßt, und die Ergebnisse gleich mit den entsprechenden 
Abbildungen erläutern möchte. (Dr. Rudolf Egg/sk) 

Bszugaquellen: 

'Jon, W.; Das StalfslIk.Qj^ zum Commodore 64. Data Becker QmbH, Uerowlngerstr. 30, 
4000 DOsssIdorf 30, Preis: 49,. Mark, Diskette: 39,- Merk 

Herrmann, 0,; WahrschelnHohkelterechnung und Statistik - 30 BasIc.Projramme. 2. Aullage 
1964. Verleg Frledr.VlewegSSohn.BraüneolmsIg/WleBbadsn, ISBN 3.626.14220.0 Preis: 22,60 
Mark 

Comm.5tal(VerBlonCd4), Lolis Nielsen, Honeluhcnaussae63,2000 Hamburg20, Preis: Dia. 
kette und Handbuoli: 266,- Mark 

Hollmann, 0.:SlallsllkmiiaemC64.Deskriollve und enalyllecbeSlatlstlk.unl. und mulllvarlete 
Verfahren, 'JJ.-D. Luther . Verlag, 6531 Qenaingen. Buch mH DIekene lOr den C64, ISSN 
3.62000129-4, Preis: 39,60 Mark 

Grelle Calc. In: e4’er Sonderheft 11/68, Verlag Mark! ilbchnik, Haar bei MOniWen, 14,- Mark, 
DIskstta 2990 Mark 


Dos 64'er-Magaziii - 
Fundgnibe für Anwendungen 


Bevor die vor Ihnen liegende Ausgabe erschien, 
gab es bereits mehrere Sonderhefte mit dem 
Thema »Anwendungen«. Auch das 64’er-Magazin 
bietet monatlich viele nützliche Programme und 
Anwendungen an, von denen das Beste stets zur 
»Anwendung des Monats« gekrönt und mit 1000 
Mark honoriert wird. Lesen Sie in diesem Bericht 
über einige der Interessantesten Programmveröf¬ 
fentlichungen der bisherigen Ausgaben. 

W ill man eine genaue Definition des Begriffes 
»Anwender-Software« formulieren, wird man 
zunächst Probleme haben, eine genaue Grenze zu 
anderen Programmen zu ziehen. Denn neben den reinen 
Unterhaltungsprogrammen wie den Spielen, kann eigent¬ 
lich jedes Produkt, das sich mit einem ernsthaften Problem 
beschäftigt, als Anwendung bezeichnet werden. 

Ein spezieller Teil der Anwendungen löst Probleme im 
Umgang mit dem Computer. Dazu gehören etwa Assem¬ 
bler, Grafikprogramme, Befehlserweiterungen oder Kopier¬ 
programme. Sie werden auch »Utilities« genannt. 

Der Rest — die eigentliche Anwendung — befaßt sich 
schließlich mit Problemen aus dem Beruf oder dem tägli¬ 
chen Leben. Beispiele sind hier Textverarbeitung, Tabel¬ 
lenkalkulation oder gar die persönliche Verwaltung von 
Kochrezepten. 


Speziell für diese besondere Art der Software schuf das 
64’er-Magazin die »Anwendung des Monats«, einen Wett¬ 
bewerb, der monatlich die beste Anwendung aus allen ein¬ 
gesandten Programmen auszeichnet. Aber auch die 
Rubrik »Listing des Monats« präsentiert oftmals Interes¬ 
sante Anwender-Software aus allen Bereichen. Zudem 
wurden bisher zwei Sonderhefte zum Schwerpunkt 
»Anwendungen« veröffentlicht. 

Aus diesem Grund haben wir die interessantesten 
Anwendungen, die in den vergangenen drei Jahren Im 
64'er-Magazln und den Sonderheften veröffentlicht wur¬ 
den, in einer Übersicht zusammengestellt und thematisch 
geordnet. 

Professionelle Software 


Professionelle Anwendungen erstrecken sich auf Gebiete 
wie Textverarbeitung oder Verwaltung von unterschiedlich¬ 
sten Daten. Buchführungsprogramme und Finanzbuchhal¬ 
tung sind weitere Beispiele. Sie finden hauptsächlich Im 
beruflichen Leben Verwendung, können aber auch im pri¬ 
vaten Bereich interessant sein. 

Mastertext 64 Sonderheft 16 
Mastertext 128 Sonderheft 18 
Besitzt man einen Computer, darf ein Textverarbeitungs¬ 
programm in der persönlichen Software-Sammlung natür¬ 
lich nicht fehlen. Briefe, Notizen oder jegliche weitere Art an 
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schriftlicher Korrespondenz lassen sich damit wesentiich 
schneller und bequemer verwirklichen, als etwa auf der 
alten wackeligen Schreibmaschine zu Großmutters Zeiten. 

Mastertext 64, dessen Benutzeroberfläche Sie in Bild 1 
betrachten können, ist ohne Zweifel einer der erfolgreich¬ 
sten und perfektesten Vertreter der Textprogramme für den 
C64. Beliebige Texte können bequem auf Diskette gespei¬ 
chert, nachträglich ergänzt, umgestellt, korrigiert und 
schließlich auf einem Drucker ausgegeben werden. 
Mastertext 64 bietet hierfür eine Vielzahl an Funktionen, die 
über einfache Menüs bequem zu erreichen sind. Tabulato¬ 
ren, Such- und Ersetzbefehle sowie Anweisungen zum 
Löschen. Verschieben und Kopieren von Textblöcken sind 



Bild 1. Die »übersichtliche« Benutzeroberfläche voTi Master¬ 
text 64 erweist sich als sehr nützlich 


nur einige Beispiele. Selbst das Schreiben von Serien-oder 
Formbriefen, der Druck in verschiedenen Formaten und im 
Blocksatz werden problemlos vorgenommen. Dabei bietet 
MastertextaufWunsch Trennvorschläge für längere Wörter 
an und übernimmt während des Druckvorgangs die auto¬ 
matische Seitennumerierung. Eine universelle Schnitt¬ 
stelle erlaubt die Verwendung nahezu aller Drucker, Wer 
will, kann gar über eine integrierte RS232-Schnittstelle mit 
anderen Computern in Verbindung treten. 

Eine wahre Meisterleistung vollbrachte auch der Autor 
von Mastertext 128, einem Textverarbeitungsprogramm für 
den C128. Aufbauend auf dem Komfort von Mastertext 64 
nutzt es die besonderen Fähigkeiten des C128 vollends 
aus. Selbstverständlich arbeitet Mastertext 128 im 
80-Zeichen-Modus, was das Schreiben von Texten wesent¬ 
lich übersichtlicher gestaltet. Die unzähligen Funktionen 
sind nun in perfekten Window- (Fenster-, Pull-Down-) 
Menüs untergebracht und können auf Tastendruck aktiviert 
werden. Bild2zeigt beispielsweise das Eingabefenster des 
Befehls »Suchen und Ersetzen«. 

Ein integrierter Taschenrechner erlaubt jederzeit 
Berechnungen in den vier Grundrechenarten, während 
uns eine Uhr mit Alarmfunktion daran erinnert, daß wir bei 
der Arbeit mit Mastertext 128 wieder einmal die Zelt verges¬ 
sen haben. 

Wer ein Modem oder einen Akustikkoppler zur Daten¬ 
fernübertragung besitzt, findet in Mastertext 128 auch ein 
interessantes Terminalprogramm. Mit Hilfe eines DFÜ- 
Menüs kann man Texte über einen angeschlossenen Aku¬ 
stikkoppler oder ein Modem senden und empfangen, oder 
direkt im Dialog mit einem anderen Computer kommunizie¬ 
ren. Eine große Anzahl an Sende- und Empfangsparame¬ 
tern gewährt dabei die nötige Flexibilität, 

Unzweifelhaft zählt Mastertext 128 aufgrund seiner enor¬ 
men Vielseitigkeit und Bedienerfreundlichkeit zu einem 


Programm der Spitzenklasse, das mehr als nur eine Alter¬ 
native zu manch käuflichem Textbearbeitungsprogramm 
ist. 

Proterm V6.0 64’er-Magazin 4/87 

Einen großen Schritt in Richtung DFÜ macht Proterm 
V6.0, ein ausgereiftes und komfortables Terminalprogramm 
für den C64. Dem DFÜ-Fan wird jeder nur erdenkliche 
Wunsch erfüllt. Ob Akustikkoppler oder Modem, Proterm 
V6.0 führt Sie hinaus aus dem heimischen Wohnzimmer in 
die Welt der Mailboxen und Hacker. 

Neben den üblichen Terminal-Modi eines guten DFÜ- 
Programmes verfügt das Proterm über einen »Autodialer«, 
Sollten Sie ein Modem mit automatischer Nummernwaht 
besitzen (bisher nur ein Modem von der Post zugelassen), 
haben Sie hier die Möglichkeit, ein Verzeichnis von Telefon¬ 
nummern zu führen, die Proterm V6.0 auf Knopfdruck selb¬ 
ständig wählt. Die gewünschte Verbindung ist damit 
schnell und problemlos hergestellt. 

Wer stets auf der Suche nach neuen Verbindungen ist, 
dem wird Proterm V6.0 bald ein unentbehrlicher Helfer 
sein, denn auf Kommando macht sich ein »Autoscanner« 
(Bild 3) auf die gezielte Suche nach Datex-P-NUAs. Erfolg¬ 
reiche Nummern werden mitprotokolliert und können zu 
einem späteren Zeitpunkt eingesehen werden. 

Eine besonders wichtige Eigenschaft eines guten Termi¬ 
nalprogrammes ist das einfache Senden von Dateien, Pro¬ 
term V6.0 erlaubt durch spezielle Kommandos das Senden 
von Programm- und sequentiellen Dateien von Diskette. 
Analog dazu können empfangene Dateien sogleich auf 
Diskette gespeichert werden. Das Übertragen von Pro¬ 
grammen und anderen Daten wird damit zum Kinderspiel. 
Für die Veränderung der zu schickenden oder empfange¬ 
nen Daten stehen zusätzlich zwei komfortable Editoren zur 
VerfügLK^g, die die unabhängige Bearbeitung von zwei Tex¬ 
ten gesiatten. 

Datev Sonderheft 9 

Besitzen Sie einen Karteikasten? Dann wissen Sie 
sicherlich, wie schwierig es ist, seinen Inhalt in Ordnung zu 
halten und stets zu aktualisieren. Datev verbannt solche 
Probleme in die Vergangenheit. Dieses professionelle 
Datenverarbeitungsprogramm übernimmt die Verwaltung 
von bis zu 1024 beliebigen Datensätzen mit einer maxima¬ 
len Länge von 256 Zeichen. Die Eingabe der Daten erfolgt 
über eine Bildschirmmaske, die In einem großzügigen Edi¬ 
tor nach eigenen Wünschen zusammengestellt werden 
kann. Eine Adreßdatei-Maske kann beispielsweise wie in 
Bild 4 aussehen. Selbstverständlich ist man mit Datev in 
der Lage, vorhandene Datensätze in der übersichtlichen 
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Bild 2. Mastertext 128 besticht durch eine vielfältige 
WIndow-Techntk und viele andere Funktionen 
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Bild 3. Der »Autohacker« von Proterm V6.0 Ist wieder einmal 
auf der Suche nach neuen NUAs 

Eingabemaske nachträglich zu ändern, alphabetisch zu 
sortieren oder mit einem Drucker auf Papier festzuhalten, 
Mit verständlichen Kommandos werden die einzelnen 
Datensätze vor- und zurückgeblättert, während ein Such¬ 
befehl das Auffinden bestimmter Daten nach frei wählbaren 
Kriterien schnell und problemlos vollzieht. Datev bedient 
sich hierbei Indexfeldern, die einen direkten Zugriff auf 
einen Datensatz In beachtlich kurzer Zeit ermöglichen, 
Datev ist also eine interessante Möglichkeit, der unge¬ 
liebten »Zettelwirtschaft« auf dem eigenen Schreibtisch 
Herr zu werden. Doch sind Sie mit Datev leider nicht aller 
Ordnungsaufgaben entledigt, zumindest was die Ordnung 
ihrer Datev-Datendisketten betrifft. 


Elektronik und Naturwissenschaften 


Computer werden in den Naturwissenschaften in zuneh¬ 
mendem Maße genutzt. Bereits heute nehmen leistungsfä¬ 
hige Programme dem Wissenschaftler komplizierte 
Berechnungen und Analysen ab und bestechen durch ein¬ 
drucksvolle Grafikdarstellungen. 

Kudi 64 64'er-Magazin 2/87 

Kurvendiskussionen in der Mathematik machen so man¬ 
chem Schüler zu schaffen, denn die umfangreichen 
Berechnungen führen oftmals zu Fehlergebnissen, die die 
gesamte Arbeit zunichte machen können. Das Programm 
Kudi 64 für den C64 erweist sich hier als wahrer Helfer in 
der Not. Mittels einer eindrucksvollen Basic-Erweiterung 
zeichnet Kudi 64 nicht nur jede gewünschte Funktion in 
hochauflösender Grafik auf den Bildschirm des C64, ein 
einziger Befehl (DISCUSS) vollzieht vielmehr eine vollstän¬ 
dige Kurvendiskussion. Dabei werden nach Belieben die 
erste und zweite Ableitung errechnet und ebenfalls in die 
Grafik eingefügt, wie es Bild 5 zeigt. Selbstverständlich 
werden die Ableitungen ln verschiedenen Farben auf dem 
Monitor dargestellt. 

Das Programm ermittelt zudem alle Nullstellen, 
Extrema, Wende- und Terrassenpunkte auf acht Stellen 
genau. Definitionslücken der diskutierten Funktion werden 
dabei automatisch erkannt und gekennzeichnet. All diese 
Eigenschaften lassen wohl keinen Zweifel daran, daß Kudi 
64 das bisher leistungsfähigste Kurvendiskussions¬ 
programm ist, das für den C64 erhältlich ist, 
Bonito-RCA-64 64'6r-Magazin 4/87 

Kennen Sie Morsetelegrafie (CW) oder Funkfernschrei¬ 
ben (RTTY)? Selbst wenn Ihnen diese Begriffe bisher unbe¬ 
kannt waren, so werden Sie sicherlich bereits einmal fol¬ 
gendes Phänomen miterlebt haben: Stellt man sein Radio- 
gerät auf Kurzwellenempfang, entdeckt man bei bestimm¬ 
ten Frequenzen seltsame rhythmische Piepstöne. Die 


Quelle solch merkwürdiger Geräusche sind RTTY- oder 
CW-Sender, die mittels Funk verschlüsselte Informationen 
ausstrahlen. Wetterstationen oder auch Presseagenturen 
übermitteln in dieser besonderen Codierung zum Beispiel 
Nachrichten und Wettermeldungen. 

Mit einem einfachen Kurzwellenempfänger (das bedeu¬ 
tet mit einer Amateur-Funkstation oder bereits mit jedem 
guten Transistorradio), einem speziellen Konverter und 
dem Programm »Bonito-RCA-64« besitzen Sie die nötige 
Ausrüstung, jene Signale im Klartext auf dem C64 zu emp¬ 
fangen (Bild 6). Daneben erlaubt Bonito auch das Senden 
von RTTY- und CW-Mitteilungen. Hierzu ist jedoch ein 
Amateur-Funkgerät notwendig. 

In Ausgabe 4/87 des 64'er-Magazins finden Sie neben 
dem Programm auch eine Bauanleitung des RTTY/CW- 
Konverters, der einfach über den User-F^rt mit dem C64 
verbunden wird. 

Bevor Sie mit Bonito jedoch Ihre ersten Streifzüge durch 
die RTTY- und CW-Sender beginnen, sei noch erwähnt, 
daß das Empfangen und Mithören der meisten Sendesta- 
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Bild 4. Eingabe-Masken von Datev sind übersichtlich pro¬ 
grammiert und einfach zu handhaben 


tionen einer Sondergenehmigung bedarf. Für den Betrieb 
einer Amateur-Funkstation benötigt man zudem eine 
Lizenz. Vielleicht finden Sie mit Bonito zu einem neuen 
Hobby, dem Amateur-Funk. 

Hypra-Platos 64’er-Magazin 11/85 

Wer als Hobby-Elektroniker schon Platinen-Layouts für 
seine setbstentworfenen Elektronik-Schaltungen anferti¬ 
gen mußte, weiß um diese mühselige Arbeit, wenn sie von 
Hand vorgenommen werden muß. Bisher gab es jedoch 
keine Alternative, denn professionelle Platinen- 
Layoutsysteme sind für den privaten Gebrauch viel zu kost¬ 
spielig. 

Hypra-Platos ist eines der ersten Platinen-Layout- 
Operationssysteme für den C64, das es jedem Elektronik¬ 
bastler gestattet, ohne Probleme das Layout von elektroni¬ 
schen Schaltungen schnell und einfach auf dem 
Computer-Bildschirm vorzunehmen. Mit Hypra-Platos las¬ 
sen sich sogar doppelseitige Platinen-Entwürfe verwirkli¬ 
chen. 

Durch übersichtliche Menüsteuerung können die Bau¬ 
teile einer Schaltung bequem auf einer Arbeitsfläche von 
insgesamt 100 x 128 Punkten positioniert werden. Selbst 
ein Drehen und nachträgliches Verschieben wird von 
Hypra-Platos gewissenhaft durchgeführt. Während der 
Layout-Arbeit kann man auf eine Bibliothek von verschie¬ 
densten Bauteilen zurückgreifen und beliebig erweitern. 
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Bild 5. KudI 64 erstellt Kurvendiskussionen. Hier die Funk¬ 
tion {x^-5x^)/(x‘' -f 2x) mit erster und zweiter Ableitung. 


Ein integrierter »Autorouter« übernimmt anschließend 
die korrekte Verbindung der Knotenpunkte mit Leiterbah¬ 
nen. Der Anwender erhäit jedoch auch die Möglichkeit, die 
Leiterbahnen nach eigenen Vorsteilungen zu verlegen. 

Der Ausdruck erfolgt schließlich mit einem beliebigen 
Commodore- oder Epson-Drucker (auch Kompatibie), so 
daß das ersteiite Layout sogieich für die weitere Bearbei¬ 
tung der Piatine zur Verfügung steht. Die perfekten Layouts 
in Biid 7 wurden beispieisweise mit Hypra-Piatos entwor¬ 
fen. 

Digi-Controller 64'er'Magazin 8/86 

»Digitaiisierung« ist das Schlagwort der modernen Elek¬ 
tronik. Immer mehr Geräte, wie die soeben erworbene neue 
Waschmaschine, Fernsehgeräte oder auch die heimische 
Stereoanlage, werden heule fast ausschließlich durch digi¬ 
tale Mikrocomputer gesteuert und nutzen somit die enor¬ 
men Vorteile dieser neuen Technik. So wird es in naher 
Zukunft immer wichtiger, beruflich oder auch privat, die 
grundsätzliche Funktionsweise der digitalen Steuerung zu 
verstehen. Der »Digi-Controller« für den C64 wird Ihnen 
dabei wertvolle Hilfe leisten und das Verständnis um digi¬ 
tale Begriffe wie »Gatter«, »AND-Verknüpfung« und 
»High/Low-Pegel« vertiefen. 

Doch dient das Programm nicht nur Lehrzwecken; seine 
Hauptaufgabe ist es vielmehr, die Funktion digitaler Schal¬ 
tungen zu simulieren und auszutesten. Ein selbstentworfe¬ 
ner Digltal-Steuerkreis kann somit mit dem C64 auf seine 
Funktionsfähigkeit erprobt werden, noch bevor er auf einer 
Platine aufgebaut ist. 

Die Entwicklung und Prüfung von digitalen Steuereinhei¬ 
ten, wie etwa zur Regulierung der Signalstellungen einer 
Modellelsenbahn-Anlage, sind somit ein Kinderspiel. 

Der Chemie-Assistent 64'6r-Magaz(n 12/85 

Löslichkeitsprodukte, Ausfallkonzentrationen und vor 
allem Titrationen sind der Alptraum beinahe jedes Chemie¬ 
schülers. Denn hinter diesen der anorganischen Chemie 
entstammenden Begriffe verbergen sich oftmals kompii- 
zierte Berechnungen und umfangreiche Experimente, bis 
die entsprechenden Werte, wie Molvolumen oder molare 
Masse, gefunden sind. Der »Chemie-Assistent« für den 
C64 bewältigt diese Probleme schnell und sicher. 

Mittels vielfältiger Menüs berechnet das Programm 
mühelos die molaren Massen von Salzverbindungen, führt 
Konzentrations-Umrechnungen durch und ermittelt das 
Löslichkeitsprodukt eines Salzes. Die besondere Lei¬ 
stungsfähigkeit liegt dabei in der Verarbeitung von zusam¬ 
mengesetzten Verbindungen mit mehr als zwei Elementen. 
Ein so komplexes Salz wie etwa »Fe4(Fe(CN)6)3« wird je 
nach Bedarf sorgsam aufgeschlüsselt und verarbeitet. 


Daneben nimmt der Chemie-Assistent die zeitaufwen¬ 
dige Berechnung von Titrations-Ergebnissen vor, wenn die 
Konzentration einer Säure oder Lauge zu bestimmen ist. 

Doch erst die Kombination all der vielfältigen Menü¬ 
punkte verleiht diesem Programm die nötige Flexibilität, 
wie sie im Alltag eines Chemikers oder im Chemieunter¬ 
richt gefordert ist. Werden Chemie-Assistenten einmal ken¬ 



nengelernt hat, wird ihn schon nach, kurzer Zeit nicht mehr 
missen wollen. 

Kaum ein Schüler klagt nicht über Leistungsdruck und 
den sich stets vermehrenden Lernstoff an den Schulen. 
Hier helfen spezielle Lernprogramme, das Lernen mög¬ 
lichst unterhaltsam und effektiv zu gestalten. 
Vokabel-TValner 64’er-Magazin 8/86 

Das Lernen von Vokabeln ist zweifellos eine der langwei¬ 
ligsten und zugleich anstrengendsten Pflichten eines 



156 


SONDERHEFT 23 





































































C64 


SOFTWARE 


Schülers, Der »Vokabel-Trainer« für den C64 beweist 
jedoch, daß solch »stupides Büffeln« durchaus Spaß 
machen kann. 

Bei der Entwicklung dieses Programmes wurde vor¬ 
nehmlich Wert auf Bedienerfreundlichkeit und Komfort 
gelegt. Verständliche Menüs mit diversen Hilfsfunktionen 
erlauben die schnelle Erstellung und Änderung von Voka¬ 
beldateien, während ein weiterer Menüpunkt den Ausdruck 
jeder beliebigen Vokabellektlon auf nahezu allen Druckern 
vornimmt. 

Der größte Teil des Programmes dient jedoch dem kom¬ 
fortablen und effektiven Abfragen der Vokabeln. Der 
Vokabel-Tfalner verwaltet dazu zwei Karteien, die jeweils 
die bereits abgefragten und die noch unbekannten Voka¬ 
beln enthalten. Hat man ein Wort richtig übersetzt, wird die¬ 
ses sogleich in die Kartei der erfolgreichen Vokabeln einge¬ 
reiht. Das Fremdwort wird aber weiterhin, nun aber mit ver¬ 
minderter Häufigkeit, abgefragt. Erst nach fünf richtigen 
Antworten wird ein Wort zu den gelernten Vokabeln gezählt 
und nicht mehr abgefragt. Diese sehr effektive Methode 
gewährleistet einen hohen Lernerfolg. Zudem gestattet der 
Vokabel-Trainer dem Anwender, die Überprüfung der Voka¬ 
bellektionen zu unterbrechen und den momentanen Lern¬ 
erfolg auf Diskette festzuhalten. Das Lernen kann somit zu 
einem späteren Zeitpunkt wieder aufgenommen werden. 

Der Vokabel-Trainer ist in der Grundversion für die 
Abfrage von Englisch-Vokabeln vorgesehen. Für andere 
Fremdsprachen können im Programm jedoch entspre¬ 
chende Änderungen vorgenommen werden. 

Quizmaster 64'er-Magazin 4/86 

»Wie lautet der Satz des Pythagoras?« 

Diese Frage stellt Ihnen der »Quizmaster« für den C 64 in 
Bild 8. Aufbauend auf dem System »Multiple-Choice« bietet 
er dazu mehrere Antworten zur Wahl, 

Dieses Beispiel ist zugegeben recht einfach, doch kön¬ 
nen Sie mit Quizmaster auch kniffligere Fragen nach eige¬ 
nen Vorstellungen auf dem Bildschirm gestalten und 
schlieBlich zu einem interessanten Quiz zusammenfügen. 



Bild 6. Mit Bonlto-RCA-64 und dieser Ausrüstung können 
Sie RTTY- und CW-Meldungen Im Klartext auf dem Monitor 
des C64 empfangen 


das aus insgesamt 99 Fragen bestehen darf. Die so erstell¬ 
ten Fragebögen können gezielt bei der Vorbereitung auf 
Prüfungen helfen oder auch, bei entsprechend phantasie¬ 
vollen Bildschirmdarstellungen, als gelungene Unterhal¬ 
tung für Parties Verwendung finden. Denn Quizmaster bie¬ 
tet für die abwechslungsreiche Gestaltung der Fragen viele 
Extras. 

So erhält der Anwender die Möglichkeit, statt des übli¬ 
chen Commodore-Zeichensalzes bis zu zwei frei definier¬ 
bare Zeichensätze in das Quiz einzubinden, um etwa Son¬ 
derzeichen oder spezielle Qrafikmuster zu erzeugen. 


i Mi H) tf. fr. K> Ki rr» rc Hi Ki Hi tf> m h> h> h> m n 

D(>r <u><; i<iiit«>«... 

II a- !>■-(■ 

a .T »I. • - > • 

II s 1 n • * ♦ cos-' I 

II • « ^ imi' 

II 11 - i’i.« • < <>•. ■ 


1 ri ) - -.xt I ff I '.xf I ri I - ryt t ri > t ti 

Bild 8. Oaa Lernen wird mit Quizmaster zum Vergnügen 

Daneben lassen sich während des Quiz Bewegungsse- 
quenzen von Zeichen realisieren. Quizmaster verändert 
dabei stets aktiv das Aussehen bestimmter Blldschlrmsym- 
bole, was bei gezielter Anwendung eindrucksvolle Anima¬ 
tionseffekte ergibt. Als krönenden Abschluß kann man 
schließlich noch ein Titelbild seines Computer- 
Fragebogens entwerfen, das von Quizmaster automatisch 
vor Beginn des Quiz geladen wird. 

Die Steuerung des Programmes erfolgt durch eine viel¬ 
seitige Menütechnik, die die Auswahl der einzelnen Pro¬ 
grammpunkte mittels der Cursortasten gestattet. Für das 
Erstellen einer jeden Frage stellt das Programm jeweils 
einen gesamten Bildschirm zur Verfügung, der in einem 
Editor, ähnlich dem Basic-Editor, bequem verändert wer¬ 
den kar.r. Hat man alle Quizfragen zusammengestelit und 
auf einer Diskette gespeichert, kann man schließlich den 
Menüpunkt »Quiz spielen« aufrufen, um das Ergebnis sei¬ 
ner Bemühungen in Aktion zu betrachten. Quizmaster 
beweist, daß Lernen auch Spaß machen kann. 

Der C64 hat einen Freizeitwert, der weit über das bloße 
Vergnügen mit Videospielen hinausgeht. Denn dieses 
überaus vielseitige Gerät wird immer häufiger für die Ver¬ 
wirklichung anderer Hobbies eingesetzt, wie zum Beispiel 
für die Steuerung der Modelleisenbahn, als zuverlässiger 
Helfer beim Sport oder in der Musik, Daneben müssen 
Anwendungen nicht immer ernsthafter Natursein. Sie kön¬ 
nen ebenso auch unterhaltsamen Wert haben, wie manche 
Listings des 64’er-Magazins zeigen, 

Handballtralner 64’er-Magazin 1/85 

Neben Kampfgeist, Kraft und Schnelligkeit gehört auch 
Taktik zu beinahe jeder Sportart. Gerade in Mannschafts¬ 
sportarten ist die Koordination der einzelnen Mitglieder und 
das Lehren von taktischen Grundzügen für den Trainer eine 
schwere Aufgabe. Meist dient hierfür eine Schultafel, auf 
der der Mannschaft mit Kreidezeichnungen das Stellungs¬ 
spiel oder Angriffsstrategien vermittelt werden. Doch wäh¬ 
rend der Erläuterung verschiedener Spielvariationen ver¬ 
wandelt sich das anfangs klare Tafelbild zusehends in ein 
wirres Muster aus Linien, Punkten und Symbolen, die 
kaum jemand zu überblicken vermag. 

Der »Handballtrainer« (Bild 9) löst dieses Problem spe¬ 
ziell für das taktische Spiel im Handballsport. Mit der Grafik 
des C64 demonstriert dieses Programm verschiedene 
grundsätzliche Spielzüge, Die einzelnen Spieler bewegen 
sich dabei in Form von Sprites über ein elektronisches 
Handballfeld und führen verschiedenste Spielarten aus, 
die zuvor in einfachen Menüs angewählt werden können. 
Dazu gehören diverse Angriffs- und Abwehrsysteme sowie 
taktische Spielarten wie Passen, Stoßen, Achterlauf und 
Abwehren. 
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Bild 9. Der Handballtrainer macht das Handballspiel über* 
sichtlicher 

Ersetzt das Programm auch keinen Handballtrainer, so 
können doch die Grundzüge des Handballspiels nicht nur 
für aktive Spieler, sondern auch für den interessierten 
Laien verständlich gemacht werden. 

Rhythm Construction Set 64’er-Magazin 7/86 

Wer als Hobbymusiker bisher voller Neid auf die teuren 
professionellen Rhythmusgeräte blickte, erhält mit R.C.S,, 
einem Rhythmusgenerator-Programm für den C64, eine 
preiswerte Alternative, denn insgesamt 17 nachgeahmte 
Schlagzeugstimmen und 29 Rhythmen erlauben den Ein¬ 
satz des C64 als waschechten Rhythmuscomputer. 

Besondere Leistungsfähigkeit zeigt R.C.S. bei der Bil¬ 
dung von vollständigen Rhythmussequenzen, Zur Erzeu¬ 
gung von umfangreichen Schlagzeugbegleitungen hat 
man die Möglichkeit, bis zu 252 Takte zu einer Folge von 
verschiedenen Rhythmen zusammenzufügen. Ein über¬ 
sichtlicher Bildaufbau, wie er in Bild 10 zu sehen ist, und 
eine perfekte Menüsteuerung sind dabei behilflich.. Auf 
diese Weise lassen sich komplexe Schlagzeugstücke 
»komponieren«, die man als Begleitung für eigene Musikin¬ 
strumente oder aber auch für Melodien auf dem C64 ver¬ 
wenden kann. Selbstverständlich sind alle Rhythmen und 
Rhythmussequenzen auf Diskette speicherbar, und kön¬ 
nen nach entsprechenden Vorbereitungen auch unabhän¬ 
gig von R.C.S. geladen und gestartet werden. Damit ist bei¬ 
spielsweise der Einsatz von Rhythmusbegleltungen in 
eigenen Programmen denkbar. 

Um den vollkommenen Hörgenuß zu erlangen, empfiehlt 
der Autor von R.C.S., den C64 über die Videobuchse an 



TrtKT 


,»<», 00 , 00 , 00 . 00 , 00^00 


Bild 10. Die elektronische »Drum-Machlne« In Aktion. Hier 
werden gerade Rhythmussequenzen programmiert. 


einer Stereoanlage anzuschlleßen. Bei genügender Laut¬ 
stärke gelingt es Ihnen vielleicht, daß »alles nach Ihrem 
Rhythmus tanzt«? 

Lyrik 3.0 64'er-Magazin 11/65 

•Goldene Ränke zerschmettern eine Hoffnung, 

Das Auge schreit. 

Da immer wieder pulsierende Welten verwehen, stirbt das 
Universum.« 

Dieser melancholische Vers stammt nicht etwa aus der 
Hand eines berühmten Dichters, wie man vielleicht vermu¬ 
ten könnte. Er wurde vielmehr von »Lyrik 3.0« (Bild 11), 
einem faszinierenden Programm für den C64, »erdacht«, 
das auf interessante Weise unablässig sinnige und unsin¬ 
nige Prosa-Verse entwickelt. Doch handelt es sich dabei 
nicht um eine wirre Aneinanderreihung von beliebigen 
Worten. Mit konkreten grammatikalischen und syntakti¬ 
schen Regeln werden aus einer großen Anzahl von Haupt¬ 
wörtern, Verben, Adjektiven und anderen Wortformen stets 
korrekte Sätze gebildet. Dem Anwender steht es dabei frei, 
den bereits vorhandenen Wortschatz zu übernehmen oder 
ihn nach eigenen Vorstellungen und Gefühlen zu erwei¬ 
tern. Selbst Satzstrukturen können nach einem ausgeklü¬ 
gelten Befehlssystem, ähnlich den Mnemonics der 



Bild 11. Frech und phantaslevoll: Mit Lyrik 3.0 wird Ihr C 64 
zum Dichter. 


Assembler-Sprache, eigenständig zusammengesetzt wer¬ 
den, um den erzeugten Gedichten gewisse Stimmungen 
und Stilrichtungen zu verleihen. 

Die dichterischen Möglichkeiten von Lyrik 3.0 scheinen 
unbegrenzt, »so unbegrenzt wie die uralten Zweifel unwirk¬ 
licher Völker einerstrahlend schönen Galaxis...« (Zitat Lyrik 

3.0). 

Mit diesem dichterischen Beitrag sind wir an das Ende 
unserer Übersicht angelangt. Leider konnten hier nicht alle 
Anwendungsprogramme der vergangenen Ausgaben des 
64'er-Magazlns erwähnt werden, was zweifelsohne ein 
ganzes Sonderheft gefüllt hätte. Die Übersicht beweist 
jedoch den Ideenreichtum unserer Leser, der Sie sicherlich 
auch in Zukunft mit hervorragenden Anwendungen versor¬ 
gen wird. 

(Michael Thomas/rf) 


AIlB Programme sind In den jeweils angegebenen AusgEden abgedruckt. Die Progtemtne kön¬ 
nen Sie euoh auf einer programm3ervlce-DlBkettefar29,S5 Merk bei folgender Adresse erwsr. 
ber: 

Markt & Technik Verlag AC, Hans-Plneel-Str. 2, S013 Heer 

In den genanrtten Heften flrrdet sich auch die Bastei Inummer zur Jeweiligen Diskette. 
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V3 und MSE 

Diese beiden Programme sind unentbehriich 
beim Abtippen unserer Listings. Sie helfen, 
Tippfehier vor aiiem bei Maschinenprogram¬ 
men zu vermeiden und sparen eine Menge Zeit. 

N obody iS perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen sein. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer V3« und »MSE«(MaschinenSpracheEditor) entwickelt. 
Der Checksummer ist für Basic-Programme und der MSE 
für Maschinensprache-Listings zuständig. 

Der Checksummer 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie äußerst sorgfäl¬ 
tig Vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 
20 bis 30. Wenn Sie trotzdem noch einen Tippfehler 
gemacht haben, meldet sich das Programm später mit 
einem entsprechenden Hinweis. Wenn Sie fertig sind, spei¬ 
chern Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und das Drücken der RETURN-Taste. 

2. Wenn die Meldung »Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3. Zum Löschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht gelöscht. 

4. Nun können wir den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN-Taste: 
1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme über die eben eingegebene Basic-Zelle. Sie 
muß <63> lauten. Dem Checksummer ist es übrigens 
egal, ob Sie »1 REM« oder »1REM« eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer eingeschaltet haben) immer dann, wenn 
Sie eine Basic-Zeile eintippen und dann die RETURN-Taste 
drücken, in der 64'er finden Sie die Prüfsumme immer am 
Ende jeder Programmzeile. 


10 PRINT'CHECKSUMHER FUER C 64" 

11 PRINT:PRINT''EINEN HOKENT. BITTE ..." 

12 FOR 1=828 TO 864:EEAD A:P0XE I.A:PS=PS+ 
A:NEXT I 

13 IF P50S7BS THEN PRINT’TIPPFEHLBR IN DE 
H ZEILEN 20 BIS 22":END 

14 SYS 82S:F&=0:FOR 1=58464 TO Sasa3:READ 
A:POKE I,A!PS=PS+A!NEXT I 

15 IF PSOI6147 THEN PEINT''TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30":END 

16 POXE l,53:POKE 42289,96:POKE 42290,228 

17 PEINT"CHBCKSUMHEE AKTIVIERT." 

18 PEINTiPEINT" AUSSCHALTEN ■ POKEl.SS ODE 
R"SPC(27)"<RUN/STOP«EESTORE>" 

19 PEINTiPRINT" ANSCHALTEN = P0KE1,53’' 

20 DATA 169,0.133.254,162.1.169.93.3.133,2 
SSil60.0,177.254 

21 DATA 145,254,136,208,249.230.295.165,25 
5.221,95,3.208,236,202 

22 DATA 16,230,96.160,224,192,0,160.2.169. 
0,170,133.254.177 

23 DATA 95,240,40,201.32,208,3.200.208,245 
,133,253.138,41,7 

24 DATA 170.240,14,72.165,255,24.42.105.0, 

202.208.249.133.255 

25 DATA 104,170.232,165,255,24,101,254,133 
.254.76,111,226,192,4 

26 DATA 48,219,196,214,165,214,72,162,3.16 
9.32.157.1,4,169 

27 DATA 212,226,32,210,255,206,12,0,92,72, 

32,201,255,170,104 * 

26 DATA 144,1.138,96.202,16,226,166.254.16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104.133,214,32,108.2 

29.169.141.32.210.255 

30 DATA 76.128.164,9.60,18,19 

Listing 1. Der »Checksummer 64 VS« für Basic-Listings 


S PRINT CHR»(14> <242> 

IB PRINT"tCLRJ” <254> 

20 PRTMT<13e> 
. 3B 4:n:NT"(4DOWN,2&PACE}2ESTI&PACE,BLUE,&SP 

AütJ" <B22> 

4e PRiNT"7isss3SBSisi3B3smnn3m8'' <iee> 
e ee'er 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungszeichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungszeichen die CBM- 
Taste und den Buchstaben <Q>, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Taste und den Buchstaben <W>. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann <SHIFTT> und normal EST, zum 
Schluß noch einmal die Leertaste, die Farbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 


CTRL Steht für Control-Taste, so bedeutet ICTRL+Aj, daß Sie die Control-Taste und die Taste >A' drücken müssen. Im folgenden steht: 

IDOWNl 

Taste neben rechtem Shitt, 

[SPACEl 

Leertaste 

IRVSON! 

Control-Taste & 9 


Cursor unten 

[SHIFT-Spacel 

Shift-Taste & Leeneste 

IRVOFF] 

Control-Taste & 0 

lUPI 

Shifl-Taste & Taste neben 

IFIlbis 1F8| 

Funktionslasten 

lORANGEI 

Commodore-Taste & 1 


rechtem Shitt: Cursor hoch 

IRETURN] 

Relurn-Tasle 

IBROWN! 

Commodore-Taste & 2 

iCLfll 

Shift-Taste & 2. Taste 

IBLACKj 

Control-Teste & 1 

ILIQ.REDl 

Commodore-Taste & 3 


ganz rechta oben 

IWHITE] 

Control-Taste & 2 

1GREY1I 

Commodore-Taste & 4 

IINST! 

Shitt-Taste & Taste 

IREDl 

Control-Taste & 3 

IGREY 2| 

Commodore-Taste & 5 

ganz rechts oben 

ICYANi 

Control-Taste & 4 

ILIG.QREENI 

Commodore-Taste & 6 

IHOMEI 

2. Taste von ganz rechts oben 

IPURPLEl 

Control-Taste & 5 

ILIQ.BLUEI 

Commodore-Taste & 7 

lOELl 

Taste ganz rechts oben 

tGREENj 

Control-Taste & 6 

IGREY 31 

Commodore-Taste & 8 

IRIQHTj 

Taste ganz rechts unten 

IBLUEI 

Control-Taste & 7 

Tabelle 1. 


iLEFT] 

Shift-Taste & Taste unten rechts 

lYELLOW] 

Control-Taste & 8 

Die Steuerbefehle In den Listings 
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Diese Zahlen dürfen Sie NICHT mit abtippen. 

Als Beispiel sehen Sie Bild 1. Am rechten Rand jeder 
Spalte sehen Sie die Prüfsummen in eckigen Klammern. 

Damit sind wir beim zweiten wichtigen Punkt; Sehen Sie 
sich die Zeile 240 von Listing 2 genauer an. Nach dem ersten 
Anführungszeichen nach dem PRINT-Befehl sehen Sie eine 
geschweifte Klammer [ ]. Immer, wenn Sie in einem unserer 
Listings diese Klammern sehen, dürfen Sie das, was inner¬ 
halb der Klammern steht, nicht eintippen. Sie müssen die 
entsprechende Taste drücken. Beispiel: 

10 PRINT "fCLRl" 


bedeutet; Nach dem Anführungszeichen die »Bildschirm- 
Iöschen«-Taste drücken (<SHIFT CLR/HOME>). in Ta¬ 
belle 1 sehen Sie eine Zusammenfassung aller möglichen 
Steuertasten mit dem entsprechenden Klartext. 

Weiterhin sehen Sie in Bild 1 (Bedeutung der Steuerzei¬ 
chen) in Zeile 30 ein unterstrichenes »T» nach der Klammer. 
Das bedeutet, daß Sie ein »T« zusammen mit der SHIFT- 
Tastedrücken müssen, also <SHIFTT>. Wenn ein Zeichen 
»Überstrichen« ist, müssen Sie dieses zusammen mit der 
CBM-Taste eingeben. Die CBM-Taste befindet sich ganz 
links unten auf der Tastatur und hat die Aufschrift »C=«. 


laet RBM DIESES PROOBAMM ERZEUOT DEN 
110 REM MSE VI.1 AUF DISKETTE. 

120 HEM BESITZER EINER DATASETTE 
130 REM MUESSEN DIE ’ 8 ’ AM ENDE VON 
140 REM ZEILE 343 IN EINE ’l' AENDERN! 

150 REM 

230 IF PEEK<44)<>32 THEN PRINT'CCLRISIE HA 
BEN VERGESSEN, DIE FOKES EINZUGE- BEN! 
" ! END 

240 PR1NT''CCLR5'i :DIM H(75)-FOR 1 = 0 TO 9 
250 H(48+1J=I:H(65+1)=1+10:NEXT!Z=1000 

260 FOR 1 = 2048 TO 3755 STEP 20: PRINT’'CHOME 
>ICH LESE ZEILE-"Z 

261 FOB N=0 TO 1B:READ A$:IF LBNCA$)<>2 TH 
EN 900 

262 IF PEEKtß3)+PEEKt64)*256<>Z THEN 800 
270 H=ASC{LEFTS(A5,1)):L=ASC(RIOHT*(AS.1)) 
280 D=H(H!»16+H(L>:S=S+D:POKE I+N,D 

280 NEXT:READ V:XF SoV THEN 900 

300 S=0:Z=Z+1;NEXT:R=PEEK{2111>:H=PEEK(210 
6 ) 

301 POKE 532S0,E:POKE 53281,H:POKE 646,RiP 
EINT''CCLR>DIE DATA-ZEILEN SIND FEHLEEF 
REI! " 

302 PRINT''SIE KOENNEN NUN DIE FARBEN DES M 
SE" 

303 PRINT’'EINSTELLEN. " :PRINT''<2DOHN.SPACE. 
RVSONIDRUECKEN SIE <1>. <2> ODER <9> 

304 PR1NT"CD0UN.2SPACE><1> - RAHMEN-/SCHRI 
FTFARBE 

305 PRINT"C2SPACE><2> - HINTEBGRUNDFARBE 

306 PEINT"<D0WN.2SPACE}<9> - FARBEN UEBERN 
EHMEN 

307 PBINT''C2D0WN>FARBE <1> = "RiPRINT'TARBE 
<2>!"H 

308 GET A:IF A=0 THEN 308 

309 IF A=1 THEN R=(E+1)AND 15 

310 IF A=2 THEN H=<H+1)AND 15 

311 IF A=9 THEN 340 

312 GOTO 301 

340 POKE 210ß.H:POKE 2111.R 

342 POKE 631.19!P0KE 632,13;POKE 198,2 

343 PBINT''CCLR3SAVE"CHR$(34)'’MSE V1.1"CHR« 
(34 )",8 

344 POKE 43,l!POKE 44,a:P0KE 45,172:POKE 4 
6,14>END 

800 PRINT"CCLR.RVSONOSIE HABEN ZEILE"Z"CLE 
FT,SPACEIVERGESSEN!">A=PEEK<646JAND 15 
810 POKE 646.PEEK!532B1)AND ISipRINT'LIST" 
Z-2"-'’Z+2!POKE. 646.A 
820 GOTO 920 

900 PRINT'CCLR.RVSONOSIE HABEN EINEN TIPPF 
EHLER GEMACHT!":A=PEEK<646)AND 15 
910 POKE 646,PEEK(53261)AND 15!PRINT"LIST" 
Z!POKE 646,A 

920 POKE 631,19!P0KE e32,17:POKE 633,13!PO 
KE 183.3!END 

1000 DATA 00.06,08,0A,00.8E,32,30.36,31,00 
.00,00,A2,08,A9.36.85.A4,Ag, 1247 

1001 DATA 0e,a5,A5,A9,00,8S,A6,A9.B0,8S.A7 
,A0,00,Bl.A4.91,A6.C6.D0,Fg, 2888 

1002 DATA E6,A5.E6.A7,CA.D0,F2,A9,36.8S,01 
,4C.00,B0,20,D1,B1,A9.00.6D, 2731 

1003 DATA 21,D0,A9.0F.8D.20.D0,8D,B6,02,A0 
.B3,Ag,74,20,FF,Bl.A0,B3,A9, 2679 

1004 DATA 69,20.FF,Bl,A0,00.20,CF,FF,99,01 
,02,CB,C9.0D,D0,FS,aB,F0,D2, 2912 

1005 DATA C0.11.90,02,A0,10,BC,00,02,20.EA 
,B1,A0,B3,A9.CF,20,FF,B1,20. 2327 

1006 DATA eE>B4,e5.FC,85,62.20,e£iB4,8S,FB 
.65,61,20,A7,B4,D0,20,A0.B3, 2864 

1007 DATA A9,E3,20,FF,B1.20.8E.B4,35,60,20 


< 210 > 

<039> 

<17e> 

<145> 

<176> 

< 212 > 


<050> 

<042> 

<136> 

<2S3> 

<062> 

< 011 > 

<igg> 

<165> 

<130> 

<126> 


<080> 

<209> 

<013> 

<233> 

ass) 

<066> 

C210> 

<098> 

':088> 

<2:7> 

<034> 

<153> 

<13S> 

<091> 

<140> 

<124> 

<224> 

<062> 

<154> 

<173> 

<126> 

<119> 

<054> 

<0g6> 

<0e9> 

<217> 

<04S> 

<ige> 


,eE.B4,e5,SF.20.A7.B4,D0,0A, 2624 

1008 DATA AS,61.CS,5F,A5,62,ES,60,90,06,20 
,43.B3.4C,3A.B0,A9.,AA,A0.00, 2379 

1009 DATA EA.EA,E6.FB,D0,02,E6,FC,20,3F,B2 
, 90.EF,4C,FB.B4,A2,02,86,58. 3190 

1010 DATA A9.A6.A0.gD,20.F2.fil.20.E4,FF,F0 
,FB,C9,30,90,0C,C9,47,B0.0e, 2970 

1011 DATA C9,3A.90,0B.C9.41,B0.07.C9,14,D0 
,0F,4C.0B.B1,20.D2,FF,A6,58, 2322 

1012 DATA 9S,F7,C8,58,D0,D2.60.AE,8D,02,F0 
,26,C9.0C,D0,03.4C,0B,B6,C9, 2685 

1013 DATA 13,D0,03.4C,8B,BS.C9,0D.D0.03.4C 
,BA,B4,C9,10,D0.03.4C,68,B5, 2282 

1014 DATA C9,0E.D0,06.20,5F,B4,4C.64,B1.4C 
,92.B0,AS.F9.20,02.B1,0A,0A. 2132 

1015 DATA 0A,0A.85.F9,A5,F6,20,02,B1,05,F9 
,60.C9.3A,B0,02.69.03.29.0F. 1950 

1016 DATA 60.A6,56,E0.08,90,1F.A6,56,E0,02 
.B0.06,20,D2,FF,4C.aE,B0,C6. 2509 

1017 DATA 59,A0.14,A9,92.20,F2.B1,CA,D0,FA 
,84,57,68,68,4C,BB,Bl.A6,D3, 2881 

1016 DATA E0.08.B0,03,4C,82.B0,20,D2,FF.A6 
.58.E0I02,90,09,C6,59.20,D2. 2468 

1019 DATA FF.C6,58,D0.F9.4C,aE.B0.46,4A.4A 
,4A,4A,20,59,B1,66,28,0F,C8. 2419 

1020 DATA 0A,90.02,ß9,06,e9.30,4C.D2.FF.A2 
,FC,9A,20.D1.B1.20,48.B2,20, 2261 

1 021 JA TA EAiBl,20,9F.B2,A5,FC,20.4E.B1,A5 
DflL«i»^^_20.4E.B1.20,ED,Bl .A9,3A. 2860 

1022 DATA A0,20,20,F2,B1.A9,00.65.59.20.6£ 
,B0.20.ED,Bl,A4,5g,20,EF,B0, 2530 

1023 DATA 91,FB,C8.84,59,C0.08,90.EC,20,10 
>B2>A9.12.20.D2,FF,20,eE,B0, 2657 

1024 DATA 20.EF,B0,C5,FF,F0,0D,20,43,B3,A8 
.14,A0,14,20,F2,B1,4C,A2,B1, 2665 

1025 DATA A9.92,20.D2,FF,20,33,B2,20.E0,B2 
.20.3F.B2,90,gF.4C.6B,B5,Ag, 2648 

1026 DATA 93,20,D2,FF,A2,00,A9,03,gD.00,D6 
,SD.00.Dg,9D,00,DA.9D,00.DB, 2476 

1027 DATA EB.D0,EF,60,A9,0D,2C,A9,20.4C.D2 
,FF,20,D2,FF,9a.4C,D2.FF,20. 2965 

1028 DATA E4,FF,F0,FH.60,a4,5D,35,5C,A0,00 
,E1 ,5C,F0,06,20.D2.FF.C8.D0, 3100 

1028 DATA F6.60,A5.FB,85,SA,A0,00.S4,5B,B1 
,FB,18,65,5A,85.5A,90,02.E6. 2606 

1030 DATA SB,06,SA.26.SB.C8,C0,08,90,EC,AS 
,5A,65,5B.85,FF,60.1B,A5,FB. 2467 

1031 DATA 69.08.8S.FB.90,02.E6.FC,60,A5,FB 
.C5,5F,A5,FC.E5,80,60.A0,B3, 3106 

1032 DATA Ae.FB,20.FF.Bl,A0.01.B9.00,02,20 
.D2,PF.CC,00,02,Ca,g0.F4.A9. 2692 

1033 DATA 14,ED,00,02.AA.20.ED.Bl.CA,D0,FA 
.A5,62,20,4E,B1,AS,61,20,4E. 2457 

1034 DATA B1,20,ED,B1.A3.60,20.4E,B1,A5.SF 
.20,4£,B1,EA,EA,EA,£A.EA.EA, 3122 

1035 DATA EA,EA,24,5E,10.01,60,A9.12,20.D2 
,FF.A2,23,20,ED,B1,CA,D0,FA, 2703 

1036 DATA A9,92,4C,D2,FF.A5.D6,C9.16.B0.01 
,60.A9,A0,65.A4,A8,78,B5,A6, 2945 

1037 DATA A9.04,S5,A5,B5,A7.A2,13,A0.27,B1 
.A4,91.A6,e8,10,F9,CA,F0,19, 2671 

1036 DATA 18,A5,A4.69,2B,65,A4,90.02,E6,A5' 
,18,A5,A6,69,28,85,A6.90,E0, 2503 

1039 DATA E6,A7.4C,B6,B2.A9,91,4C,D2,FF,A9 
,0F.eD,ie,D4.Ag,00,BD.0S,D4, 2776 

1040 DATA A9,F7,BD,06.D4.A9.11,0D,04,D4.A9 
,32.6D.01,D4,A9,00,8D,00,D4, 2413 

1041 DATA A0,a0,20,09,B3.A9,10.8D.04.D4.60 
.A2,FF,CA,D0,FD,88,D0,F8,60, 2914 

1042 DATA A9,0F,8D,18,D4.A9.2D.6D,05,D4.Ag 
,A5,3D,06,D4.A9,21,8D,04ID4I 2385 

1043 DATA A9,07.6D,01,D4,A9,0S,8D,00.D4,A0 


<091> 

<ie7> 

<041> 

<231> 

< 121 > 

<057> 

<225> 

<20B> 

<092> 

<188> 

<197> 

<049> 

<03S> 

<073> 

<148> 

<233> 

<105> 

<034> 

<123> 

<237> 

<160> 

<077> 

<156> 

<219> 

<183> 

<098> 

<060> 

<190> 

<087> 

<204> 

<208> 

<251> 

< 000 > 

<126> 

<240> 

<118> 
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EINGABEHILFEN 


.Pr,20,09,B3,A9.2e.8D.04,P4, 2250 <076> 

1044 DATA A9.00,SD,01,D4,aD,00.D4.60.3e.20 

,F0.FF.0A,48,9a.40,10.A0,0ß, 2179 <175> 

1045 DATA A2,ia.20,F0,FF,A0.B4.A9.0A.20.FF 

.B1.20.12,B3.20.E4,FF,P0,FB, 2931 <093> 

1046 DATA A2,1D,A9,14,20.D2.FF,CA.D0.FA,60 

.Aa,60.AA,10.4C,F0,FF.0D,0D, 2704 <0a8> 

1047 DATA 0D.20,20.20,20,20,20,20,4D.41.53 

.43,4e.49,4E.4S,4E.53,50,52, 1144 <216> 

104a DATA 41.43,46,45.20.2D.20.45,44,49,54 

,4F,52.20,0D.0D,20,20,20.20, 1023 <036> 

1049 DATA 20.20,20.20.S6.4F.4E,20,4E,2E,4D 

.41,4E,4E.20.26,20,44,2E.57, 1126 <206> 

1050 DATA 45,49,4E.45.43.4B,00,0D,0O,0D,20 

,20,20,50.52,4F,47,52,41,4D. 1102 -.117> 

1051 DATA 4D,4E,41.4D.45.20,3A,20,00,0D,0O 

,20.20,20.53.54,41,52,54.41, 1073 <095> 

1052 DATA 44,52.45.53,53,45,20,3A,20,24,00 

,0D,0D,20.20,20,4S,4E,44.41. 1014 <129> 

1053 DATA 44,52.45,53.53,45,20,20,20,3A,20 

.24.00,92.01,01,50.52,4F.4?. 1136 <22B> 

1054 DATA 52,41.4D,4D.20,3A,20,00,12,20,20 

.2A,2A,2A,20,46,41.4C,53,43, 1024 <027> 

1055 DATA 46,45,20.45,49.4E,47.41,42,45,20 

.2A.2A.2A,20,20,92,00,0D.0D. 1058 < 093> 

1056 DATA 2A,2A.2A,20,45,4E,44.45,20.2A,2A 

.2A.00.13,01.20,20,12,44,92. 916 <153> 

1057 DATA 49.53.4B,20,4F,44.45.52,20.12,54 

.92,41.50,45.00.00,13.20.20. 1151 <035> 

1050 DATA 49.2F.4F,20,20,20.46.45,40,40.45 

.52,00.20.Dl,B1.20.4e.B2,A0. 1606 <012> 

1059 DATA B3,A9.CF.20.FF,B1,20.8E,B4,e5.FC 

,20,8E,B4,e5,FB,C5.61.A5,FC. 3207 <251> 

1060 DATA E5,62,90,23,A5.FB.C5,5F,A5,FC,E5 

,60,B0,19,20,A7.B4.D0.14,60, 2660 <U2> 

1061 DATA 20,A7,B4,F0,0C.a5.F9,20.A7.B4.F0 

.05.e5,FB,4C.EF,B0.60,68,20, 2749 <080> 

1062 DATA 43.B3,4C.5F.B4.20,CF,FF,C9,4C.D2 

,09,20.Dl.B1.20.4a.B2.4C,0B. 2372 <046> 

1063 DATA B6.C9,0D.60.A9.00.63.5E.20.5F.B4 

,20,EA.B1.20.0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4.FF,F0.FB,20,E1,FF.F0,26 
.20.9F,B2,24,5E.10.09,20,4E, 2435 

1065 DATA BS,20,0D.B5.20.60.B5.20,33.B2,20 

.3F,B2.00,D7,A0.B4,A9,28,20, 2190 <207> 

1066 DATA FF.Bl,20,E4,FF,C9.0D,D0.F9.A9.00 

.65.5E.A5.61,85.FB,A5,62,85, 3056 <240> 

1067 DATA FC,20.E0.B2,4C,64.B1.A5.FC,20.4E 

.B1.A5,FB.85.FF,20,4E,B1.A9, 3003 <221> 

1068 DATA 20,A0.3A,20,F2.B1,A0.00,20.ED.B1 

,Bl.FB.20.4E.Bl.ca.00,08,90, 2566 <070> 

1069 DATA F3,20,BD,B1,24,SE,30,03.A9,12.2C 

.A9,20.20.D2.FF,20,10,B2,A5, 2180 <059> 

1070 DATA FF,20,4E,B1.A9.92,20,D2.FF.4C.EA 

.B1.A9.FF.85.B8.65,B9.A9.04. 3073 <029> 

1071 DATA 85,BA,20.C0,FF.A2,FF,4C,C9,FF,20 

,CC.FF.A9,FF.4C.C3,FF.20.5F. 3315 <ie9> 

1072 DATA fi4,A9,80,e5,5E.20,4E.B5,20.46,B2 

.A2.24.A9,2D,20.D2,FF,CA.D0. 2596 <111> 

1073 DATA FA,20.EA,B1,20.EA,B1,20.60.BS.4C 

.C1.B4.20,B6,B5,A6.SF.A4.60. 2812 <015> 

1074 DATA A9,61.20,De,FF,B0,0A,20.B7,FF.29 

.8F.D0,03,4C.FB.B4.Ag,01.20. 2577 <201> 

1075 DATA C3.FF.20,68,B6,A0,B4,A9.4F.20.FF 

.B1.20.F9,B1,4O,FB.B4,20,68. 2921 <237> 

1076 DATA Be.A9.37,A0,B4,20.FF,B1.20.F8.Bl 

.A2.08.C9,44,F0,06.A2,01.C9. 2717 <213> 

1077 DATA 54.D0.F1.A9,01,A8,20,EA.FF.A0.00 

.E0.01.F0,lA,A9,40,eD,20.02, 2403 <101> 

1078 DATA A9.3A.80,21.02.89.01,02.98.22,02 

.C8.CC.00,02,90,F4.C8,C8.D0, 2182 <127> 

1078 DATA 0C.B8.01.02.99.20.02.08,00.00.02 

,D0,F4,96,A2,20,A0.02,40,BD, 2018 <025> 

1080 DATA FF.20.Be.B5.AS.BA.C9.0e.90,33.A6 

.B9.86,57,A9,01,20.C3,FF.AB, 2300 <022> 

1081 DATA 60.65,B9,20.C0.FF,B0,28,A5,BA.20 

.B4.FF,AS,B9.20,96,FFi20,A5, 2811 <053> 

1082 DATA FF.e5.61,A5.90.4A.4A.B0.13,20,A5 

,FF,85.62,20,AB,FF.A5,57,85, 2663 <214> 

1083 DATA B9,Ag.00.20,D5.FF,90.03,4C,A3,BS 

.e6,5F,84.60.AS,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD.3D,03,85.61.AD,3E.03,85,62 

.4C.FB,B4,A9.13,20,D2,FF,A2. 2300 <120> 

1085 DATA 10.20.ED.Bl.OA,D0.FA.60,00,00,00 

.00,00,00,00,00,00,00,00,00, 1230 <143> 

e 64'Qr Usting 2. Der MSE-Lader 


Der MSE 


Der MSE dient zur Eingabe von Maschinensprache-Pro¬ 
grammen. Als erstes müssen Sie den sogenannten 
»MSE-Lader» (Usting 2) abtippen. Dieser erzeugt erst das 
eigentliche MSE-Programm auf Diskette oder Kassette. 
Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeilennummer): POKE 44,32: POKE 8192,0: NEW 

Jetzt können Sie beginnen, das Usting 2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA- 
TA-Zeilen einen Fehler gemacht haben, aber wenn Sie 
ganz sicher gehen möchten, sollten Sieden Checksummer 
vor dem Eintippen aktivieren. Die Prüfsummen für den 
MSE-Lader finden Sie am Ende der jeweiligen Pro¬ 
grammzeilen. 

Wenn Sie das Usting 2 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingebeni 

Wenn Sie alles richtig gemacht haben und das Pro¬ 
gramm fehlerfrei abgetippt wurde, speichert es sich nach 
dem Starten selbst auf Diskette oder Kassette unter dem 
Namen »MSE VI.0«. Dieses fertige MSE-Programm laden 
Sie dann bei Bedarf wie ein normales Basic-Programm und 
starten es mit »RUN». 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz¬ 
ten beiden, vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette 
laden'.*'<^llen, um an einer bestimmten Stelle weiterzutip¬ 
pen öobi noch eine Korrekturvorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach müs¬ 
sen Sie < D > oder <T> drücken, je nachdem, ob Sie von 
Diskette oder Kassette (»tape«) laden möchten. Wenn das 
Programm unter diesem Namen nicht auf der Diskette vor¬ 
handen ist oder ein sonstiger Ladefehler vorlag, meldet 
sich der MSE mit »l/O-ERROR«. In diesem Fall drücken Sie 

< RUN/S7DP RESTORE > und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listings ohne 
die Freiräume dazwischen ein. Wenn Sie in einer Zeile 
einen Tippfehler gemacht haben, meldet sich der MSE 
sofort mit einem Brummton und der Meldung »EINGABE¬ 
FEHLER«. Nach einem Druck auf die RETURN-Taste kön¬ 
nen Sie mit der DEL-Tasteden Fehler korrigieren. Wenn Sie 
das gewünschte Programm vollständig eingegeben 
haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, da6 Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk später fort¬ 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 

< CTRL N> ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 

< CTRL M > erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch <SPACE> können Sie weiterlisten lassen 
und durch <RUN/STOP> das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit < CTRL P > ausdrucken. Mit < CTRL L> 
wird das Programm noch einmal neu in Ihren C64 geladen. 

(F. Lonczewski/N. Mann/D. Weineck/tr) 
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